Sub
CopyFile()
Dim
wkbQuelle
As
Excel.Workbook
Dim
wkbZiel
As
Excel.Workbook
Dim
sPfad
As
String
Set
wkbZiel = Application.Workbooks.Add
Set
wkbQuelle = Application.Workbooks.Open(sPfad)
sPfad =
"c:\Dateiname.xlsx"
wkbQuelle.Worksheets(
"1"
).Copy after:=wkbZiel.Worksheets(wkbZiel.Sheets.Count)
wkbQuelle.Close SaveChanges:=
False
Set
wkbQuelle = Application.Workbooks.Open(sPfad)
wkbQuelle.Worksheets(
"2"
).Copy after:=wkbZiel.Worksheets(wkbZiel.Sheets.Count)
wkbQuelle.Close SaveChanges:=
False
End
Sub