MyTetra Share
Делитесь знаниями!
MS Excel - Подсчёт заполненных строк в листе
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 11 Импорт - Экспорт
Запись: xintrea/mytetra_db_adgaver_new/master/base/1532017312fys9i1s17f/text.html на raw.githubusercontent.com

MS Excel - Подсчёт заполненных строк в листе

Dim objExcelApp As Object

Dim objWorkbook As Object

Dim objWorksheet As Object

Dim strPath As String


strPath = "d:\Downloads\Book1.xlsx"

Set objExcelApp = CreateObject("Excel.Application")

'Set objExcelApp = GetObject(, "Excel.Application")

Set objWorkbook = objExcelApp.Workbooks.Open(strPath)

'Set objWorkbook = objExcelApp.ActiveWorkbook

Set objWorksheet = objWorkbook.Worksheets(1)


'Заполненные строки на листе

Debug.Print objWorksheet.usedrange.rows.Count


On Error Resume Next

objWorkbook.Close

Set objWorkbook = Nothing

objExcelApp.Quit

Set objExcelApp = Nothing

Err.Clear





Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования