Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrere Dateien auslesen

Mehrere Dateien auslesen
20.09.2004 09:58:17
Alex
ich möchte aus verschiedenen Dateien Daten auslesen,
und in eine Tabelle bekommen.
am besten mit makro (evtl. auswahl der Dateien)
danke
alex

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Dateien auslesen
23.09.2004 10:20:05
Jan
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige