Markierte Dateien kopieren ?
29.12.2007 18:34:00
Selma
mit dem Makro "Select_Files_Copy" kopiere ich die ausgewählte Dateien nach C:\Export\Copy\
Hierzu habe ich eine Frage:
Ist es möglich nach dem Makro-Start ein InputBox mit Zeilordner anzuzeigen (als Standardeintrag: C:\Export\Copy). Nachdem Bestätigen des InputBox den Zielorner wie folgt öffnen:
C:\WINDOWS\explorer.exe /n,/e,C:\Export\Copy ( Wenn der in InputBox eingetrage Ordner nicht existiert, soll der vor dem Kopieren erstellt werden.
Sub Select_Files_Copy()
Dim lrZelle As Range
For Each lrZelle In Selection
If lrZelle.Hyperlinks.Count > 0 Then
FileCopy lrZelle.Hyperlinks(1).Address, "C:\Export\Copy\" & lrZelle.Value
End If
Next
End Sub
Vielen Dank im Voraus.
Liebe Grüße,
Selma