Text in spalte trennt falsch - wo liegt der Fehler?

[shift-del]

(Warum ihn MS allerdings seit neuem so gut versteckt hat, wissen wohl nur die Redmonder)

Das ist doch klar: Man soll Power Query nehmen und nicht die alten Import-Assistenten die seit Anno Tobak auch nicht mehr aktualisiert wurden.

[RPP63]

Dann erkläre mir doch bitte, wie Du mit PQ die Decimal- und ThousandsSeparators umstellst.
(zumindest schneller als mit dem uralten Legacy-Assi)
Nach etlichen Klicks (zunächst: Datentyp nicht erkennen) erhalte ich:
(und ja, vieeeel länger dauert es auch nicht wirklich)

Code:

let
    Quelle = Csv.Document(File.Contents("C:\Users\RPers\Desktop\Zahl.csv"),[Delimiter=",", Columns=2, Encoding=1252, QuoteStyle=QuoteStyle.None]),
    #"Typ ändern" = Table.TransformColumnTypes(Quelle,{{"Column1", type text}, {"Column2", type text}}),
    #"Ersetzter Wert" = Table.ReplaceValue(#"Typ ändern",".",",",Replacer.ReplaceText,{"Column1", "Column2"}),
    #"Geänderter Typ" = Table.TransformColumnTypes(#"Ersetzter Wert",{{"Column1", type number}, {"Column2", type number}})
in
    #"Geänderter Typ"

Und wirklich:
Die Art, wie OO/LO mit der Materie umgeht, finde ich smart.

Gruß Ralf

[snb]

Hast du versucht ?

Code:

Sub M_snb()
  sheets.add ,sheets(sheets.count),,"G:\OF\Q_test.csv"
End Sub

[RPP63]

@snb:
Nicht schlecht, Herr Specht!
(german for thumps up!)
Jetzt muss ich nur noch verstehen, warum Excel die Trennzeichen hier lokalisieren kann!

Gruß Ralf

[Kuwer]

Hi Ralf,

Jetzt muss ich nur noch verstehen, warum Excel die Trennzeichen hier lokalisieren kann!

kann es nicht, aber VBA verhält sich amerikanisch?

Gruß Uwe

[snb]

Kann auch so:

Code:

Sub M_snb()
   Workbooks.Open "G:\Q_test.csv", , , , , , , , , , , , , -1
End Sub

oder

Code:

Sub M_snb()
   Workbooks.Open "G:\Q_test.csv", local:=true
End Sub