Запись данных в excel - VB
Формулировка задачи:
Прошу помощи!!!
Я новичек, поэтому сильно не ругайте и не переводите тему типа "вон там посмотри". Хотелось бы увидеть конкретный код.
Задача: есть два поля textbox1 и textbox2, кнопка button1 "Записать". Необходимо при нажатии кнопки выполнить запись из textbox1 и textbox2 в таблицу excel (например файл 1.xlsx). Причем textbox1 в столбец "В", а textbox2 в столбец "С", но в свободную строку (не заполненную), например 1, 2, 3 строки заполнены, а 4 пустая - так вот в нее!
Надеюсь понятно изложил.
Пожалуйста!
Решение задачи: «Запись данных в excel»
textual
Листинг программы
Sub Button1_Onclick() Dim xlsApp As object Dim xlsWb As object Dim xlsSh As object Set xlsApp=CreateObject("Excel.Application") Set xlsWb=xlsApp.WorkBooks.Open("1.xlsx") Set xlsSh =xlsWb.Sheets(1) iii&=1 Do if xlsSh.cells(iii&,2).Value="" then xlsSh.cells(iii&,2).Value=textbox1.text exit do end if iii&=iii&+1 Loop iii&=1 Do if xlsSh.cells(iii&,3).Value="" then xlsSh.cells(iii&,3).Value=textbox2.text exit do end if iii&=iii&+1 Loop xlsWb.Save xlsWb.Close xlsApp.Quit End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д