Application.GetOpenFilename
13.10.2005 09:35:01
Korl
zum öffnen einer Textdatei habe ich einen Code der auch funktioniert.
Nun möchte ich gerne eine "csv" auf gleichem Wege öffnen. Die Function Application.GetOpenFilename habe ich auf "csv" umgestellt.
Aber diesen Teil
Workbooks.OpenText Filename:=x, Origin:=xlMSDOS, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=True, comma:=False _
, Space:=False, other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
bekomme ich nicht hin. Es wird mir alles in einer Spalte angezeigt obwohl ich Semikolon:=True gesetzt habe.
Was hier jemand Rat und kann mir hierbei Helfen?
Gruß Korl