Ich möchte einen Arbeitsblätter Namen während einer Schleife an den Dateinamen ändern, wie ich seine Arbeitsmappe öffnen VBA

Question

ich zur Zeit diesen Code verwende alle .xls-Dateien in einem Ordner zu ändern

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 

Ich versuche zu öffnen der Arbeitsblatt-Name in den Dateinamen wie es Schleifen obwohl

Jedes Arbeitsblatt I „Stückliste“

ich versuche, verwenden sie das Sternchen Teil, dies zu tun, aber es funktioniert nicht aufgerufen wird am öffnen.

Answer 1

Dies wird benennen Sie die Arbeitsblätter („Stückliste“) in der neu eröffneten Arbeitsmappe 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

Versuchen Sie, die Linie zu ändern:

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