MyTetra Share
Делитесь знаниями!
MS Excel - Подсчёт заполненных строк в листе
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 11 Импорт - Экспорт

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.52
Яндекс индекс цитирования