如何使用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空白行数 。

要获得非空白行数，您将必须使用自动筛选。 使用<>""作为自动筛选条件，然后使用可见单元格的行数获取非空白行。

编辑：

看到这个链接

该帖子将删除除特定标头之外所有为空的列。 我相信您可以对其进行修改以适合您的需求。