beliebige Datei verschieben
19.09.2008 15:31:27
Jonatan
ich versuche eine beliebige Datei mit einem Excel-Makro zu öffnen und anschließend an einem anderen Ort zu speichern.
Über folgenden Code öffne ich die bel. Datei:
Option Explicit
Declare
Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Declare
Function GetDesktopWindow Lib "user32" () As Long
Const SW_SHOWNORMAL = 1
Const SW_SHOWMAXIMIZED = 3
Sub Dateistarten()
Dim x As Variant
Dim strPath As String
strPath = UserForm2.TextBox9.Value 'Dateiname auslesen
x = ShellExecute(GetDesktopWindow(), "open", strPath, "", "", SW_SHOWMAXIMIZED)
End Sub
Das funktioniert auch einwandfrei.
In der UserForm hab ich so ein Application.FileDialog(msoFileDialogOpen) Befehl, um die Dateien auswählen zu können.
Jetzt würde ich gerne einen neuen Pfad auswählen und die geöffnete Datei an diesem ausgewählten Ort speichern.
Ist dies möglich, und wenn ja wie?
Vielen Dank
Gruß Jonatan
Anzeige