Text Dateien Einlesen mit VBA
02.10.2003 14:02:25
Bernhard
Auf ein Excel-Blatt gebe ich in einer Zelle (Bsp."C4") den Namen einer
Text-Datei (zBsp. test_1) ein.
mit einem Programm "Butten" möchte ich dann die Datei test.txt
automatisch eingelesen.
wer kann mir helfen?
soweit komme ich - hat aber noch nicht funktioniert :-(
Sub Datei_Einlesen()
' Datei_Einlesen Makro
' Makro am 02.10.2003 von Bernhard aufgezeichnet
Dim Datei As String
Datei = Sheets("Deckblatt").Range("C4").Value
Workbooks.OpenText FileName:="D:\temp\Datei.TXT" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(8, 1), Array(18, 1))
Sheets("Datei").Select
Sheets("Datei").Move After:=Workbooks("Klemmdaten_Einlesen.xls").Sheets(1)
Sheets("Deckblatt").Select
Range("D4").Select
End Sub
Danke für die Hilfe
Bernhard