Datenverbindung zu täglich neu erstellter csv-Datei?

[shift-del]

Ich konnte mit meinem Code die Werte in Dezimalzahlen wandeln (über das Gebietsschema).
Warum es bei dir nicht funktioniert weiß ich nicht.

Entweder probierst du es selber weiter oder du stellst eine CSV zur Verfügung die im Text-Editor gekürzt wurde.

[DbSam]

Hallo Lascar,

gut. Ich habe geahnt, dass Du der Verursacher vom Anführungszeichen-Chaos bist.

Ich vermute mal, dass Deine Datei so aussieht:

Code:

ID_1,ID_2,Name,Preis,Datum,"Gebühr 1","Gebühr 2","Gebühr 3","Gebühr 4","Gebühr 5","Gebühr 6",Menge
B00A1A1AA1,AB-1234,"Artikel1 Name",5.35,,4.78,5.22,5.77,3.61,2.97,,
B0111BBB1B,AB-567,"Artikel2 Name, enthaelt Komma",8.9,2015-12-01,1.72,2.08,2.33,1.85,1.19,,687
B011CCC1CC,AB-890-M,"Artikel3 Name",,,,,,,,,

Und dann reicht dieser Code hier:

Code:

let
   Quelle = Csv.Document(File.Contents("C:\Temp\Upload_artikel.csv"),[Delimiter=",", Encoding=65001]),
   #"Höher gestufte Header" = Table.PromoteHeaders(Quelle),
   #"Geänderter Typ mit Gebietsschema" = Table.TransformColumnTypes(#"Höher gestufte Header", {{"Preis", type number}, {"Gebühr 1", type number}, {"Gebühr 2", type number}, {"Gebühr 3", type number}, {"Gebühr 4", type number}, {"Gebühr 5", type number}, {"Gebühr 6", type number}, {"Menge", type number}}, "en-US"),
   #"Geänderter Typ mit Gebietsschema1" = Table.TransformColumnTypes(#"Geänderter Typ mit Gebietsschema", {{"Datum", type date}}, "en-US")
in
   #"Geänderter Typ mit Gebietsschema1"

Das sieht dann so aus:
[
Bild bitte so als Datei hochladen: Klick mich!
]




Gruß Carsten

[snb]

Code:

Sub M_snb()
    c00 = "J:\download\Upload_artikel.csv"

    With CreateObject("scripting.filesystemobject")
        .createtextfile(c00).write Replace(.opentextfile(c00).readall, Chr(34), "")
    End With
    
    With ActiveSheet.QueryTables.Add("TEXT;" & c00, Range("$A$1"))
         .FieldNames = True
        .TextFilePlatform = 65001
        .TextFileCommaDelimiter = True
        .Refresh False
    End With
End Sub

[DbSam]

Hhhhmmm ...

Der Code ergibt:
[
Bild bitte so als Datei hochladen: Klick mich!
]

Und dann? Bzw. was war/ist Dein Ziel?


Gruß Carsten

[snb]

Antwort: schau mal http://www.clever-excel-forum.de/thread-...l#pid73625

minor:

Code:

Sub M_snb()
    c00 = "J:\download\Upload_artikel.csv"
    With CreateObject("scripting.filesystemobject")
        .createtextfile(c00).write Replace(Replace(.opentextfile(c00).readall, Chr(34), ""), ", ", " ")
    End With
    
    With ActiveSheet.QueryTables.Add("TEXT;" & c00, Range("$A$1"))
         .FieldNames = True
        .TextFilePlatform = 65001
        .TextFileCommaDelimiter = True
        .TextFileDecimalSeparator = "."
        .Refresh False
    End With
End Sub

[DbSam]

Ja, habe mir Deinen Link angeschaut ...
Aber Lascar hat doch den Fehler inzwischen gefunden und leider kommt er mit PowerQuery nicht zurecht:

/€: Asche über mein Haupt. In der ursprünglichen Excel war bei Datenverbindungen aus irgendeinem Grund auf einmal der Haken bei "Beim Aktualisieren Dateinamen bestätigen" gesetzt - deswegen hat Excel vermutlich überhaupt erst nach der Quelle gefragt. Die ursprüngliche Fragestellung hat sich damit dann wohl erledigt. Das mit Power Query interessiert mich aber weiterhin: sowohl der Fehler dessen Ursache ich nicht verstehe, als auch Power Query an sich. Man will ja stetig seinen Horizont erweitern (:

Deine zweite Version ist etwas besser, leider immer noch mit falschen Formaten und es verschiebt die per PQ importierte, originale und richtig formatierte Tabelle.
[
Bild bitte so als Datei hochladen: Klick mich!
]
Und es löscht alle(!) Anführungszeichen aus der Datei, auch die richtig gesetzten. Das heißt, es würde mir meine schöne Datei zerstören.


Gruß Carsten

[snb]

Du solttest keine deutschsprachige Excel verwenden. Bei mir läuft makellos.

[DbSam]

Ja, das kann sein. :)
Nützt mir aber nichts wenn es dann in der Firma im deutschsprachigen Office nicht läuft. Einen Heldentod stirbt man immer ... ;)