用VB如何高效读取EXCEL中所有的sheet名称

来源:百度知道 编辑:UC知道 时间:2024/05/16 05:01:19
Dim i As Long
Dim lCount As Long
Dim dddd As String
lCount = XlsBook.Worksheets.Count
For i = 1 To lCount
dddd = XlsBook.Worksheets(i).Name '读取EXCEL中的sheet的名称

但是上面这种方法效率太低,因为我的EXCEL中有大量的sheet,有没有更高效的方法。谢谢
我指的是这行代码XlsBook.Worksheets(i).Name ,没有别的高效的函数了吗。不是指For 循环

好像没有更好的办法。

Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
....
...
next

貌似你只能从sheets集合里遍历里面的所有对象。。

不论用For Each还是For都是采用遍历的方法,已经是最高效的了,貌似没有其他办法了。