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