kopieren
18.08.2003 09:32:54
Andreas
ich habe ein Makro mit welchem ich aus einer txt-Datei Daten in Excel einlese. Es funktioniert auch ganz gut, wenn ich die Daten in die Muster.xls einlese. Da sich der Dateiname aber jeden Monat ändert (z.B. in 08_03.xls) sollte es doch irgendwie möglich sein, den aktuellen Dateinamen dort eintragen zu lassen? Hat jemand dazu eine Idee, wie das zu bewerkstelligen ist?
Mit bestem Dank Andreas
Anbei mein vorhandenes Makro
Sub berlina()
'Datei berlina.txt wird in Excel eingelesen
Workbooks.OpenText FileName:="D:\Test\Tschibo\berlina.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 9), _
Array(2, 1), Array(3, 1), Array(4, 9), Array(5, 9))
'Die ersten neun Zeilen werden gelöscht
Workbooks("Berlina.txt").Worksheets("berlina").Rows("1:9").Delete
'Von A1 bis B10000 werden die Daten in Muster.xls Tab2 kopiert
Workbooks("Berlina.txt").Worksheets("berlina").Range("A1:B10000").Copy _
Workbooks("muster.xls").Worksheets("Tabelle2").Range("C1")
ActiveWindow.Close SaveChanges:=False
End Sub