如何使用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。请注意，这仍然不会为您提供 NON Blank Rows 的数量。

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

修改

请参阅此link

此帖子会删除除特定标题之外的所有空列。我相信你可以根据自己的需要进行修改。