Speicherpfad einer Makro-erzeugten Datei
20.07.2021 11:23:56
Ben
ich habe ein Makro, welches mir die bestehende Datei als CSV ausgibt. Nun versuche ich aber statt dem aktuellen Pfad, einen bestimmten Pfad vorzugeben. mit Activesheet.saveas Filename =.... komme ich leider nicht weit. Habt Ihr eine Idee wie ich den Pfad für meine erzeigte CSV-Datei bestimmen kann?
Public Sub CSV()
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_Trennzeichen = ";"
On Error GoTo Fehlermeldung
' Speichern vom aktuellen Dateipfad
sSW_SpeicherPfad = "\\C:\Bespielpfad\"
' 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 = "Importdatei" & ".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_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