Kopieren andere Arbeitsmappe aus einem Ordner in verschiedene Blätter in einer Arbeitsmappe

Question

Ich schrieb den folgenden Code die Arbeitsmappe zu reinigen und dann leere Blätter

Sub conclusion() 
Dim xWs As Worksheet 
Dim Path As String, Filename As String 



    Application.ScreenUpdating = False 
    Application.DisplayAlerts = False 
    For Each xWs In Application.ActiveWorkbook.Worksheets 
     If xWs.Name <> "Sheet1" And xWs.Name <> "Summary" Then 
      xWs.Delete 
     End If 
    Next 
    Application.DisplayAlerts = True 
    Application.ScreenUpdating = True 
    ' create new sheets 

    Dim MyCell As Range, MyRange As Range 

    Set MyRange = Sheets("Summary").Range("A2") 
    Set MyRange = Range(MyRange, MyRange.End(xlDown)) 

    For Each MyCell In MyRange 
     Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet 
     Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet 
    Next MyCell 

    ' copy the workbooks into the sheets (My question) 

End Sub 

zu erstellen und dann sollte es den Weg von einer Zelle in meinem Fall lesen B2 und sucht alle xls-Dateien in diesem Ordner und kopieren Sie den crated Blätter, deren Namen in

ich schrieb den folgenden

Path= Sheets("Summary").Range("B2").Value ***(it does not read the value of B2, why?)*** 
    Filename = Dir("Path" & "*.xls") 
    Do While Filename <> "" 

***here is my question, how can I write the following: 
COPY THE WORKBOOK 1 INTO SHEET with the name from Cell A2*** 
    Loop 

Answer 1

zu beheben der erste Problem Versuch:

With Application.Workbooks("BookName").Sheets("Summary") 
    Path = .Range("B1").Text & "\" & .Range("A2").Text 
End With 

Für die zweiten Ihre Variable Path ist in Anführungszeichen, die es nicht, da es keinen String sein sollte, aber ein String-Variable ist. Nicht sicher, warum Sie dort entweder das Wildcard-Stern hatte ...

Filename = Dir(Path & ".xls") 

Für den letzten Teil Ihrer For Loop fehlt, was es ist, dass Sie fahren wollen durch (dh. Zellen)

For Each MyCell In MyRange.Cells 
    Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet 
    Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet 
Next MyCell