VBA Datei speichern unter

Computer: Software & Programmierung Visual Basic
#1

Hallo Leute,
ich habe ein Makro erstellt, das automatisch einen Screenshot von einem aktiven Fenster macht. Dieser Screenshot wird auf einem bestimmten Pfad gespeichert. Nun möchte ich aber, dass der Dateiname gleich dem Datum und der jeweiligen Uhrzeit ist. Momentan speichert das Makro nur unter dem Namen „Screenshot“, da ich das genau so angegeben habe. Nun also meine Frage: Wie muss ich das Makro umschreiben, damit es dem jeweiligen Screenshot einen Dateinamen aus Datum& Uhrzeit zuweist? Hier mal der Teil des Makros der für das Speichern verantwortlich ist:

Public Sub GetSnapshot()
Dim hWnd As Long
Dim udtRect As RECT
Sleep 2000
hWnd = GetForegroundWindow
GetWindowRect hWnd, udtRect
stdole.SavePicture hDCToPicture(GetDC(0&amp:wink:, udtRect.Left, udtRect.Top, _
udtRect.Right - udtRect.Left, udtRect.Bottom - udtRect.Top), _
„C:\EigeneDateien\Screenshot.bmp“
End Sub

#2

Hallo,
weiss hier leider keine Lösung, aber schaue mal bei www.Herber.de im Archiv nach. Da sind Beispiele drin, zumindest mit einem Saveas-Befehl.
Gruss, U. Härtel

#3

Hallo Chris,
bei Makros bin ich nicht so fitt.
Ich denke, man muss sich den Dateinamen vorher „erstellen“ lassen und der muss dann beim Speicher-Pfad eingefügt werden.
Also Dateiname erstellen:
Dateiname = date -> wie man da noch die Uhrzeit dazu bekommt???
Dateipfad = „C:\Eigene Dateien“&Dateiname&".bmp"
Gruß Toni

#4

Hallo Chris,

Sorry, war laengere Zeit nicht mehr im Forum, denke ich kann dir nicht helfen.
Kannst ja mal unverbindlich folgendes probieren:
„C:\EigeneDateien“& Text(Datum,„TT.MM.JJJJ - hh:mm“)& „.bmp“
Gruss

Reinhard