Sorry,
im vorherigen Post habe ich die alte Anweisung reinkopiert. Das hier ist die aktuelle Anweisung wie ich sie jetzt im Code verwende:
Workbooks.OpenText Filename:=strPfad, DataType:=xlDelimited, Tab:=True, semicolon:=False, comma:=False, Space:=False, other:=False, otherchar:=False, _
FieldInfo:=Array(Array(1, xlGeneralFormat), Array(6, XlColumnDataType.xlDMYFormat)), Local:=True
Schöne Grüße
Thomas
|