Я пытаюсь скопировать лист «Zeit & Kostenerfassung» из всей книги в файл на моем рабочем столе.Код должен открыть их (один за другим) и скопировать нужный лист;вставьте его в текущую рабочую книгу, а также листы должны быть переименованы (Zeit & Kostenerfassung1; Zeit & Kostenerfassung2; ...), потому что они не могут иметь одно и то же имя.
После вставки рабочих книг в файлна моем рабочем столе должен быть снова закрыт.
Я пробовал приведенный ниже код, который, к сожалению, не работает.
Любая помощь по этому вопросу будет очень признателен!
Sub CopySheetFromFileOnDesktop()
Dim wkbDest As Workbook
Dim wksDest As Worksheet
Dim wkbSource As Workbook
Dim wksSource As Worksheet
Dim MyPath As String
Dim MyFile As String
Application.ScreenUpdating = False
Set wkbDest = ThisWorkbook
Set wksDest = wkbDest.Worksheets("Tabelle1")
MyPath = "C:\Users\..."
If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
MyFile = Dir(MyPath & "*.xlsx")
Do While Len(MyFile) > 0
Set wkbSource = Workbooks.Open(MyPath & MyFile)
Set wksSource = wkbSource.Worksheets("Zeit&Kostenerfassung")
Sheets("Zeit&Kostenerfassung").Copy
Before:=Workbooks("PullDataFromOutlook").Sheets(SheetIndex)
wkbSource.Close savechanges:=False
MyFile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Completed...", vbInformation
End Sub