1

我正在使用下面的代码来读取 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
4

1 回答 1

1

不幸的是，我不会推荐UsedRange。

两个原因

  1. UsedRange不会给你no of rows in sheet (non blank)你想要的。
  2. UsedRange是非常不可靠的。如果您想找到最后一行，请查看此链接。请注意，这仍然不会为您提供NON Blank Rows的数量。

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

编辑：

看到这个链接

这篇文章删除了除特定标题之外的所有空列。我相信你可以修改它以满足你的需要。

于 2012-09-20T09:33:20.517 回答