Autom. Ordner mit Tagesdatum erstellen

Computer: Software & Programmierung Office Software
1

Hallo Leute,

wieder bezogen auf meinen Artikel http://www.wer-weiss-was.de/app/service/board_navi?A…
möchte ich Bilder meiner Tabellen automatisch abspeichern.

Dazu benötige ich einen Ordner mit dem Tagesdatum im Format jjjj-mm-tt in dem ich dann die .gifs abspeichere.
Ich weiß, wie die Prüfung geht, ob der Ordner existiert, ich weiß, dass man den Ordner mit mkDir neu anlegt, aber ich bekomme es nicht hin, dass er mir das in meinem gewünschten Format macht. Habe schon alles versucht, bin zu doof - oder es ist schon zu spät :wink:

Hier mein Code:

 tach = Left((Date), 2)
 mon = Mid((Date), 4, 2)
 ja = Right((Date), 4)
 TagDat = ja & "-" & mon & "-" & tach
 If Dir ("C:\Eigene\_Dateien\_Lokal\TagDat", vbDirectory) = "" Then
 MkDir "C:\Eigene\_Dateien\_Lokal\TagDat"
 Else
 End If

TagDat habe ich als String definiert, war da schon der Fehler? Stehe einfach auf dem Schlauch *grrrrrrr*

Viele Grüße
Tina

2

Dazu benötige ich einen Ordner mit dem Tagesdatum im Format
jjjj-mm-tt in dem ich dann die .gifs abspeichere.
Ich weiß, wie die Prüfung geht, ob der Ordner existiert, ich
weiß, dass man den Ordner mit mkDir neu anlegt, aber ich
bekomme es nicht hin, dass er mir das in meinem gewünschten
Format macht.

Hallo Tina,

so vielleicht:

Sub tt()
Dim TagDat As String
TagDat = Format(Date, „yyyy-mm-dd“)
If Dir(„C:\Eigene_Dateien_Lokal\TagDat/nul“) = „“ Then
MkDir „C:\Eigene_Dateien_Lokal\TagDat“
End If
End Sub

Gruß
Reinhard

3

Hallo Reinhard,

Sub tt()
Dim TagDat As String
TagDat = Format(Date, „yyyy-mm-dd“)
If Dir(„C:\Eigene_Dateien_Lokal\TagDat/nul“) = „“ Then
MkDir „C:\Eigene_Dateien_Lokal\TagDat“
End If
End Sub

Vielen Dank, das Format macht er prima, aber den neuen Ordner legt er so wie bei mir auch mit dem Namen „TagDat“ an und nicht mit „2008-10-16“
*verzweifel*

Grüße
Tina

4

Halt, ich habs!
Hallo Reinhard,

Sub ord()
Dim TagDat As String
TagDat = Format(Date, "yyyy-mm-dd")
oname = "C:\Eigene\_Dateien\_Lokal\Gifs\" & TagDat
If Dir("oname") = "" Then
MkDir oname
End If
End Sub

Haha, so geht’s - warum auch immer!!

Grüße
Tina

5

Zu früh gefreut!
Hallo Reinhard,

Leider habe ich ich zu früh gefreut. Ich lege zwar einen neuen Ordner an, wenn er noch nicht da ist, wenn er aber schon exisiert, erhalte ich eine Fehlermeldung: „Fehler beim Zugriff auf Pfad/Datei“

Sub ord()
Dim TagDat As String
TagDat = Format(Date, „yyyy-mm-dd“)
oname = „C:\Eigene_Dateien_Lokal\Gifs“ & TagDat
If Dir(„oname“) = „“ Then
MkDir oname
End If
End Sub

Hab auch schon

If Dir("oname/nul") = ""

ausprobiert, geht aber auch nicht!

Hilfe!
Tina

6

Leider habe ich ich zu früh gefreut. Ich lege zwar einen neuen
Ordner an, wenn er noch nicht da ist, wenn er aber schon
exisiert, erhalte ich eine Fehlermeldung: „Fehler beim Zugriff
auf Pfad/Datei“

Hallo Tina,

sorry, hab beim ersten Code gepennt. probiers mal so:

Sub tt()
Dim TagDat As String
TagDat = Format(Date, "yyyy-mm-dd")
If Dir("h:\Eigene\_Dateien\_Lokal\" & TagDat & "/nul") = "" Then
 MkDir "h:\Eigene\_Dateien\_Lokal\" & TagDat
End If
End Sub

Gruß
Reinhard

7

Danke!
Hallo Reinhard,

vielen vielen Dank, alles funktioniert wie gewünscht. Wenn es interessiert, kann ich den Code gerne zur Verfügung stellen. Der abgewandelte Code aus http://www.geocities.com/davemcritchie/excel/xl2gif.htm
arbeitet nun alle Tabellenblätter eines Workbooks automatisch ab, markiert die benutzten Bereiche, kopiert sie als .gif und speichert sie in einem Ordner mit Tagesdatum ab.

Wie immer Danke für die Hilfe, es wäre sicher nicht so schnell gegangen ohne Deine Unterstützung!

Grüße
Tina