Exportieren von Daten in eine CSV - Excel-VBA

Sagen, dass ich eine Funktion erzeugt, dass einige Daten in die Zellen in das aktuelle Arbeitsblatt wie :

Cells(1, "A").Value = ...
Cells(2, "A").Value = ...
Cells(3, "A").Value = ...
Cells(4, "A").Value = ...

Statt des vom aktuellen Arbeitsblatt in der aktuellen Arbeitsmappe, erstellen und laden Sie Sie in eine csv-Datei, um eine geben Sie den Pfad

Sagen C:\USERS\Documents\Sample.csv.

Ich habe gesehen, Sachen wie

     ActiveWorkbook.SaveAs Filename:= _
"c:\MyFile.csv", FileFormat:=xlCSV _
, CreateBackup:=False

Aber das wird nur speichern Sie die aktuelle Arbeitsmappe an einem anderen Speicherort, aber ich will nicht zu generieren, die Daten im aktuellen Arbeitsblatt und speichern Sie, sondern ich exportieren möchten sofort? Gibt es trotzdem kann ich das tun. Vielleicht machen, wie ActiveWorkbook = //pathname und dann Aktivieren ?

  • Zuerst öffnen Sie eine neue Arbeitsmappe. Dann haben Sie Ihre makro-Daten hinterlegen Sie in der neuen Arbeitsmappe. Dann haben Sie makro-speichern Sie die neue Arbeitsmappe als csv-Datei in Ihrem Ordner der Wahl mit Ihrem Namen der Wahl. Dann schließen Sie die neue Arbeitsmappe.
  • Ich bin mit Workbooks.Add zu einer anderen Arbeitsmappe erstellen. Wie würde ich jetzt aktivieren, um sicherzustellen, im Import um es ... ist so etwas wie NewWorkbook.Sheets(1).Activate ?
  • Nicht nur Arbeitsmappen.fügen Sie... so etwas wie... dim wb as workbook // Set wb = workbooks.add // mit wb ...
InformationsquelleAutor Thatdude1 | 2013-10-09
  1. 12

    Können Sie schreiben, um eine CSV-ganz einfach mit VBA.
    Ein Beispiel könnte sein:

    Sub WriteCSVFile()

Dim My_filenumber As Integer
Dim logSTR As String

My_filenumber = FreeFile

logSTR = logSTR & Cells(1, "A").Value & " , "
logSTR = logSTR & Cells(2, "A").Value & " , "
logSTR = logSTR & Cells(3, "A").Value & " , "
logSTR = logSTR & Cells(4, "A").Value

Open "C:\USERS\Documents\Sample.csv" For Append As #My_filenumber
    Print #My_filenumber, logSTR
Close #My_filenumber

End Sub
    • The_Barman: Sehr schön & sauber!
    • Diese Lösung behandelt nicht die Fälle, in denen Leerzeichen oder Zeilenumbrüche oder Kommata gibt es in Ihrem Daten. Verwenden Sie immer eine echte CSV-Funktion eher als Verkettung Ihren eigenen Saiten.
    • dataless... eher als Hinweis auf eine bessere Lösung und nicht wirklich hinzufügen, um die site... bitte, nehmen Sie sich die Zeit, um nach eine bessere Lösung. Ich bin immer glücklich, um zu lernen. Vielleicht versuchen, nicht zu klopfen, die anderen runter, sondern versuchen zu helfen, Sie bis.
    InformationsquelleAutor The_Barman
  2. 7

    Verwenden .bewegen, um zu machen, ein neues Buch von der Ziel-Blatt, dann .saveas das neu erstellte Adressbuch als CSV-Datei. Passen Sie die Pfadnamen anpassen, das Verzeichnis, wo Sie möchten, dass Ihre csv gespeichert. 

        Pathname = "" & Thisworkbook.path & "YourName.csv"
    Sheets("Sheet you want as CSV").Move
    ActiveWorkbook.SaveAs Filename:=PathName, _
        FileFormat:=xlCSV, CreateBackup:=False
    InformationsquelleAutor CharlieSmith
  3. 1

    Nur modifiziert den code von @CharlieSmith zu einer relativ einfachen und mehr verwendbaren code, das wird konvertieren Sie alle Arbeitsblätter in Ihrer Arbeitsmappe, um eine neue csv-Dateien mit dem Namen mit den entsprechenden Blattnamen.

    Sub WriteCSVFile()
Dim i As Integer
Dim WS_Count As Integer

WS_Count = ActiveWorkbook.Worksheets.Count
For i = 1 To WS_Count
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets(i)
     PathName = "" & ThisWorkbook.Path & "\" & ws.Name & ".csv"
    ws.Copy
    ActiveWorkbook.SaveAs Filename:=PathName, _
        FileFormat:=xlCSV, CreateBackup:=False
Next i

End Sub

    Hoffe, das hilft

    InformationsquelleAutor Praveen Agarwal
Schreibe einen Kommentar