Stránka 1 z 2
Excel - makro na uložení sešitu
Napsal: 17 bře 2008 10:55
od Cipera
Zdravím všechny excel-mistry ...
Mám na vás velkou prosbu.
Někde jsem viděl návod na jednoduché makro na ukládání sešitu pod novým názvem.
Jsem schopný udělat si záznam makra na uložení, ale už ho nedokážu naučit, aby za název použil hodnotu z buňky A5...
Poradíte, prosím?
Díky
Re: Excel - makro na uložení sešitu
Napsal: 17 bře 2008 11:12
od mike007
Vítej na PC-HELPKód: Vybrat vše
Sub ulozit()
jmeno = Range("A5")
ActiveWorkbook.SaveAs Filename:= _
jmeno
MsgBox "Dokument uložen pod názvem " & jmeno
End Sub
Re: Excel - makro na uložení sešitu
Napsal: 17 bře 2008 11:43
od Cipera
Děkuju moc, vyzkouším a ozvu se.
C.
Re: Excel - makro na uložení sešitu
Napsal: 17 bře 2008 12:35
od Cipera
Hmm, tak jsem asi natvrdlej ...
nedaří se a nedaří se ..
Mám v tom chybu a jako začátečník ji neumím najít ...
Potřebuju to uložit do:
Uložit Macro
'
ChDir "C:\K\BH"
jmeno = Range("A5")
ActiveWorkbook.SaveAs Filename:="C:\K\BH\ _ jmeno"
MsgBox "Dokument uložen pod názvem " & jmeno
End Sub
Re: Excel - makro na uložení sešitu
Napsal: 17 bře 2008 13:00
od mike007
Trošku si mě zmátl tím ChDir. To tam není potřeba.
Takhle by to mělo stačit :
Kód: Vybrat vše
Sub ulozit()
jmeno = Range("A5")
ActiveWorkbook.SaveAs Filename:="C:\K\BH\" & jmeno
MsgBox "Dokument uložen pod názvem " & jmeno
End SubS ChDir takto :
Kód: Vybrat vše
Sub ulozit()
ChDir "C:\K\BH"
jmeno = Range("A5")
ActiveWorkbook.SaveAs Filename:=jmeno
MsgBox "Dokument uložen pod názvem " & jmeno
End Sub
Re: Excel - makro na uložení sešitu
Napsal: 17 bře 2008 13:14
od Cipera
Děkuju moc, už to funguje ... není nad to zeptat se odborníků :-)
PS: Ten ChDir se mi načetl sám ze záznamu makra ...
Re: Excel - makro na uložení sešitu
Napsal: 17 bře 2008 13:29
od mike007
Nemáš zač. Odborník nejsem, jen mě Excel baví.
Re: Excel - makro na uložení sešitu
Napsal: 17 bře 2008 14:32
od Cipera
Ještě dotaz, kdybych to chtěl dotáhnout k úplné dokonalosti ...
Lze udělat to, aby byl adresář BH nahraditelný údajem z buňky A7?
A úplně poslední ... soubor se uloží i s tlačítkem s makrem. Jde to udělat tak, aby se uložil jen "čistý soubor" s daty?
Re: Excel - makro na uložení sešitu
Napsal: 17 bře 2008 16:48
od jirkapolak161
Ty jo to jsem vubec nevedel co vsechno se da v exelu delat :).Nevite o nejaky dobry strance,kde je Virtual Basic popsanej pro blby?Napadlo me par veci ktery bych chtel zkusit.
Re: Excel - makro na uložení sešitu
Napsal: 17 bře 2008 17:06
od mike007
Kód: Vybrat vše
Sub ulozit()
'když v buňce A7 nebude žádná adresa, uloží se soubor na c:\k\bh
adresa = Range("A7")
If adresa = 0 Then
ChDir "C:\K\BH\"
Else
ChDir "C:\K\" & adresa
End If
'vybereme název z buňky a uložíme
jmeno = Range("A5")
ActiveWorkbook.SaveAs Filename:=jmeno
MsgBox "Dokument uložen pod názvem " & jmeno
End SubJak uložit soubor bez maker jsem ještě nikdy nedělal, takže v tuto chvíli nevím. Zkusím pokoumat a pokud na něco přijdu, dám vědět.
Re: Excel - makro na uložení sešitu
Napsal: 17 bře 2008 17:09
od Koja
To jirkapolak161 : Je to
Visual Basic a zkus třeba
tohle bo
strejdu Gůgla, je tam toho spousta
Re: Excel - makro na uložení sešitu Vyřešeno
Napsal: 18 bře 2008 08:23
od Cipera
Děkuju moc, přesně takhle jsem si to představoval ... šéf je moc vděčnej a děkuje taky ..
Kdyby jsme se někde potkali, máš u mě pivo ...
