用VBA提取路径下所有工作簿的工作表名(四个方法).docVIP

. . 用VBA提取路径下所有工作簿的工作表名（四个方法） 方法一：Open方法思路：遍历路径下的工作簿并用Workbooks.Open打开，再遍历工作表名Workbooks.Open打开一个工作簿。语法表达式.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)表达式 一个代表 Workbooks 对象的变量。Sub Open法() Dim arr Dim namp;, iamp;, jamp;, s$ Dim wb As Workbook, sht As Worksheet, wbk As Workbook Dim myPath$, myFile$ Application.ScreenUpdating = False 禁刷新 Application.Calculation = xlManual 禁计算 Set wbk = ThisWorkbook myPath = ThisWorkbook.Path amp;