Как перенести листы Excel, сохраненные в папке, в новую книгу?

Question

«C: \ Users \ Новая папка \» в этом пути у меня 10 книг и каждый из них имеет вкладку бюджета ... Я хочу, чтобы переместить эту вкладку «code2.xlsm

Мой код заключается в следующем:

Option Explicit 
Sub move_filesinto_masterWB() 


Dim Myfile As String 
Myfile = Dir("C:\Users\New folder\") 
Dim Masterwb As Workbook 
Set Masterwb = Workbooks("code2.xlsm") 


Do While Len(Myfile) > 0 

Workbooks.Open (Myfile) 

Sheets("budget").Select 
Sheets("budget").Copy After:=Workbooks("Code2.xlsm").Sheets(sheets.count) 

Myfile = Dir 
Loop 

End Sub 

Answer 1

проблема с линии

Workbooks.Open (Myfile) 

Myfile содержит только имя файла, а не полный путь. Попробуйте

Workbooks.Open ("C:\Users\New folder\" & Myfile)