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