Запись данных в 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

Оцени полезность:

11   голосов , оценка 4.273 из 5
Похожие ответы