Prosím vas, pošlete soubor s výkresy. Zkusím pomoc.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: otvirani souboru VBA
MS Excel
Téma: otvirani souboru VBA 
Zaslal/a 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.
(25.7.2011 21:38)#005583
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
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)
citovat5584_dvt017117-2-podavani.zip (96kB, staženo 23x)(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
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
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
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
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
Moc děkuji za pomoc Shtuchka!citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články