MS Excel

Zdravím všechny, poraďte prosím.
Ve VBA ukládám sešit. V případě, že již název existuje, kodem ošetřím chybu - bez problému.
Otázka - Jak využít ve VBA na tento případ Exelovský dialog: "Soubor BLABLA již existuje. Má se existující soubor nahradit? ANO x NE"?
Díky Mirek

Zaslat odpověď >

€Ł мσşqμΐτσ(25.7.2014 9:30)#020711

co takhle

Application.DisplayAlerts = False

If Err.Number < 0 Then
otazka = MsgBox("Soubor BLABLA již existuje. Má se existující soubor nahradit?", vbYesNo)
If otazka = vbYes Then ActiveWorkbook.Save Else Exit Sub
End Ifcitovat

archangel(25.7.2014 9:59)#020712

Ano, výsledek je správně.
Já bych ale chtěl (jestli to jde) místo MsgBox využít vestavěný dialog Excelucitovat

€Ł мσşqμΐτσ(25.7.2014 10:27)#020713

Thak to je už otázka pro chytřejší než jsem já

citovat

archangel(25.7.2014 10:30)#020714

Díky za snahu, podobně jako ty to řeším i já.
Jen mě napadlo prubnout to jinak.

citovat

€Ł мσşqμΐτσ(25.7.2014 10:53)#020715

archangel napsal/a:

Díky za snahu, podobně jako ty to řeším i já.
Jen mě napadlo prubnout to jinak.

Nemáš zač. taky se rád přiučím :)citovat

kp57(25.7.2014 18:57)#020719

Ahoj! VBA -> F1 -> XlBuiltInDialog -> seznam všech vestavěných dialogů.citovat

archangel(4.8.2014 11:15)#020886

Děkuji kp57,
paráda, to je panečku podialogováníčko.
Poraď prosím ještě, kde najdu číselné vyjádření konstanty dialogu.
např.(xlDialogOpen)=1, (xlDialogNew)=119citovat

eLCHa(4.8.2014 14:08)#020887

Do okna Immediate v editoru VBA napište např? xlDialogNewstiskněte ENTER a zobrazí se 119citovat

eLCHa(4.8.2014 14:10)#020888

a nebo možná tady - proklikejte si
strejda gúgl, hned první odkaz
http://msdn.microsoft.com/en-us/library/office/aa221100(v=office.11).aspx citovat

kp57(4.8.2014 16:52)#020889

?. No já mám v helpu "XlBuiltInDialog Enumeration" s odpovídajícími "Value". Jinak jak píše eLCHa.citovat

Téma: Dialog "Má se existující soubor nahradit?

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje