Supportnet / Forum / Tabellenkalkulation
dateien öffnen?
Frage
Hallo allerseits,
ich möchte aus anderen Datein (xyz.txt, xyz1.txt, xyz2.txt, ...) bestimmte felder importieren und in einer Tabelle speichern.
Die Daten von jeder Datei sollen in einer neuen Zeile der Tabelle gespeichert werden. Aus Datei xyz1.txt müssen die Daten z.b. im Feld "Range("D2").Select" gespeichert werden.
hier schon mal mein makro ohne der schleife:
Sub import()
Workbooks.Open Filename:= _
"xyz.txt"
Windows("test.xls").Activate
Range("D1").Select
Windows("xyz.txt").Activate
Range("A22").Select
Selection.copy
Windows("test.xls").Activate
ActiveSheet.Paste
Windows("xyz.txt").Activate
ActiveWindow.Close
End Sub
Die Dateinamen (xyz.txt, xyz1.txt, xyz2.txt, ...) liegen in der Datei test.xls in einer Spalte (A1:A3).
Ich habe es schon mit einer Schleife versucht komme aber nicht zum gewünschten Ergebniss !
kann mir jemand einen tipp geben?
mgf networker ///
Antwort 1 von Saarbauer
Hallo,
du musst dem Programm auch sagen wo er es genau hinspeichen soll
macht die Datei Test auf und Speichert ab der aktiven Zelle (welche?) auf dem Aktiven Sheet (welches?). Wahrscheinlich immer an die gleiche Stelle
Hier sollte man zumindest die Zelle benennen in die gespeichert werden soll, wahrscheinlich willst du die kopierten zZeilen untereinanderschreiben.
Gruß
Helmut
du musst dem Programm auch sagen wo er es genau hinspeichen soll
Zitat:
Windows("test.xls").Activate
ActiveSheet.Paste
Windows("test.xls").Activate
ActiveSheet.Paste
macht die Datei Test auf und Speichert ab der aktiven Zelle (welche?) auf dem Aktiven Sheet (welches?). Wahrscheinlich immer an die gleiche Stelle
Hier sollte man zumindest die Zelle benennen in die gespeichert werden soll, wahrscheinlich willst du die kopierten zZeilen untereinanderschreiben.
Gruß
Helmut
Antwort 2 von networker///
hallo helmut,
danke für deine antwort!
das probelm hat sich erledigt.
gruß networker///
danke für deine antwort!
das probelm hat sich erledigt.
gruß networker///

