Question

如何利用VBA获取指定工作簿中的工作表名称

Answer 1

获取指定的工作簿中工作表名称而非本工作簿中表的名称，下面的代码可以使用：
Sub 提取name()
Dim wk As Workbook
Dim sh As Worksheet
Dim rw As Byte
Set wk = Workbooks.Open("D:\函数习题\第1章 函数基础.xls")
For Each sh In Workbooks(2).Worksheets
rw = rw + 1
ThisWorkbook.Sheets(1).Range("a" & rw) = sh.Name
Next sh
wk.Close True
End Sub
新建一个工作簿，在VBA中新建一个模块，将上面的代码复制进去。记住要根据自己指定的工作簿改变一下workbooks.open后面的路径。结果会在新建工作簿中sheets1a列罗列出工作表名称。

Answer 2

获取本工作簿的工作表名称：

Sub gongzuobiao()
    For i = 1 To Sheets.Count
        Range("A" & i) = Sheets(i).Name
    Next
End Sub

Answer 3

thisworkbook.nane