我打算在工作簿VBA中打开工作表名称到文件名

我目前使用此代码打开文件夹中的所有.xls文件

Sub OpenFiles() Dim MyFolder As String Dim MyFile As String MyFolder = InputBox("Please enter the folder for files") MyFile = Dir(MyFolder & "\*.xls") Do While MyFile <> "" Workbooks.Open Filename:=MyFolder & "\" & MyFile ****Sheet1.Name = "MyFile"**** MyFile = Dir Loop End Sub 

我试图将工作表名称更改为文件名，因为它循环

我打开的每个工作表将被称为“部件列表”

我正在尝试使用星号部分来做到这一点，但它不工作。

Answer 1

这会将新打开的工作簿中的工作表（“部件列表”）重命名为MyFile。

 Sub OpenFiles() Dim wb As Workbook Dim MyFolder As String Dim MyFile As String MyFolder = InputBox("Please enter the folder for files") MyFile = Dir(MyFolder & "\*.xls") Do While MyFile <> "" Set wb = Workbooks.Open(Filename:=MyFolder & "\" & MyFile) wb.Worksheets("Parts List").Name = MyFile MyFile = Dir Loop End Sub 

Answer 2

尝试改变行：

 Sheets("Sheet1").Name = "MyFile"