Question

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

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 循环

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

好像没有更好的办法。