Re: Genauere Beschreibung des Problems
14.05.2003 09:05:14
Robert62
Hi Frank,alles klar ;-)
Also:
Ich habe eine Datei angelegt in die Deine Daten eingelesen werden sollen ... diese Datei heißt Einlesen.xls
Die Datei hat zwei Tabellen:
Die erste Tabelle heißt Daten, und hat folgenden Inhalt
Verzeichnisse Dateiname
c:\test1 TabelleA
c:\test2 TabelleB
c:\test3 TabelleC
c:\test4
c:\test5
c:\test6
c:\test7
c:\test8
c:\test9
c:\test10
Hier legst Du also Deine Verzeichnisse und die 3 einzulesenden Dateien fest.
Die zweite Tabelle ist leer und heißt EinlesenDaten.
Die Namen Einlesen, Daten und EinlesenDaten kannst Du dann an Deine Bedürfnisse anpassen ...
Gruß
Robert
Hier der Code:
Sub DatenEinlesen()
Dim Pfad, Tatei, PfadTatei As String
Dim PfadNr, TateiNr, LZeile, LSpalte As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("EinlesenDaten").Activate
Cells(1, 1).Select
Sheets("Daten").Select
For PfadNr = 2 To 11
Pfad = Cells(PfadNr, 1).Value
For TateiNr = 2 To 4
Tatei = Cells(TateiNr, 2).Value
PfadTatei = Pfad & "\" & Tatei
Workbooks.Open PfadTatei
Sheets(1).Activate
LZeile = ActiveSheet.UsedRange.Rows.Count
LSpalte = ActiveSheet.UsedRange.Columns.Count
Range(Cells(1, 1), Cells(LZeile, LSpalte)).Select
Selection.Copy
Windows("Einlesen").Activate
Sheets("EinlesenDaten").Activate
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Windows(Tatei).Activate
ActiveWorkbook.Close
Next TateiNr
Windows("Einlesen").Activate
Sheets("Daten").Select
Next PfadNr
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub