• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: otvirani souboru VBA

Zaslal/a Petr 25.7.2011 8:24

Zdravim,
potřeboval bych pomoci s VBA. Zkoušel jsem už hledat na forech, ale nepovedlo se mi dát makro dohromady.

Přepisuji do excelu soustavu výkresů s podsestavami. Co podsestava, tak je to nový list u dané soustavy. Pro každou podsestavu vytvářím složku, do které půjdou výkresy a také by tam měl být tento excel soubor. To bych však musel vše ukládat a dvakrát a byla by složitá aktualizace souborů. Proto bych potřeboval vytvořit makro, které mi z těchto podsložek otvíralo zdojový soubor na daném listu (z každé podsložky jiný list, takže to bude jen rutinní uprava makra, ale bude to asi nejméně pracné). Můžete mi někdo poradit jak dát toto makro dohromady?
Doufám,že jsem to popsal dostatečně ;o)
Díky za rady - v případě potřeby bych zaslal zip soubor.

Zaslat odpověď >

---

Shtuchka(25.7.2011 21:38)#005583

Prosím vas, pošlete soubor s výkresy. Zkusím pomoc.citovat

fuertes(26.7.2011 6:15)#005584

Zasílám soubor.
Pro upřesnění tedy potřebuji vytvořit, např. v podsložce "náhon podávání", excelovský soubor s makrem, díky kterému se mi otevře sešit v kořenové složce na listu "20-25".
Předem děkuji za pomoc

Příloha: 5584_dvt017117-2-podavani.zip (96kB, staženo 23x)

citovat

Shtuchka(26.7.2011 23:28)#005595

Nejprve musíte přejmenovat listy zdrojového souboru pod názvy podsložek. Pak si vytvořit soubor v podsložce, napsat makro názvem AutoOpen. Makro by měla být cesta k souboru zdroje

Dim oExcel as Excel.Application
Dim oWB as Workbook
Set oExcel = new Excel.Application
Set oWB = oExcel.Workbooks.Open(<pathToWorkbookHere>)

a požádat o název listu.

sName = Application.InputBox _
(Prompt:="Enter worksheet name")

Poté, co tento zdrojový soubor bude otevřen na této stránce.


ThisWorkbook.Activate
Sheets("sName").Activate

Musíte dodělat toto makro.citovat

fuertes(27.7.2011 9:54)#005597

zdravim, děkuji za makro - s menšími úpravami běží jak má.
Ještě bych však potřeboval Vaši radu ohledně zadávání cesty. Makro ji vyžaduje uplnou, nebo jsem jen nepřišel na to, jak správně zadat relativní cestu. Mohl byste mi tedy poradit, jak zadávat relativní cestu?
Soubory totiž budou defaultně na sdíleném disku, avšak pár lidí bude chtít soubory kopírovat k sobě na hdd a dále si je zpracovat pro sebe.citovat

fuertes(27.7.2011 11:06)#005598

Tak už dobré..nakonec mi to nedalo a chtělo to jen trochu víc hledat a přemýšlet :o)
Moc děkuji za pomoc Shtuchka!citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse