Dialogs SaveAs with different directory

Hi Thomas,

probably same problems in all office applications.

An admittedly quirk workaraound:

Sub SaveMyFile()
Dim oDlg As Dialog
Set oDlg = Application.Dialogs(xlDialogSaveAs)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "c:\test\test.xls"
oDlg.Show
End Sub

Leaves you with an unwanted copy of the file, but who cares?

Greetings from Bavaria, Germany

Helmut Weber

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Hi Helmut,

yes, this will work - not as fine as I looked for, but ok.

Thank you very much
Thomas


Helmut Weber schrieb:
> Hi Thomas,
>
> probably same problems in all office applications.
>
> An admittedly quirk workaraound:
>
> Sub SaveMyFile()
> Dim oDlg As Dialog
> Set oDlg = Application.Dialogs(xlDialogSaveAs)
> Application.DisplayAlerts = False
> ActiveWorkbook.SaveAs "c:\test\test.xls"
> oDlg.Show
> End Sub
>
> Leaves you with an unwanted copy of the file, but who cares?
>
> Greetings from Bavaria, Germany
>
> Helmut Weber
>
> Win XP, Office 2003
> "red.sys" & Chr$(64) & "t-online.de"
>