Microsoft Excel

Herbers Excel/VBA-Archiv

VBA gesucht: Datei umbenennen

Betrifft: VBA gesucht: Datei umbenennen von: Andy
Geschrieben am: 28.08.2004 19:52:09

Hallo,

ich suche für mein Projekt einen VBA Code für folgende Funktion:
Ich speichere über eine Funktion ein Teilbereich meiner Excel Tabelle als Bild ab. Das ich dann weiterverwende. Nun möchte ich gerne, dass beim nächsten Funktionsdurchlauf diese Datei (Bild.jpg) umbenannt (in Bild_alt.jpg) wird, wenn die Datei vorhanden ist, so dass ich im weiterem Finktionsablauf die Datei nicht direkt überschreibe, sondern immer ein Bild habe, das eine Version älter ist als das aktuelle.

Wäre sehr dankbar, wenn jemand mir da weiter helfen könnte.


Gruß
Andy
PS: Hatte die Frage schoneinmal gestellt, aber leider keine brauchbare Antwort darauf bekommen...

  


Betrifft: AW: VBA gesucht: Datei umbenennen von: Piet
Geschrieben am: 28.08.2004 20:01:54

Dadurch, dass du die Frage immer wieder neu stellst, erhöhst du nicht die Bereitschaft,
zu helfen.

Piet


  


Betrifft: Bla Bla von: Jam
Geschrieben am: 28.08.2004 22:27:30

x


  


Betrifft: Ich werde dir per Email helfen von: Helga
Geschrieben am: 28.08.2004 22:29:01

Schreib dein email


  


Betrifft: AW: Ich werde dir per Email helfen von: unknown
Geschrieben am: 28.08.2004 22:34:02

jo
gute idee
du bekommst auch garantiert kein spam ;-)


  


Betrifft: Wende Dich an Piet von: Helga
Geschrieben am: 28.08.2004 22:45:05

.


  


Betrifft: AW: Wende Dich an Piet von: Piet
Geschrieben am: 28.08.2004 22:53:06

sind menschen mit einem offensichtlich weiblichen vornamen immer so dämlich ?


  


Betrifft: So wie Duuuuuu nicht von: Helga
Geschrieben am: 29.08.2004 10:41:24

Null 0000000000000000000000000000000?????


  


Betrifft: AW: VBA gesucht: Datei umbenennen von: mealone
Geschrieben am: 29.08.2004 01:00:38

ich hoffe das ist was du suchst

Sub renamefile()
Set fs = CreateObject("Scripting.FileSystemObject")
Varfile = Dir("C:\deinPfad\Bild.jpg")
If Varfile = "" Then
Else
fs.moveFile "C:\deinPfad\Bild.jpg", "C:\deinPfad\Bild_alt.jpg"
End If
'hier kannst du eine neue datei erstellen
End Sub


gruss mealone


 

Beiträge aus den Excel-Beispielen zum Thema "VBA gesucht: Datei umbenennen"