如何使用VB6對選定excel文件中的行數進行計數

Question

我正在使用下面的代碼來讀取excel文件： 我想只打印第一行數據，因爲我需要找到表格中沒有行（非空白） 。

Set xlBook = GetObject(FilePath) 
xlBook.Application.Visible = True 
xlBook.Windows(1).Visible = True 
xlBook.Application.WindowState = xlMinimized 

Dim irow As Integer 

For irow = 2 To 101 
    MsgBox xlBook.Worksheets(1).Cells(irow, 1).Value 
Next 

Answer 1

不幸的是，我不會建議UsedRange。只要你想它

兩個原因

1. UsedRange不會給你no of rows in sheet (non blank)。
2. UsedRange是非常不可靠的。如果你想找到最後一行然後看到這個link。請注意，這仍然不會給你非空行。

要獲得非空行的數量，您將不得不使用AutoFilter。使用<>""作爲自動篩選條件，然後使用可見單元格行數來獲取非空行。

編輯：

看到這個link

這個帖子刪除它們是空的除了特定的標頭中的所有列。我相信你可以修改它以適應你的需求。