如何使用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高度不可靠。 如果要查找最后一行，請參閱此鏈接 。 請注意，這仍然不會為您提供NON空白行數 。

要獲得非空白行數，您將必須使用自動篩選。 使用<>""作為自動篩選條件，然后使用可見單元格的行數獲取非空白行。

編輯：

看到這個鏈接

該帖子將刪除除特定標頭之外所有為空的列。 我相信您可以對其進行修改以適合您的需求。