vba: excel von outlook aus speichern

[scue]

hallo, wie geht sowas? mein bisheriger code sieht so aus

Sub speichern_neu_2()
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Application")

ExcelSheet.Application.Visible = True
ExcelSheet.Application.Workbooks.Open FileName:="C:\Test-neu.xlsm"
ExcelSheet.Application.Sheets("tabelle1").Select
ExcelSheet.Application.SaveAs FileName:="C:\test.xlsm"
End Sub

ich rufe eine excel auf, und die wird untr neuem namen wieder gespeichert. aufrufen klappt. speichern nciht

gruß

 

[schmidmi]

Gibt es eine Fehlermeldung?

Normalerweise speichere ich immer so:

ActiveWorkbook.SaveAs Filename:="C:\Test\Dateiname.xls"
ActiveWorkbook.Close