VB如何获取EXCEL中所有的表名

Question

使用VBA获取一个EXCEL工作簿中的所有表的 表名 输出到文本

Answer 1

VB还是VBA？如果是VBA，就可以这样

Public Sub aa()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub

以上输出到当前面的第一列

Answer 2

1楼正确。用VB的话，也差不多，就是稍微改下代码即可。