CSV speichern über 25000 zeichen nicht möglich?

Forumthread: CSV speichern über 25000 zeichen nicht möglich?
5 Beiträge zu diesem Forumthread
Anzeige
302 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen
Top 100 Forumthreads

Forumthread: CSV speichern über 25000 zeichen nicht möglich?

15.02.2009 18:24:00

Hi!
Hatte gestern schon mal einen Beitrag geschriben wo ich mein Problem geschildert habe.
Und zwar will ich einem Excel datei als csv speichern.
Ich bekomme aber eine Fehlermeldung: Datei ist nicht vollständig gespeichert!
Ich hab jetzt heraus gefunden das der Vorgang immer dann abbricht wenn in einer zelle mehr als 25.000 zeichen drin sind!
Ist das möglich! Kann man das umgehen?
Gruß
M. Schnuchel

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

habe keine Antwort,eine Gegenfrage.

15.02.2009 19:06:00

Tino
AW: habe keine Antwort,eine Gegenfrage.

15.02.2009 19:15:00

M.
kannst Du dies nicht auf mehrere aufteilen? oT.

15.02.2009 19:16:00

Tino
AW: kannst Du dies nicht auf mehrere aufteilen? oT.

15.02.2009 19:31:00

M.
AW: kannst Du dies nicht auf mehrere aufteilen? oT.

15.02.2009 19:53:00

Josef

habe keine Antwort,eine Gegenfrage.

15.02.2009 19:06:00

Tino

Hallo,
wie kommen so viele Zeichen in eine Zelle, was will man damit erreichen?
Frage offen!
Gruß Tino

AW: habe keine Antwort,eine Gegenfrage.

15.02.2009 19:15:00

Guten Abend!
Ich brauche die Datei um artikel bei ebay einzustellen! In der Spalte ist die Beschreibung in HTML.
Reicht dir das als antwort?
Gruß

kannst Du dies nicht auf mehrere aufteilen? oT.

15.02.2009 19:16:00

Tino

AW: kannst Du dies nicht auf mehrere aufteilen? oT.

15.02.2009 19:31:00

Nein! Das eine sind die Spalten für versand, preis, kategorie usw und der Dickste anteil daran ist dann die beschreibung. Die ist HTML und dann ist halt alles drin was der kunde bei Ebay als Artikelbeschreibung sieht. das kann man nicht teilen! es sein denn das kann man per makro so hin bekommen das beim speichern als csv aus zwei zellen eine gemacht werden bzw ein mit ; getrennter bereich!
gruß

AW: kannst Du dies nicht auf mehrere aufteilen? oT.

15.02.2009 19:53:00

Josef

Hallo M?,
probier mal dieses Makro, es gehört in ein allgemeines Modul und bezieht sich immer auf die aktive Tabelle.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub exportCSV()
    Dim lngLast As Long, lngRow As Long, lngCol As Long, lngLastCol As Long
    Dim strFile As String, strTmp As String
    Dim varText As Variant

    Const cstrSep As String = ";" 'trennzeichen

    strFile = "E:\Temp\ebay.csv" 'Speicherpfad der CSV - Anpassen

    lngLast = Application.Max(2, Cells(Rows.Count, 1).End(xlUp).Row)
    lngLastCol = Cells(1, Columns.Count).End(xlToRight).Column

    varText = Range(Cells(1, 1), Cells(lngLast, lngLastCol))

    Open strFile For Output As #1


    For lngRow = 1 To lngLast
        strTmp = ""
        For lngCol = 1 To lngLastCol
            strTmp = strTmp & varText(lngRow, lngCol) & cstrSep
        Next
        strTmp = Left(strTmp, Len(strTmp) - Len(cstrSep))
        Print #1, strTmp
    Next

    Close #1

End Sub

Gruß Sepp

;