< návrat zpět
MS Excel
Téma: vyvolání dialogu "Ulož jako" 
Zaslal/a maroslav 11.4.2012 8:08
Zdravím, prosím o radu. Potřebuji ve VBA vyvolat dialog "Ulož jako" tak, aby už byl vyplněn název souboru. Ten tvořím z několika částí ( příjmení, měsíc, rok ). Původně jsem ho ukládal do pevně zadané cesty, ale ukázalo se že to nepůjde.. Děkuji
Uzamčeno - nelze přidávat nové příspěvky.
Poki(11.4.2012 9:28)#007987
Mozna by slo zkusit toto, upravte si kod podle potreby:
Sub UlozitJAKO_dialog()
Dim Nazev As String, Soubor As String
'Zde je definovany nazev souboru (bez cesty)
Nazev = "Jmeno souboru.xls"
'Uzivatel vybere cestu k ulozeni souboru, Nazev uz ma preddefinovany
Soubor = Application.GetSaveAsFilename(Nazev)
'protoze predchozi radek soubor neulozi (jen zjisti cestu), musi se soubor ulozit
ThisWorkbook.SaveAs Soubor
End Subcitovatmarjankaj(11.4.2012 9:28)#007988 
No ja to skladám takto nejako v bunkách E4, E2 a E3 je text a ten skombinujem.
ChDir "X:\TEMP"
ttt = "X:\TEMP\aaaaa.xls"
ttt = Replace(ttt, "aaaaa", Cells(4, 5) & "-" & Cells(2, 5) & "-" & Cells(3, 5))
ActiveWorkbook.SaveAs Filename:=ttt, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=Falsecitovatmaroslav(11.4.2012 18:19)#007994 Dík Poki, po malé úpravě funguje :-) Změnil jsem ThisWorkbook na ActiveWorkbook. Mám v ten moment otevřené dva sešity tak jsem musel ukázat který že to chci takhle uložit..
citovatmaroslav(11.4.2012 18:55)#007996 Ještě problém: četl jsem tu témata o zamezení scrollu. Když v možnostech listu nastavím např. scrollarea $A$61:$O$92 a uložím to, nevím proč mi to tam nezůstane. Dělám v Office 2010. Netušíte co kde můžu mít špatně nastavené? Díky moc.
citovatmaroslav(12.4.2012 12:18)#008005 Tak i na tenhle problém jsem přišel:-) Dopsal jsem to do procedury pro otevření. Děkuji moc za rady a tohle téma je možno asi uzavřít.
citovat
RSS nejnovější články