Обработка активной книги Excel - VB

Узнай цену своей работы

Формулировка задачи:

Необходимо определить количество заполненных строк первого и второго, по индексу, листов активной книги Excel (книга открыта). На седьмой строке переменной xlsWb , значение не присваивает ??? Спасибо за ответ.
Листинг программы
  1. Sub main()
  2. Dim xlsApp As Object
  3. Dim xlsWb As Object
  4. Dim xlsSh As Object
  5. Dim a&, n&, b&
  6. Set xlsApp = CreateObject("Excel.Application") ' xlsApp.Visible = True
  7. Set xlsWb = xlsApp.ActiveWorkbook
  8. n = xlsWb.Sheets.Count
  9. Set xlsSh = xlsWb.Sheets(1)
  10. a = xlsSh.Cells(Rows.Count, 1).End(xlUp).Row
  11. Set xlsSh = xlsWb.Sheets(2)
  12. b = xlsSh.Cells(Rows.Count, 1).End(xlUp).Row
  13. End Sub

Решение задачи: «Обработка активной книги Excel»

textual
Листинг программы
  1.  b = xlsSh.Cells(xlsSh.Rows.Count, 1).End(xlUp).RowEnd

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

6   голосов , оценка 3.667 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы