Thema Datum  Von Nutzer Rating
Antwort
20.12.2020 08:55:17 René
NotSolved
20.12.2020 09:12:07 Gast99302
NotSolved
20.12.2020 09:39:49 René
NotSolved
20.12.2020 10:14:05 Gast96984
NotSolved
20.12.2020 10:17:44 Gast40264
NotSolved
20.12.2020 10:43:35 René
NotSolved
20.12.2020 11:31:08 Gast64665
NotSolved
Blau Export Csv mit Variablen Pfad je nach aktuellen Monat
20.12.2020 11:47:24 Gast44683
Solved
20.12.2020 13:33:04 Rene
NotSolved
20.12.2020 13:44:39 Gast46564
NotSolved

Ansicht des Beitrags:
Von:
Gast44683		 Datum:
20.12.2020 11:47:24		 Views:
493		 Rating:
     
Antwort:
 Nein
Thema:
Export Csv mit Variablen Pfad je nach aktuellen Monat

Vom Prinzip her so (wie bereits beschrieben):

Option Explicit

'https://docs.microsoft.com/en-us/windows/win32/api/dbghelp/nf-dbghelp-makesuredirectorypathexists
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long

Sub SaveAsCSV()
  
  Dim DstPfad As String
  Dim DstFileName As String
  
  DstPfad = "C:\Daten\" & Format$(Date, "YYYY\\MMMM\\")
  DstFileName = DstPfad & Format(Now, "YYYYMMDD") & ".csv"
  
  If Not CBool(MakeSureDirectoryPathExists(DstPfad)) Then
    Call MsgBox("Ziel-Verzeichnis konnte nicht erstellt werden.", vbExclamation)
    Exit Sub
  End If
  
  '...
  
  Dim QNr As Long
  QNr = FreeFile()
  Open DstFileName For Output As #QNr
    '...
  Close #QNr
  
End Sub

 

Ihre Antwort
  • 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: Name: Email:



  • 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
20.12.2020 08:55:17 René
NotSolved
20.12.2020 09:12:07 Gast99302
NotSolved
20.12.2020 09:39:49 René
NotSolved
20.12.2020 10:14:05 Gast96984
NotSolved
20.12.2020 10:17:44 Gast40264
NotSolved
20.12.2020 10:43:35 René
NotSolved
20.12.2020 11:31:08 Gast64665
NotSolved
Blau Export Csv mit Variablen Pfad je nach aktuellen Monat
20.12.2020 11:47:24 Gast44683
Solved
20.12.2020 13:33:04 Rene
NotSolved
20.12.2020 13:44:39 Gast46564
NotSolved