Platzhalter *
16.02.2013 10:03:25
Benedikt
Nachfolgender Code funktioniert unter Excel 2007 einwandfrei. Unter Excel 2010 kommt die Meldung, das die Datei ***.** Material.xlsm nicht gefunden wird.
Gibt es eine Alternative als Wildcard?
Sub Auto_Open()
Dim objWB As Workbook
Dim strSourceFile As String, strTargetPath As String
strSourceFile = "O:\Archiv\Test\***.** Material.xlsm" 'Pfad der Datei
strTargetPath = "C:\Test\Material.xlsm" 'Speicherpfad
Application.DisplayAlerts = False
Set objWB = Workbooks.Open(strSourceFile)
objWB.SaveAs strTargetPath
Application.DisplayAlerts = True
objWB.Close
End Sub
Vielen dank und Grüsse aus der Schweiz