Workbooks.Opentext tut nicht was es soll
03.08.2015 20:31:07
Stefan
ich beschäftige mich aktuell mit dem Import einer CSV Datei.
Das zeileweise Einlesen dauert zu lange weil die Datei mehr als 2000 Zeilen hat.
Des halb möchte ich Workbooks.Opentext nutzen und die Beschreibung dazu sieht so aus das das auch funktionieren sollte.
Ich nutze folgende Anweisung:
Workbooks.OpenText FileName:=mySource, DataType:=xlDelimited, Semicolon:=True
Die CSV Datei ist im Feld mySource hinterlegt und wird auch geöffnet.
Das Trennzeichen ";" wird aber nicht erkannt/beachtet und damit steht der komplette Datensatz in der ersten Spalte.
Nutze ich folgende Anweisung funktioniert es:
Workbooks.OpenText FileName:=mySource, DataType:=xlDelimited, local:=True
Laut Beschreibung von Microsoft (siehe hier: https://msdn.microsoft.com/de-de/library/office/Ff837097.aspx ) sollten beide Verfahren funktionieren.
Warum nehme ich nicht LOCAL:=TRUE ?
Die Lösung muss auf Rechnern mit verschiedenen Sprachversionen von Office/Windows funktionieren, auf die CSV Datei greifen aber alle diese Nutzer gleichermassen zu.
Wenn ich Local:=True einsetze verhält sich das Makro je nach Sprachversion/Land unterschiedlich und dann funktioniert die Lösung nicht auf allen Rechnern.
Hat jemand eine Idee wie ich die Lösung mit SEMICOLON:=TRUE zum laufen bekommen kann?
Gruss - Stefan