Otevřít sešit aplikace Excel VBA

Nejběžnější operace v každodenním životě je otevření vynikajících sešitů, když pracujete s Excelem. Nelze pracovat v Excelu bez otevření sešitu Excel nebo souboru Excel. V tomto článku se budeme zabývat tím, jak můžeme otevřít sešity Excel pomocí VBA.

Metody otevírání sešitů Exel ve VBA

Existují dvě metody, jak otevřít Excel aplikace Excel ve VBA a budeme se zabývat obě metody v tomto článku.

Tuto šablonu VBA Workbook Open Excel si můžete stáhnout zde - VBA Workbook Open Excel Template

Metoda č. 1 - Metoda Excel VBA Workbooks.open

První metodou VBA je použití vestavěné funkce Workbooks.open . Ve funkci „Workbooks.open“ je 15 volitelných argumentů a pokrytí všech 15 argumentů zabere spoustu času. Takže se pokusíme porozumět některým základům Workbooks.open a uvidíme, jak můžeme pomocí této funkce ve VBA otevřít sešity.

Prvním krokem v této metodě je tedy znát název souboru sešitů aplikace Excel. Níže je uveden příkaz k otevření sešitů. “Workbooks.open“ File_Name ”

Nebo

Workbooks.Open Název souboru: = ”File_Name”

„File_Name“ je název sešitů, které chcete otevřít. Musíte však být opatrní, protože musíte zadat úplnou cestu, kde je soubor uložen, a název souboru s příponou souborů (.XLS, .XLSX, .xlsm atd.). Pro pochopení této funkce si můžeme vzít příklad níže uvedeného makra.

Příklad

Předpokládejme, že chcete otevřít soubor Excel s názvem „Testovat soubor“, který je uložen na jednotce D počítače. Vytvořte makro v sešitu s povoleným Excelem. Postupujte podle níže uvedených kroků a použijte metodu Excel VBA Workbooks.open.

Krok 1: Klikněte na Soubor.

Krok 2: Klikněte na Možnosti .

Krok 3: Klikněte na Přizpůsobit pás karet .

Krok 4: Ujistěte se, že pole Developer je označeno níže a klikněte na ok.

Krok 5: Jakmile máte kartu vývojáře, klikněte na Visual Basic, jak je uvedeno na níže uvedeném snímku obrazovky.

Po kliknutí na Visual Basics je třeba začít kódovat makro.

Krok 6: Zadejte níže uvedený kód do modulu VBA.

Kód:

 Sub Open_workbook () End Sub

Tento kód uvádí název sešitu.

Krok 7: Zadejte kód, který může otevřít sešit uložený na jednotce D počítače.

Kód:

 Sub Open_workbook () Workbooks.Open Název souboru: = "D: \ Test File.xlsx" End Sub

Krok 8: Spusťte kód stisknutím klávesy F5 nebo kliknutím na tlačítko Play. Po spuštění makra zjistíte, že soubor Excel se automaticky otevře. Jak můžete vidět ve výše uvedeném kódu, makro otevře soubor Excel s názvem „Test File.xlsx“, který je uložen na jednotce D počítače. Cesta uvedená výše je poměrně jednoduchá, protože neexistují žádné složky a podsložky pro získání sešitů.

To se stává náročným, protože mnoho lidí si cestu nepamatuje a pokud se cesta souboru, kde je uložen, změní, makro nebude fungovat. Makro nebude fungovat, i když se název souboru změní o jedno písmeno. Takže pokud se změní cesta / název souboru, musíte změnit kód VBA makra. To dělá práci únavnou a není také bezchybná. Abychom se ujistili, že vaše makro běží bezchybně, použijeme druhou metodu, která je snadno ovladatelná a nedá vám chybu, i když si nepamatujete cestu nebo dokonce když se změní název souboru .

Metoda č. 2 - Získat otevřený název souboru

Jak víte, kterým výzvám čelíme v první metodě změny cesty a názvu souboru, tato metoda se vyhne oběma výzvám. Tato metoda poskytuje možnost procházet v počítači umístění, kam je soubor uložen, a otevírá konkrétní sešity, které chcete otevřít.

Tato metoda ve skutečnosti funguje ve dvou částech.

První část této metody je Application.GetOpenFileName. Tato část vám umožňuje procházet počítač a vybrat cestu, kam se soubor uloží. První část neotevře soubor, který chcete otevřít.

Druhou částí je otevření souboru, pro který stále musíte být závislí na první metodě (metoda VBA Workbooks.open). V Application.GetOpenFileName je 5 argumentů, ale podíváme se pouze na základy, jako jsme to udělali v první metodě. Nyní se pokusíme porozumět této metodě pomocí příkladu.

Příklad

Předpokládejme, že chcete otevřít „Testovací soubor“ uložený na jednotce D počítače, pak stačí postupovat podle níže uvedených kroků.

Krok 1: Postupujte podle kroku 1 uvedeného v prvním příkladu pro otevření editoru jazyka nebo otevřít editor jazyka z karty vývojáře.

Krok 2: Zadejte níže uvedený kód, který obsahuje název makra.

Kód:

 Sub Open_workbook_example2 () End Sub

Krok 3: Zadejte níže uvedený kód. Tento příkaz deklaruje název souboru jako proměnnou, protože zde nespecifikujeme žádnou cestu ani název souboru, protože se může čas od času změnit.

Kód:

 Sub Open_workbook_example2 () Dim Myfile_Name jako End End Sub Sub

Krok 4: Zadejte níže uvedený kód. Tento příkaz otevře níže uvedené dialogové okno a můžete procházet složky a procházet cestu, kam je soubor uložen. Během prohlížení také zobrazí soubor Excel, protože jsme pro soubory Excel vložili filtr.

Kód:

 Sub Open_workbook_example2 () Dim Myfile_Name As Variant Myfile_Name = Application.GetOpenFilename (FileFilter: = "Excel soubory (*. Xl *), *. Xl *)") End Sub

Krok 5: Zadejte níže uvedený kód. Tento příkaz je příkaz If Then, který se používá, když soubor .Name není rovno false, pak otevřete vybraný soubor Excel.

Kód:

 Sub Open_workbook_example2 () Dim Myfile_Name jako varianta Myfile_Name = Application.GetOpenFilename (FileFilter: = "Excel soubory (*. Xl *), *. Xl *)") Pokud Myfile_Name False Then Workbooks.Open Filename: = Myfile_Name End Sub

Krok 6: Zadejte níže uvedený kód. Tento příkaz uzavírá podmínku If then v makru.

Kód:

 Sub Open_workbook_example2 () Dim Myfile_Name jako varianta Myfile_Name = Application.GetOpenFilename (FileFilter: = "Excel soubory (*. Xl *), *. Xl *)") Pokud Myfile_Name False Then Workbooks.Open Filename: = Myfile_Name End If End Sub

Krok 7: Nyní spusťte kód stisknutím klávesy F5 nebo kliknutím na tlačítko Play. Zobrazí se dialogové okno pro procházení souboru se otevře. Přejděte na plochu, kde je uložen váš soubor. Nyní budete moci soubor zobrazit na jednotce D. Vyberte soubor a klikněte na Otevřít.

Jak jsme právě viděli v našem příkladu, nemusíme si dělat starosti s názvem souboru a názvem cesty, kde je soubor uložen. Můžeme snadno přejít do složky, kde je uložen náš soubor, a vybrat soubor, který chceme otevřít. Můžeme tedy snadno dojít k závěru, že tato metoda je ve srovnání s první metodou mnohem efektivnější.

Co si pamatovat

  • Ujistěte se, že cesta a název souboru jsou správné při použití první metody. Makro nebude fungovat, pokud v cestě nebo názvu souboru dojde ke změně podle písmene nebo mezery.
  • Ujistěte se, že filtry uvedené v kódu druhé metody jsou správné. Existuje mnoho formátů aplikace Excel, které nemusí být viditelné kvůli filtru.
  • Zajistěte, aby se prohlášení a kód používaný ve VBA správně vyhýbaly chybám.

Doporučené články

Toto je průvodce otevřením sešitu VBA. Zde diskutujeme dvě různé metody otevírání sešitu pomocí kódu Excel VBA spolu s praktickými příklady a stahovatelnou šablonou Excel. Další informace naleznete také v následujících článcích -

  1. Kompletní průvodce sešitem VBA
  2. HYPERLINK vzorec v Excelu
  3. Otevřete soubory pomocí VBA FileDialog
  4. Příklady tabulky Excelu

Kategorie:

VBA