Tipp für Export und Import mit Excel nach JTL

[tom]

Da Excel keine richtige csv Dateien erzeugt, gibts bei Import immer Probleme. Hier gibts ein Makro das die CSV Datei richtig aufbereitet. Ansehen kann man das Ganze dann z.B. mit Notepad++.

Vorgehen:

Anleitung für Makro in Excel, zum korrrekten Export als .CSV:

Die Bearbeitung einer CSV-Datei mit Excel ist keine Freude.
Excel lässt sich nicht überreden, als Trennzeichen ein Komma zu verwenden und
Einträge, die selbst ein Komma enthalten, in Anführungszeichen zu setzen. Dies ist aber notwendig,
wenn man die CSV-Datei mit anderen Programmen verwenden will.
Mir ist leider auch keine praktikable Möglichkeit bekannt.

Als kleinen Workaround habe ich mir ein Excel-Makro gebastelt. Man kann es in Excel einbinden,
indem man den Text als Datei mit der Erweiterung ".bas" abspeichert, dann in Excel mit Alt-F11 den VB-Editor
aufruft und dort über "Datei - Importieren" die eben gespeicherte Datei einbindet. Dann kann der VB-Editor geschlossen werden.
Wenn man nun eine Tabelle als CSV exportieren möchte, ruft man auf "Extras - Makros - SaveCSV".

'ORIGINAL MAKRO
Sub SaveCSV()
' Speichert den Inhalt eines Arbeitsblatts als CSV-Datei
' mit wählbarem Trennzeichen und Maskierung von Einträgen
' von [email]Nils@Kaczenski.de[/email], 30.1.2003
' Ohne Gewähr!

Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strDateiname As String
Dim strTrennzeichen As String
Dim strMappenpfad As String

strMappenpfad = ActiveWorkbook.FullName
strMappenpfad = Replace(strMappenpfad, ".xls", ".csv")

strDateiname = InputBox("Wie soll die CSV-Datei heißen (inkl. Pfad)?", "CSV-Export", strMappenpfad)
If strDateiname = "" Then Exit Sub

strTrennzeichen = InputBox("Welches Trennzeichen soll verwendet werden?", "CSV-Export", ",")
If strTrennzeichen = "" Then Exit Sub

Set Bereich = ActiveSheet.UsedRange

Open strDateiname For Output As #1

For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then
'Zellen, die ein Trennzeichen beinhalten in Anführungsstriche setzen
strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
End If
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next

Close #1
Set Bereich = Nothing
MsgBox "Datei wurde exportiert nach" & vbCrLf & strDateiname

End Sub
-----------------------------------

Ich hoffe geholfen haben zu können...öööhmmmm

Quelle:
http://forums.oscommerce.de/index.php?showtopic=23373

 

[zwitsch]

Excel läßt sich sehrwohl überreden...

Zahlenfelder mit 2 Kommastellen und OHNE Tausender-Trennzeichen formatieren. Anschließend Menü Extras --> Optionen Tabulator International den Haken bei "Trennzeichen vom Betriebssystem übernehmen" rausnehmen und bei Dezimaltrennzeichen einen Punkt eintragen, CSV-Datei abspeichern und alles funktioniert.

Aber nicht vergessen, den Haken wieder zu setzen.


Gruß
Peter

 

[tom]

Gib ja noch andere Probleme die damit nicht gelöst werden.

 

[Dealux-GmbH]

Also ich weiß nicht warum immer alle Probleme beim csv-Import + Excel haben. Ich benutze beides und hatte noch nie Probleme beim Import.

 

[Illusionmedia]

AW: Tipp für Export und Import mit Excel nach JTL

Hi hat einer ein Mapping für mich ich bekomme die CSV Datei meines Lieferanten einfach nicht richtig importiert. Das ist echter mist.

Kann man eigentlich auch Bilder etc irgendwie importieren und wenn ja, wie funktioniert das eigentlich?

 

[andi1970]

AW: Tipp für Export und Import mit Excel nach JTL

Hi hat einer ein Mapping für mich ich bekomme die CSV Datei meines Lieferanten einfach nicht richtig importiert. Das ist echter mist.

Kann man eigentlich auch Bilder etc irgendwie importieren und wenn ja, wie funktioniert das eigentlich?

Es wäre äußerst sinnvoll uns dann aber auch mitzuteilen,
1.welche Wawiversion du benutzt!!