Bitte um Hilfe / csv. Datenim/export

[bartylak]

Danke dir Klaus, nein es hat nicht geklappt und ich war dann wieder in Zeitnöten. Sorry, kann leider nur sporadisch am Shop arbeiten. Habe dir als Bild mal das Ende beigefügt, so weit bin ich gekommen. Es wurde eine neue Datei "shop.csv" ausgegeben, allerdings ohne meine Test-Artikelnummern.
Kann mich leider nur drum kümmern, wenn ich mehr Zeit habe.

[KlausK]

Sorry, mein saublöder Fehler.

Ich habe die Variable TempZeile als Datentyp Long deklariert. Long lässt aber nur Ganzzahlen zu.
Da die Variable aber auch nicht numerirsche Werte enthält, kann nur der Datentyp String oder,
wenn man gar nicht weiß was drin steht, auch Variant verwendet werden.

Der Code muss also so aussehen:

Sub CSV_Exp()

    Dim Exportdatei As String
    Dim Trennzeichen As String
    Dim Zellbereich As Range
    Dim Zeile As Object
    Dim Zelle As Object
    Dim TempZeile As String
    
    Exportdatei = ThisWorkbook.Path & "\Shop.csv"
    Trennzeichen = "|"
    Set Zellbereich = Sheets("Tabelle1").UsedRange
    
    Open Exportdatei For Output As #1
    For Each Zeile In Zellbereich.Rows
        For Each Zelle In Zeile.Cells
            TempZeile = TempZeile & Zelle & Trennzeichen
        Next Zelle
        Print #1, Left(TempZeile, Len(TempZeile) - 1)
        TempZeile = ""
    Next Zeile
    Close #1
    
End Sub

Nun solltest du aber Erfolgserlebnisse haben

[bartylak]

So, ich habe nochmal alles von vorn angefangen. Wieder gibt es eine Fehlermeldung und es wurde keine shop.csv erstellt.
Was ich auch noch nicht in Excel kann ist eine genaue Zuordnung der Parameter zb. product_id zu einer def. Spalte/Zeile. Das gelingt mir nur in oo calc. Wenn dann eine shop.csv erstellt wurde, kann ich dann nur die für mich wichtigen Parameter einfügen (Artikel, Beschreibung, Preis, Steuer etc) oder sollte ich immer die gesamte erste Zeile einfügen? Kannst du nochmal rüberschauen, vielen Dank und viele Grüße. Andreas

[KlausK]

Die Fehlermeldung kommt, weil du höchstwahrscheinlich die Shop.csv noch geöffnet
hast. Die Spaltenbeschriftung muss natürlich auch getrennt sein.

Ich habe hier mal eine funktionierende Beispielmappe mit Makro angehangen. Excel wird
u.U. davor warnen das Makro auszuführen. Die entsprechenden Einstellungen kannst du
unter Entwicklertools / Makrosicherheit vornehmen.

Alle Zellen müssen textformiert sein um Fehler bei den einzelnen Werten zu vermeiden.
Bei Zahlenwerten musst du anstatt dem Komma einen Punkt verwenden.

Du könntest vielleicht die eine oder andere Spalte mehr oder vielleicht weniger haben.
Das vergleichst du am besten mit deiner vom Shop exportierten CSV-Datei.

MS-Excel 2010 CSV-Export für Gambio

[bartylak]

Hallo Klaus, vielen Dank, es hat mit deiner Tabelle funktioniert! Habe zwar nur mit 20 Artikel gearbeitet, aber immerhin, es funktioniert und spart ne Menge Zeit. Werde es weiter auch mit 200/300 Artikel versuchen. Meine Angelegenheit ist somit vorerst erledigt. Viele Grüße und alles Gute. andreas

[Maxxland]

Hallo Klaus, also ich habe mir jetzt immer und immer wieder alles durch gelesen , angefangen beim Ebook von Gambio bis zu deinem Beitrag hier im Forum nur kapiere ich nicht wirklich viel ! Bin kein Programmierer ! Gambio sagt im Ebook ich soll mit Libre Office die CSV bearbeiten, andere sagen mit Open Office und du sagst mit PSPAD !


Fakt ist, ich hänge jetzt schon über eine Woche an diesem Problem und versuche die Dateien für Gambio anzupassen, was mir halt nicht gelingen mag.

Wäre sehr nett von dir wenn du mir diesbezüglich weiter helfen könntest !


Wünsche Dir noch einen schönen Tag,

Chris

[KlausK]

Hallo Chris! Willkommen im Forum.

Mit welchem Kalkulationsprogramm in welcher Version arbeitest du?
Microsoft Excel 2010 wäre gut

Und welche Shopversion hast du?

[Maxxland]

Das würde mich auch sehr interessieren da ich schon über eine Woche mich mit diesem Problem beschäftige und rum quäle !

Gruß,

Chris

[Maxxland]

Hallo Klaus, ich habe das neue Open Office und Libre Office 4.3 da ich kein Microsoft Exel besitze oder wo bekomme ich das her ? Und wenn ich es habe wie arbeite ich damit ? Fragen über Fragen ....

[Maxxland]

Ok Klaus habe es zum Downloaden gefunden ! Warte jetzt bis der Download abgeschlossen ist , dann kann es losgehen !

Gruß,

Chris