Import mehrerer Workbooks
12.10.2007 09:30:08
Gromminger
Habe ein kleines Problem und hoffe auf Eure Mithilfe.
Derzeit importiere ich mit folgendem Macro jeweils das Worksheet "Form_VBB"
in mein Excel File. Da es sich aber um ca. 50 Dateien handelt, die es zu importieren gilt,
würde ich gerne das Makro so umwandeln,
dass ich nicht jede Datei einzeln, sondern alle Dateien enbloc einladen kann.
Wer kann mir helfen?
Herzlichen Dank im voraus.
Gromminger
Sub Import()
Dim wbk, wbks As Workbook
Dim wsh As Worksheet
Dim dlg_answer As Boolean
Dim wbk_name, report_name As String
Dim P1%, var1$
Dim report As Object
Dim strVerzeichnis As String
Set wbk = ThisWorkbook
Set wsh = wbk.Worksheets("Import")
wsh.Cells(1, 2).Font.ColorIndex = 2
wsh.Cells(1, 2).Value = 0
wbk_name = ThisWorkbook.Name
strVerzeichnis = "T:\USER_Grommes\Buyback_Tracking"
If Dir(strVerzeichnis, vbDirectory) "" Then ChDir strVerzeichnis Else Exit Sub
ChDir strVerzeichnis
dlg_answer = Application.Dialogs(xlDialogOpen).Show("T:\USER_Gromminger\Buyback_Tracking")
If Not (dlg_answer) Then GoTo 4
report_name = ActiveWorkbook.Name
var1 = left(report_name, Len(report_name) - 4)
CreateCard (var1)
Workbooks(report_name).Activate
Range("a1:j32").Select
Selection.Copy Destination:=Workbooks(wbk_name).Worksheets(var1).Cells(1, 1).End(xlUp). _
Offset(0, 0)
Workbooks(report_name).Close
wsh.Columns("a:B").AutoFit
CopyPaste
4:
End Sub