Guten Morgen Zusammen,
Vielleicht kann mir jemand bei meinem Problem behilflich sein.
Ich möchte eine CSV Exportieren nur soll der Speicherpfad Variabel zum Dateiname sein
Ich möchte eigentlich umgehen dem Pfad jeden Monat bzw. anpassen zu müssen.
C:\Daten\2020\Dezember
Vielen Dank im Voraus.
Beste Grüße René
Option Explicit
Sub SaveAsCSV()
Dim DstFileName As String, DstPfad As String
Dim Delimiter As String
Dim strZe As String
Dim lRow As Long, lCol As Integer
Dim Ze As Long, Sp As Integer
Dim ff As Integer
On Error GoTo ErrorHandler
DstPfad = "C:\Daten\" 'Anpassen, muss bereits existieren
DstFileName = DstPfad & Format(Now, "YYYYMMDD") & '".csv"
Delimiter = ";"
With ActiveSheet
lRow = .Cells.Find(what:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lCol = .Cells.Find(what:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
ff = FreeFile
Open DstFileName For Output As #ff
'Zeile für Zeile lesen und schreiben ...
For Ze = 1 To lRow
For Sp = 1 To lCol - 1
strZe = strZe & .Cells(Ze, Sp) & Delimiter
Next Sp
strZe = strZe & .Cells(Ze, Sp)
Print #ff, strZe
strZe = ""
Next Ze
End With
ErrorHandler:
If Err.Number <> 0 Then MsgBox "Fehler Nr. " & Err.Number & vbCrLf _
& Err.Description, vbCritical + vbOKOnly, "Das ging schief ..."
If ff > 0 Then Close #ff
End Sub
|