Scriptfehler
12.07.2004 22:36:07
Mathias
ich bekomme den Fehler "Anweisung erwartet" an der Stelle Workbooks.OpenText Filename:="InputFile1", an was kann das hängen ?
Vielen Dank
Mathias
Sub Makro1()
Dim Path
Dim InputFile1
Path = "C:\Workfolder\Script\"
InputFile1 = Path & "04071200.LOG"
Set theApp = WScript.CreateObject("Excel.Application")
Workbooks.OpenText Filename:="InputFile1", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=True, Space:=False, Other:=True, OtherChar:="-", FieldInfo:= _
Array(Array(1, 4), Array(2, 1), Array(3, 4), Array(4, 1), Array(5, 2), Array(6, 2), Array(7 _
, 2), Array(8, 2))
End Sub