bin grad am Verzweifeln.
Ich habe folgenden Code (nicht von mir, nur angepasst) zum Exportieren in eine CSV Datei:
Sub CSV_mit_Anfuehrungszeichen_AB_Repair()
Dim wks As Worksheet, Ze As Long, Sp As Long, ZeTmp As String
Dim lCol As Long, lRow As Long, Frf As Long
Const csvExport = "C:\PIM 2.0\import Afterbuy\csvExport_Produkte-Beschreibungen.csv"
Const Trenner As String = ";"
Const Anf As String = """"
Frf = FreeFile
Set wks = ThisWorkbook.Worksheets("Afterbuy Repair")
lCol = wks.Cells(1, Columns.Count).End(xlToLeft).Column
lRow = wks.Cells(Rows.Count, 1).End(xlUp).Row
Open csvExport For Output As #Frf
For Ze = 1 To lRow
For Sp = 1 To lCol
ZeTmp = ZeTmp & Anf & CStr(wks.Cells(Ze, Sp).Text) & Anf & Trenner
Next Sp
ZeTmp = Left(ZeTmp, Len(ZeTmp) - 1) 'Letztes Trennzeichen löschen
Print #Frf, ZeTmp
ZeTmp = ""
Next Ze
Close #Frf
End Sub
In den Zellen befindet sich HTML Code. In meinem Fall beinhaltet die Zelle 10.099 Zeichen. Sollte also systemseitig kein Problem darstellen.Wenn ich jedoch nach CSV exportiere, werden nur 8.221 Zeichen aus der Zelle exportiert.
Der Code orientiert sich ja nicht an irgendwelchen Zeichen aus der Zelle, die evtl. zum vorzeitigen abschneiden des Inhaltes führen würde. Oder doch?
Hat jmd. eine Idee, an was das liegen kann?
Datei anbei.
https://www.herber.de/bbs/user/135151.xlsm
Gruß dEllE