Spousteni makra ze souboru na disku

[jiri255]

Dobrý den,
chtěl bych se zeptat, zdali je možné spouštět makra ze souboru uloženého na disku?
Konkrétně mám excel, ve kterém bych potřeboval vytvořit jedno makro, které by
po spuštění nalezlo v určitém umístění na disku soubor, ze kterého by spustilo/načetlo
"nějaká" makra a pokud to ten soubor nenajde, tak to skončí např. hláškou "soubor nějaké
makro nebyl nalezen"? Je něco takového možné?

Předem děkuji za pomoc

[Reklama]

[Mirdad69]

Dobrý den,
já z jednoho sešitu volám makro v jiném takto:

Kód: Vybrat vše

myBookFullName = celá cesta na ten soubor s nějakým makrem
Set myWorkBook = Workbooks.Open(Filename:=myWorkBookFullName)
Application.Run myWorkBook & "!Workbook_Open" 'Workbook_Open je název makra

[jiri255]

to vypadá dobře, ale není v tom kodu nějaká chyba?
prvně to hlásilo chybu v cestě to jsem upravil, ale stejně mi to nefunguje nejspíš mám něco špatně?

Kód: Vybrat vše

 
Sub test()
myWorkBookFullName = "C:\Users\jirka\Desktop\test.xlsm"
Set myWorkBook = Workbooks.Open(Filename:=myWorkBookFullName)
Application.Run myWorkBook & "!pokus" 'Workbook_Open je název makra
End Sub


[Mirdad69]

Omlouvám se, mělo by tam být toto:

Kód: Vybrat vše

Sub test()
myWorkBookFullName = "C:\Users\jirka\Desktop\test.xlsm"
Set myWorkBook = Workbooks.Open(Filename:=myWorkBookFullName)
Application.Run myWorkBook.Name & "!pokus" 'Workbook_Open je název makra
End Sub


[jiri255]

tak jsem to odzkoušel, ale funguje to tak, že to otevře sešit "test.xlsm" a spustí to v něm ty makra a ten excel,
ze kterého to spuštím tedy "sesit1"(ve kterém mám to výše uvedené makro), tak v něm to nic neudělá na něm
ta makra neproběhnou .

[Mirdad69]

To bych musel vidět ta vaše makra, abych si je mohl krokovat.
Takhle nevím.

[pavel.lasak]

Co takhle použít Workbook_Open ve volaném sešitě?
Private Sub Workbook_Open()
' makro ke spuštení
End Sub

více: http://office.lasakovi.com/excel/vba-pr ... i-skriptu/

Monžá si nejsem jist co přesně potřebuješ
Spouštím-sešit.xlsm - tady se spustí makro 1 (např tlačítkem), které
1) Otevře otevirany-sešit.xlsm
2) v otevirany-sešit.xlsm spusti makro 2 a to má uděla co?
a) vykonat něco v otevirany-sešit.xlsm nebo něco v Spouštím-sešit.xlsm ???

[jiri255]

pro uzivatele pavel.lasak
to makro má vykonat něco v Spouštím-sešit.xlsm abych to upřesnil:

Jinak:
mám nějaký sešit test.xls v něm bych potřeboval mít makro,
které někde z disku např z jiného sešitu "nejake-makro.xls"
spustí makro, které je pojmenované třeba "makro1", ale "Makro1"
se spustí jen v tomto sešitu test.xls a nejlépe, aby pak zůstal
otevřený jen ten sešit test.xls.
To makro co mám v tom sešitu "nejake-makro.xls" je funkční
mám ho odzkoušené nejsou v něm žádné chyby.
Jo a není ani podmínkou, aby se to makro spuštělo z jiného sešitu
pokud existuje i jiný způsob...

[Mirdad69]

Už se v tom nějak ztrácím. Teď se spouští 3 sešity?
1. Spouštím-sešit.xlsm
2. text.xls
3. nejake-makro.xls

[Azuzula]

A proč nepoužít makro v sešitu PERSONL.XLSB (osobní sešit maker)? Ten je přístupný při každém spuštění excelu, nevím proč to komplikovat
Jeho vytvoření je popsáno v nápovědě MS: http://office.microsoft.com/cs-cz/excel ... c275246697

[jiri255]

nejdná se o tři sešity už jsem tu odpověď výše trochu poupravil, aby to nemátlo...


PERSONL.XLSB se mi nehodí to není pro můj případ to správné řešení, ale díky třeba to využiju v budoucnu pro něco jiného

[Mirdad69]

A proč se pro spuštění toho makra musí spouštět jiný sešit, proč ho nenakopíruješ to souboru text.xls,
když ti funguje.