dotNETportal.cz

Dobrý den ve spolek,

mám soubor v excelu a při uložení testuju kam ukládat a v případě, že uživatel zvolí "Uložit jako" jsem mimo. Dialog pro uložení se otevře kde je uložený původní soubor s makrem. A to právě nechci.

Moje představa je že po volbě "uložit jako" nastavím cestu jinam, kde si už uživatel detailní místo pro uložení vybere sám.

Mám c:\a\SouborVexcelu.xls a v dialogovým okně potřebuju zobrazit c:\b\SouborVexcelu.xls

Zkoušel jsem

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then

ChDir "C:\b"

End If

End Sub

a nefunguje, a i různé kombinace Application.Dialogs(xlDialogSaveAs).Show a taky se mi nedaří.

Máte toto prosím Vás někdo jednoduše vyřešené? Můžete to zveřejnit?

Dík Jirka

Neřešil jsem to, ale našel jsem v Excelu metody:

GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

v té nastavit inicializační název souboru i s cestou a následně uložit pomocí

SaveAs (newfilename As String)

nejsem si jist, ale asi bude potřeba zrušit uložení ve vaší proceduře Workbook_BeforeSave

vlastne je to jednoduché

aj ke´d mi to chvíľu trvalo než som jednotlivé kusy dal kopy.

 SaveFileDialog1.InitialDirectory = c:\b\SouborVexcelu
 SaveFileDialog1.DefaultExt = ".xls"
SaveFileDialog1.FileName = Format(Date.Now.Date, "dd/MM/yyyy ")
 SaveFileDialog1.Filter = "excel files (*.xls)|.xls|All files (*.*)|*.*"
 If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
vaš kod
 APP.ActiveWorkbook.SaveAs(Filename:=(IO.Path.GetFullPath(SaveFileDialog1.FileName)))
end if