Bereich mit Schleife in große csv-Datei

Hallo Forums-Experten,

ich möchte einen Bereich mit einer for-next Schleife (ca. 3000 wird die Schleife durchlaufen) in eine große csv-Datei kopieren.
Die Daten-Bereiche sollen einfach (ist das einfach, ich weiß es nicht?) untereinander kopiert werden in der csv-Datei, da ein exceltabellenblatt mit 1Mio Zeilen zu klein ist...

Die Trennung der einzelnen Spalten in Excel soll in der csv-Datei mit einem Semikolon erfolgen.
Hier auszugsweise der relevante Teil vom Makro, welches ich bisher in Excel nutze

'Sheets("Auswertung").Select
'Range(Cells(259, 1), Cells(wEnde, 24)).Select
'Selection.Copy

Nun soll in eine csv-Datei kopiert werden
Bisher kopiere ich es in eine Tabellenblatt mit dem Namen CSV in der gleichen Arbeitsmappe

'Sheets("CSV").Select
'Spalte = 1
'CSV_Ende = Worksheets("KNN").Cells(Rows.Count, Spalte).End(xlUp).Row

'Cells(CSV_Ende + 1, 1).Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
':=False, Transpose:=False

'Next

Kann mir da jemand einen Code bitte generieren (was das Thema csv-Dateinen angeht, bin ich noch nicht einmal ein blutiger Anfänger...
Dateiname der CSV-Datei könnte z.B. sein Daten_TT_MM_YYYY.csv

Hinweis...vielleicht ist das wichtig(?)
In dem zu kopierenden Bereich steht in der Spalte B ein Datum mit dem Format TT.MM.YYYY.
In der Spalte C steht eine Buchstabenkombiantion (also Text bzw. String).
Ansonsten sind in den anderen Spalten Zahlen vom Format Double und das Dezimal-Trennzeichen ist ein Komma.
Ein Trennzeichen für 1000er habe ich nicht in Excel formatiert.

So, ich hoffe, ich habe nichts wichtiges vergessen für die Aufgabenstellung und bin gespannt auf Eure Antworten.

Vorab vielen Dank für die Hilfe!

Bernd

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() 'LastZell in Auswertung + CSV ermitteln wEnde = Worksheets("Auswertung").Cells(Rows.Count, 1).End(xlUp).Row CSV_Ende = Worksheets("CSV").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Auswertung").Range("A259:X" & wEnde).Copy Sheets("CSV").Cells(CSV_Ende, 1).PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

hi Bernd,
also wenn du nur einen Zellbereich direkt in eine csv datei schreiben möchtest ohne erst das ganze Blatt vollzuschreiben, dann evtl. so.
das erste ist ein automatisch von MZ-tools generierter Korpus für so ein Vorhaben. Sieht gar nicht so kompliziert aus

Dim fileHandle As Integer
   
   fileHandle = FreeFile
   
   Open "f:\test\csv.csv" For Output As #fileHandle
   Print #fileHandle, "werte als Text in datei"
   
   Close #fileHandle

das ist ein Beispiel aus einer Datei in meiner Wühlkiste. Hier wird nur ein Zellbreich in eine CSV geschrieben.
Da müßte dann noch eine Schleife rein, um die Bereiche mehrfach(jeweils nach den Berechnungsschritten) zu durchlaufen.
Hoffe es hilft etwas weiter.

 Sub ExportCSV()
       Dim ws     As Worksheet, fd As FileDialog, rngTest As Range, rng As Range, fltr As FileDialogFilter
       Dim i      As Long, lRow As Long, lLastRow As Long, line As String
       Dim csvContent As String, fso As Object, csvFile As Object
       Dim strFilePath As String
 '******************************************************************************
       strFilePath = "F:\txxxxxxxxx\_" & Format(Date, "dd_mm_YYYY") & ".csv" 'anpassen

 '*************************************************************************************
         If Dir(strFilePath) > "" Then Kill strFilePath 'Datei löschen wenn vorhanden
        
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set csvFile = fso.OpenTextFile(strFilePath, 2, True)
     
        'Worksheet auf dem die Daten stehen
        Set ws = Worksheets("Kunden")
        lLastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 'letzte belegte Zeile in Spalte A
        'schleife über Datenbereich und Text erstellen 
          For lRow = 3 To lLastRow                
                line = ""
                For Each rng In ws.Range("C" & lRow & ":H" & lRow & "," & "S" & lRow & ":U" & lRow) '
                    line = line & "" & rng.Value & "" & ";"   'Semikolon als Trenner in der Zeile
                Next
                  csvContent = csvContent & Left(line, Len(line) - 1) & vbNewLine  ' Zeile abschliessen
        Next
        
        If csvContent = "" Then MsgBox "Keine Daten gefunden": Exit Sub
        
        csvFile.Write (csvContent)   'Daten in Datei schreiben
       
        csvFile.Close   'datei schliessen 

        If Err = 0 Then MsgBox "Datei erstellt" & vbLf & strFilePath, vbInformation, "CSV - Export"
                        
   End Sub

Beliebteste Forumthreads (12 Monate)

Bereich mit Schleife in große csv-Datei

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread