Reiter aus File kopieren
01.07.2019 10:49:36
Patrick
ich habe eine, für euch sicherlich kleine, Challenge.
Ich habe in einem bestimmten Ordner Files liegen. In jedem dieser Files befindet sich ein Reiter Namens "Übersicht". Ich möchte nun diese "Übersicht"-Reiter aus den einzelnen Sheets in ein neues Excel File kopieren. Im neuen Excel File sollen diese Reiter dann nach den Filenamen benannt werden. Ich schicke euch anbei meinen Code-Versuch, der aber leider nicht funktioniert hat bis jetzt..
Ich hoffe ihr könnt mir hier helfen. Danke schonmal und LG Patrick
Sub Import()
' Import Makro
Dim wb As Workbook
Dim strmyPath As String
Dim strmyDat As String
strmyPath = "Pfad\"
Pfadlänge = Len(strmyPath)
strmyDat = Dir(strmyPath & "*.xls")
Do While strmyDat ""
Application.AskToUpdateLinks = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Set wb = Workbooks.Open(strmyPath & strmyDat)
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Textlänge = wb.FullName
Worksheets("Übersicht").Select
Textlänge = Len(Full_filename) - Len(Pfadlänge)
Name = Mid(Textlänge, Pfadlänge + 1, Textlänge - 4)
Sheets("Übersicht").Copy Before:=Workbooks("20190701 Konsolidierung.xlsm"). _
Sheets(1)
Workbooks("20190701 Konsolidierung.xlsm").Activate
Sheets("Übersicht").Select
ActiveSheet.Name = Name
wb.Close False
strmyDat = Dir
Loop
End Sub
Anzeige