|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Export Csv mit Variablen Pfad je nach aktuellen Monat |
20.12.2020 08:55:17 |
René |
|
|
|
20.12.2020 09:12:07 |
Gast99302 |
|
|
|
20.12.2020 09:39:49 |
René |
|
|
|
20.12.2020 10:14:05 |
Gast96984 |
|
|
|
20.12.2020 10:17:44 |
Gast40264 |
|
|
|
20.12.2020 10:43:35 |
René |
|
|
|
20.12.2020 11:31:08 |
Gast64665 |
|
|
|
20.12.2020 11:47:24 |
Gast44683 |
|
|
|
20.12.2020 13:33:04 |
Rene |
|
|
|
20.12.2020 13:44:39 |
Gast46564 |
|
|
Von:
René |
Datum:
20.12.2020 08:55:17 |
Views:
764 |
Rating:
|
Antwort:
|
Thema:
Export Csv mit Variablen Pfad je nach aktuellen Monat |
|
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Export Csv mit Variablen Pfad je nach aktuellen Monat |
20.12.2020 08:55:17 |
René |
|
|
|
20.12.2020 09:12:07 |
Gast99302 |
|
|
|
20.12.2020 09:39:49 |
René |
|
|
|
20.12.2020 10:14:05 |
Gast96984 |
|
|
|
20.12.2020 10:17:44 |
Gast40264 |
|
|
|
20.12.2020 10:43:35 |
René |
|
|
|
20.12.2020 11:31:08 |
Gast64665 |
|
|
|
20.12.2020 11:47:24 |
Gast44683 |
|
|
|
20.12.2020 13:33:04 |
Rene |
|
|
|
20.12.2020 13:44:39 |
Gast46564 |
|
|