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: Otevření Excel souboru makrem
MS Excel
Téma: Otevření Excel souboru makrem 
Zaslal/a Aloisjsemja 26.9.2016 18:55
Zdravím. Mám výslednou přehledovou tabulku ve které jsou v buňkách zobrazeny hodnoty z "pracovních" souborů. Pokud se v některé buňce objeví neobvyklá hodnota, otevřu soubor s touto hodnotou a ručně aktualizuji podle aktuálních dat. Těchto pracovních souborů je několik desítek a je zdlouhavé vyhledávání a otvírání. Ve výsledné tabulce mám ve sloupci B uloženy názvy souborů a řádek dál pokračuje hodnotami z těchto souborů.
Rád bych ve sloupci B označil buňku s názvem souboru a klávesovou zkratkou vybraný soubor otevřel.
Ano, tohle funguje. Ale věřím, že je možné vytvořit "univerzální" makro, které otevře jakýkoliv soubor jehož název bude ve vybrané buňce. Díkycitovat
Makrem například takto:
Sub Otevrit_soubor()
Workbooks.Open Filename:=ThisWorkbook.Path & "/" & ActiveCell.Value
End SubZa předpokladu, že máš v buňce celý název souboru s příponou...
Vyvolání makra klávesovou zkratkou lze nastavit na kartě Vývojář (pokud nemáš zobrazeno, tak Soubor / Možnosti / Přizpůsobit pás karet) v položce Makra. Stačí vybrat dané makro, a kliknout na "Možnosti...".
P.
PS:
Na hypertextový odkaz je i zabudovaná funkce HYPERTEXTOVÝ.ODKAZ. Stačilo by tedy pouze přidat jeden sloupec, a využít ji. K otevření souboru pak stačí jedno kliknutí...citovat
Sub Otevrit_soubor()
Workbooks.Open Filename:=ThisWorkbook.Path & "/" & ActiveCell.Value
End SubZa předpokladu, že máš v buňce celý název souboru s příponou...
Vyvolání makra klávesovou zkratkou lze nastavit na kartě Vývojář (pokud nemáš zobrazeno, tak Soubor / Možnosti / Přizpůsobit pás karet) v položce Makra. Stačí vybrat dané makro, a kliknout na "Možnosti...".
P.
PS:
Na hypertextový odkaz je i zabudovaná funkce HYPERTEXTOVÝ.ODKAZ. Stačilo by tedy pouze přidat jeden sloupec, a využít ji. K otevření souboru pak stačí jedno kliknutí...citovat
Díky.
Přesně tohle makro jsem potřeboval. Tušil jsem, že to nebude nic velkého.
Nerozumím dodatku. Osměluji se předpokládat, že se jedná o nějakou ironii. Pokud bys vysvětlil rád bych si přidal ke své sbírce postupů do budoucna.citovat
Přesně tohle makro jsem potřeboval. Tušil jsem, že to nebude nic velkého.
Nerozumím dodatku. Osměluji se předpokládat, že se jedná o nějakou ironii. Pokud bys vysvětlil rád bych si přidal ke své sbírce postupů do budoucna.citovat
Řešení touto funkcí je prosté. Píšeš, že ve sloupci "B" máš názvy souborů. V tom případě do nějakého dalšího sloupce, třeba "C", zadej vzorec:
=HYPERTEXTOVÝ.ODKAZ(B1)Tímto se automaticky z textu (názvu souboru) vytvoří hypertextový odkaz na soubor.
P.citovat
=HYPERTEXTOVÝ.ODKAZ(B1)Tímto se automaticky z textu (názvu souboru) vytvoří hypertextový odkaz na soubor.
P.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