Microsoft Excel

Herbers Excel/VBA-Archiv

Mehrere Dateien auslesen

Betrifft: Mehrere Dateien auslesen von: Alex
Geschrieben am: 20.09.2004 09:58:17

ich möchte aus verschiedenen Dateien Daten auslesen,
und in eine Tabelle bekommen.
am besten mit makro (evtl. auswahl der Dateien)
danke
alex

  


Betrifft: AW: Mehrere Dateien auslesen von: Jan L.
Geschrieben am: 23.09.2004 10:20:05

Hallo Alex,

Zeichne am besten erst mal ein Makro auf, in dem Du eine Datei (Ich vermute ASCII / Text) so wie Du sie brauchst öffnest.

Mit "Alt + F11" wechselst Du dann in den Makro-Rekorder. Im Projekt-Explorer irgendwo in Modulx findest Du dann das, was Du aufgezeichnet hast, z.B. so was wie

Sub Makro1()
Workbooks.OpenText Filename:="C:\Stossdämpfer\Pulser_Ken\_Nr1.ken" _
        , Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
        , Comma:=True, Space:=False, Other:=False, DecimalSeparator:=".", ThousandsSeparator:=",", _
        TrailingMinusNumbers:=True
End Sub


Über die Zeile Workbooks.OpenText... setzt du dann z.B.

datName = Application.GetOpenFilename("Tabellen (*.txt;*.asc;*.ken),*.txt;*.asc;*.ken")
If datName = CStr(False) Then Exit Sub

Dann das "C:\Stossdämpfer\Pulser_Ken\_Nr1.ken" durch datName ersetzen, fertig.

In Excel kannst Du dann über rechts-Klick in die Menüleiste, Befehl "Anpassen" einen Makro-Button einfügen, und ihm das Makro zuweisen.

Hoffe, das hilft erst mal

Gruß

Jan


 

Beiträge aus den Excel-Beispielen zum Thema "Mehrere Dateien auslesen"