Teoricamente dovresti poter usare
- Codice: Seleziona tutto
ChDrive "D:"
ChDir "D:\PIPPO"
Application.Dialogs(xlDialogSaveAs).Show
Oppure
- Codice: Seleziona tutto
Application.Dialogs(xlDialogSaveAs).Show ("D:\pippo\*.xls")
(da adattare al tuo drive & path)
ma non sempre il comportamento e' coerente. Pertanto suggerisco l' utilizzo dell' oggetto FileDialog, meglio programmabile; ad esempio:
- Codice: Seleziona tutto
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "D:\PIPPO\*.xls" '<<< Personalizzare
.Show ' Qui si sceglie il path /name
.Execute ' QUI si salva effettivamente
End With
Ciao