Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1828to1832
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

cvs speichern

cvs speichern
01.05.2021 14:21:18
Patricia
Hallo zusammen
Ich habe einen coolen Code gefunden, um ein worksheet aus einer Arbeitsmappe als csv zu speichern.
Nun habe ich den Codenamen etwas angepasst (Firmennamen hinzu), nun läuft das Ding nicht mehr.
Kann die Datei leider nicht senden, da es mit der Buchhaltung verbunden ist.
aber evtl. seht ihr auch so, was hier nicht stimmt?
Liebe Grüsse und vielen Dank!

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
Dim sSW_Name_Tabelle As String
Dim sSW_Trennzeichen As String
Dim sSW_SpeicherPfad As String
Dim sRM_Datum_Zeit As String
Dim sSW_DateiName As String
Dim strTrennzeichen As String
Dim entity_text As String
sSW_Name_Tabelle = "CSV_Export"
sSW_Trennzeichen = ";"
On Error GoTo Fehlermeldung
' Speichern vom aktuellen Dateipfad
sSW_SpeicherPfad = ActiveWorkbook.Path
' Speichern CompanyName
entity_text = ActiveWorkbook.Sheets("Sheet10").Range("c1").Value
' 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 & "" & entity_text & "" & sSW_Name_Tabelle & " - " & sRM_Datum_Zeit & ".csv"
' Tabelle "CSV_Export" selektieren - ActiveSheet
tab_upload.Select
' Exportbereich setzen
Set Bereich = tab_upload.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_Trennzeichen
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Doppelt owT
01.05.2021 14:22:35
SF
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige