Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
18.04.2024 16:33:24
Anzeige
Archiv - Navigation
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

CSV speichern über 25000 zeichen nicht möglich?

CSV speichern über 25000 zeichen nicht möglich?
15.02.2009 18:24:00
M.
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
Anzeige
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
M.
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
M.
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ß
Anzeige
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

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige