Обработка активной книги Excel - VB
Формулировка задачи:
Необходимо определить количество заполненных строк первого и второго, по индексу, листов активной книги Excel (книга открыта). На седьмой строке переменной xlsWb , значение не присваивает ???
Спасибо за ответ.
Листинг программы
- Sub main()
- Dim xlsApp As Object
- Dim xlsWb As Object
- Dim xlsSh As Object
- Dim a&, n&, b&
- Set xlsApp = CreateObject("Excel.Application") ' xlsApp.Visible = True
- Set xlsWb = xlsApp.ActiveWorkbook
- n = xlsWb.Sheets.Count
- Set xlsSh = xlsWb.Sheets(1)
- a = xlsSh.Cells(Rows.Count, 1).End(xlUp).Row
- Set xlsSh = xlsWb.Sheets(2)
- b = xlsSh.Cells(Rows.Count, 1).End(xlUp).Row
- End Sub
Решение задачи: «Обработка активной книги Excel»
textual
Листинг программы
- b = xlsSh.Cells(xlsSh.Rows.Count, 1).End(xlUp).RowEnd
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д