Office: Tabellenblatt als csv speichern

mailmir · 31. Januar 2019

Hallo zusammen,

Ich stelle mir mit meine gewünschten Daten auf einem Tabellenblatt zusammen. Nun möchte ich NUR dieses als csv-Datei speichern, aber irgendwie drehe ich mich im Kreis.

Ich habe mir folgendes Script zusammen gestellt

Code:

Public Sub TbBlatt_als_CSV_speichern()

' zu speicherndes Tabellenblatt festlegen
sSW_Name_Tabelle = "CSV_Export"

' zu speicherndes Tabellenblatt selektieren
Sheets(sSW_Name_Tabelle).Select

On Error GoTo Fehlermeldung

' Festlegen vom Speicherpfad
MySpeicherPfad = ActiveWorkbook.Path

' Speichern der aktuellen Systemzeit
AktuelleZeit = Format(Now, "YYYY-MM-DD - HH-MM-SS")

' Festlegen vom Dateiname
MyFileName = sSW_Name_Tabelle & " - " & AktuelleZeit & ".csv"

' Speichern als CSV
ActiveSheet.SaveAs MySpeicherPfad & "" & MyFileName

GoTo Fertigmeldung

'Fehlermeldung
Fehlermeldung:
MsgBox ("Datei wurde nicht gespeichert")
GoTo Ende

'Fertigmeldung
Fertigmeldung:
MsgBox ("Datei wurde korrekt gespeichert")

Ende:

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit diesem Script wird immer meine gesamte Arbeitsmappe (5 Tabellen) als csv-Datei gespeichert. Das bringt mir GARNICHTS. ich möchte NUR das aktuelle Tabellenblatt in der csv-Datei / im csv-Format, da ich diese csv-Datei für ein anderes Programm als Importdatei benötige

Wo liegt mein Fehler, bzw wie muss der Speicherbefehl (ActiveSheet.SaveAs MySpeicherPfad & "" & MyFileName) korrekt heißen?

DANKE schon mal für eure Hilfe, Gruß Norbert

:)

mailmir · 2. Februar 2019

Ich habe ein wenig Google bemüht und verschiedenste Lösungen gefunden. Aus mehreren Ansätzen konnte ich mir dann eine, für mich funktionierende Lösung erarbeiten. Hier der Code, falls es jemanden interessiert

Code:

Public Sub TbBlatt_als_CSV_speichern()

Dim Bereich As Object ' Bereich der bearbeitet werden Soll
Dim Zeile As Object ' Bereich der bearbeitet werden Soll
Dim Zelle As Object ' Bereich der bearbeitet werden Soll
Dim strTemp As String ' temporärer Speicher für den ExportString

sSW_Name_Tabelle = "CSV_Export"
sSW_Tennzeichen = ";"

On Error GoTo Fehlermeldung

' Speichern vom aktuellen Dateipfad
sSW_SpeicherPfad = ActiveWorkbook.Path

' Speichern vom Zeitstempel, Teil vom Dateinamen der CSV-Export-Datei
sRM_Datum_Zeit = Format(Now, "YYYY-MM-DD - HH-MM-SS")

' Zusammensetzen vom Dateinamen
sSW_DateiName = sSW_SpeicherPfad & "" & sSW_Name_Tabelle & " - " & sRM_Datum_Zeit & ".csv"

' Tabelle "CSV_Export" selektieren - ActiveSheet
Sheets(sSW_Name_Tabelle).Select

' Exportbereich setzen
Set Bereich = ActiveSheet.UsedRange

' Daten aus der Quelldatei auslesen und in die externe Datei schreiben
Open sSW_DateiName For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & CStr(Zelle.Text) & sSW_Tennzeichen

Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next

' externe Datei (CSV) schliessen und Arbeitsbereich löschen
Close #1
Set Bereich = Nothing

GoTo Fertigmeldung

Fehlermeldung:
'Fehlermeldung anzeigen
If Err Then MsgBox "Datei wurde nicht gespeichert"
GoTo Ende

Fertigmeldung:
'Fertigstellungsmeldung anzeigen
MsgBox "Export erfolgreich. Datei wurde exportiert nach " & sSW_SpeicherPfad & sSW_DateiName

Ende:

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sulprobil · 2. Februar 2019

Hallo Norbert,

Ich verwende gern die freien Programme von Erlandsen Data Consulting (Norwegen).

Einfach danach googeln, wenn Du sie mit Deiner Lösung vergleichen magst.
(Ich denke, man kann ohne Select auskommen.)

Viele Grüße,
Bernd P

mailmir · 2. Februar 2019

Hoi Bernd,

DANKE für den Tipp. Scheint eine coole, umfangreiche Sammlung zu sein.

Welches Select meinst du? Meinst du

Code:

. . . .
' Tabelle "CSV_Export" selektieren - ActiveSheet
Sheets(sSW_Name_Tabelle).Select
. . . .
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist richtig. Ich könnte auch das ActiveSheet direkt angeben, aber zum einen finde ich es so beim Debuggin übersichtlicher und zum anderen sollen ja auch meine Kollegen einfach und schnell sehen was ich da machen will. *grins *grins *grins

Grüße vom Bodensee . . . .

Sulprobil · 3. Februar 2019

Hi Norbert,

Yep, an den hatte ich gedacht.
Aber wenn es läuft wie es soll - never change a running system -*Smilie

Viele Grüße,
Bernd P

Office: Tabellenblatt als csv speichern

Tabellenblatt als csv speichern

Tabellenblatt als csv speichern

Tabellenblatt als csv speichern

Tabellenblatt als csv speichern - Similar Threads - Tabellenblatt csv speichern

commandbutton fließend auf dem Tabellenblatt einrichten

Tabellenblatt in neue Mappe kopieren

Beträge in anderem Tabellenblatt anzeigen lassen mit Bezug auf einen Monat und ohne Leerzellen

Daten aus einem Tabellenblatt in ein anderes kopieren ohne Leerzellen anzuzeigen

Formel für Auswahlmöglichkeiten im Tabellenblatt

Zeile per Klick farblich machen auch für weitere Tabellenblätter möglich?

Tabellenblatt als csv exportieren