Sešit Excel VBA

Soubor Excel se nazývá Workbook a každý sešit obsahuje listy nebo stránky, které se nazývají Worksheet. Pracovní listy jsou oblastí, kde píšeme a vytváříme datovou tabulku. A Sešit obsahuje N počet takových listů, které mohou mít různá data. Ve VBA můžeme použít funkci sešitu, aniž bychom v excelovém sešitu dělali cokoli. K těmto funkcím dostupným v Excelu můžeme přistupovat do VBA pomocí příkazového řádku „ Aplikace . Sešity “.

Použití rovného znaménka („=“) v Excelu aktivuje všechny funkce vložení v Excelu. A použití funkce „ WorksheetFunction s tečkou (.) “ Se aktivuje a umožňuje použití vynikajících funkcí, jak je znázorněno níže.

Jak používat objekt sešitu v aplikaci Excel VBA?

Níže jsou uvedeny různé příklady použití objektu sešitu v aplikaci Excel VBA.

Tuto šablonu sešitu VBA sešitu si můžete stáhnout zde - šablonu sešitu VBA sešitu

Sešit VBA - Příklad č. 1

V tomto příkladu uvidíme, jak otevřít sešit pomocí objektu sešitu VBA.

Postupujte podle následujících kroků:

Krok 1: Přejděte do okna VBA a otevřete nový modul pomocí seznamu Vložit seznam nabídek, jak je ukázáno níže.

Kliknutím na volbu Modul v nabídce Vložit dostaneme modul, do kterého budeme psát kód.

Krok 2: Nyní začněte psát Podkategorie funkce VBA Workbook v jakémkoli jménu, které chcete, nebo lépe ponechejte název funkce ve stejném jménu, jak se provádí, jak je ukázáno níže.

Kód:

 Sub VBAWorkbook1 () End Sub

Krok 3: Nyní použijte funkci Sešity v kódu. To umožní použití jakéhokoli sešitu. Chcete-li jej otevřít, použijte příkaz Otevřít po vložení tečky (.), Jak je znázorněno níže.

Samotná funkce Open má tolik možností a způsobů, jak otevřít jakýkoli sešit, jak je ukázáno v níže uvedené syntaxi.

Nyní k otevření jakéhokoli sešitu potřebujeme umístění tohoto souboru. Zde jsme již uložili excelní sešit s názvem „ Testovací soubor “ někde na přístupné místní jednotce.

Krok 4: Podle výše uvedené syntaxe potřebujeme Filename jako String, což znamená Postavy. Takže jsme v obrácených čárkách zkopírovali a vložili umístění níže. To je místo, kde můžeme umístit libovolné umístění nebo adresu souboru, kde jsme je uchovávali.

Kód:

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

Krok 5: Nyní chceme ukázat název souboru, který je otevřen pomocí příkazu Workbook.Open. Použijeme MsgBox s ActiveWorkbook.Name . Zde zobrazujeme název názvu sešitu, který je nyní otevřený a aktivní.

Kód:

 Sub VBAWorkbook1 () Workbooks.Open Název souboru: = "D: \ Test File.xlsx" MsgBox (ActiveWorkbook.Name & "Is Opened.") End Sub

Krok 6: Nyní zkompilujte celý kód krok za krokem a poté jej spusťte kliknutím na tlačítko Přehrát.

Uvidíme, že soubor s názvem „ Testovací soubor “ je nyní otevřený, a zobrazí se vyskakovací zpráva, že „Testovací soubor je nyní otevřen“ .

Sešit VBA - Příklad č. 2

Toto je další příklad, kde uvidíme, jak použít objekt VBA WorkBook a použít jej pro jakýkoli excel sešit. Postupujte podle následujících kroků:

Krok 1: Začněte psát podkategorii v jakémkoli jménu nebo pro osvědčené postupy by měla být v názvu prováděné funkce.

Kód:

 Sub VBAWorkbook2 () End Sub

Krok 2: Postupujte podle postupu uvedeného v příkladu 1 a otevřete uložený soubor „Test File“ v libovolném umístění. Vždy se doporučuje uložit přístupný soubor. Tento příkaz otevíráme soubor ze zmíněné adresy.

Kód:

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

Krok 3: Nyní použijeme název souboru spolu s funkcí sešitu a vytvoříme nebo přidáme do něj nějaký text. Z tohoto důvodu vybereme list, kam chcete vložit text, pomocí příkazu List (1) . Číslo 1 uvnitř závorky se používá pro posloupnost listu, nikoli pro název listu a výběr rozsahu z buňky A1 do A5, jak je ukázáno níže.

Kód:

 Sub VBAWorkbook2 () Workbooks.Open Název souboru: = "D: \ Test File.xlsx" Workbooks ("Test File.xlsx"). Listy (1) .Range ("A1: A5") = "Test" End Sub

Krok 4: Nyní použijte stejný formát výběru sešitu. Použili jsme „testovací soubor“, takže jej používáme zde, následuje tečka (.) A uložíme. Tím se soubor uloží.

Kód:

 Sub VBAWorkbook2 () Workbooks.Open Název souboru: = "D: \ Test File.xlsx" Workbooks ("Test File.xlsx"). Listy (1) .Range ("A1: A5") = "Test" Workbooks ("Test" File.xlsx "). Uložit End Sub

Krok 5: Nyní používáme funkci sešitů s názvem následovaným tečkou (.) A Zavřít pro uzavření vybraného sešitu, jak je ukázáno níže.

Kód:

 Sub VBAWorkbook2 () Workbooks.Open Název souboru: = "D: \ Test File.xlsx" Workbooks ("Test File.xlsx"). Listy (1) .Range ("A1: A5") = "Test" Workbooks ("Test" File.xlsx "). Uložte sešity (" Test File.xlsx ")

Krok 6: Nyní zkompilujte kód a spusťte jej. Vidíme, že text, který jsme použili v kódu „Test“, je nyní zkopírován ve všech buňkách rozsahu A1 až A5.

A my dostaneme varovnou zprávu, jak je uvedeno níže.

Klikněte na tlačítko Ok, které soubor uloží a zavře.

Sešit VBA - Příklad č. 3

Podívejme se na další příklad, kde budeme používat objekt VBA Workbook. V tomto příkladu uvidíme, jak chránit sešit pomocí hesla. To je docela užitečné, když máme důležitá data v listu nebo sešitu a musíme je chránit také při každém spuštění celého kódu. Ochrana sešitu po práci se tak stává nezbytnou prací, aby nedošlo ke ztrátě dat.

Postupujte podle následujících kroků:

Krok 1: V modulu začněte psát podkategorii jménem použité funkce, jak je ukázáno níže.

Kód:

 Sub VBAWorkbook3 () End Sub

Krok 2: Nyní pomocí příkazu ActiveWorkbook vyberte aktuálně otevřený sešit následovaný tečkou (.) A hledejte a vyberte příkaz Chránit ze seznamu, jak je uvedeno níže.

Krok 3: Po výběru příkazu Protect uvidíme syntaxi, která bude použita pro povolení ochrany v sešitu, jak je ukázáno níže.

Kód:

 Sub VBAWorkbook3 () ActiveWorkbook.Protect End Sub

Krok 4: Nyní vyberte ze syntaxe heslo a vyberte heslo a pro strukturu a okno to povolte jako PRAVDA.

Kód:

 Sub VBAWorkbook3 () ActiveWorkbook.Protect Password: = "TestPassword", Structure: = True, Windows: = True End Sub

Krok 5: Nyní jej zkompilujte a spusťte po něm. Uvidíme, že náš aktuální sešit se uzamkne, což lze vidět v nabídce Recenze v možnosti Chránit sešit, jak je uvedeno níže. Chcete-li jej odemknout, klikněte na možnost Chránit sešit .

Krok 5: A zadejte heslo „ TestPassword “, které jsme vybrali v našem kódu a klikněte na OK .

Náš aktuální list se znovu odemkne.

Výhody Excel VBA sešitu

  • Sešit VBA nám umožňuje pracovat v sešitu, aniž bychom v listu něco dělali.
  • Můžeme provádět jakékoli úkoly s pomocí objektu VBA Workbook, k tomu potřebujeme pouze vybrat nebo aktivovat list pomocí kódu.

Co si pamatovat

  • Nezapomeňte kompilovat celý kód nebo řádek po řádku, abyste se vyhnuli chybě.
  • Soubor s obrovskými daty a více řádky kódu vždy používejte Close VBA Workbook, abyste zabránili ztrátě dat.
  • Pro lidi, kteří jsou začátečníky ve VBA Coding, se doporučuje nepoužívat složitou kódovací strukturu. Namísto zkoušení s malými sadami kódu a implementace jeho pracovních scénářů v reálném životě.

Doporučené články

Toto je průvodce sešitu VBA. Zde diskutujeme o tom, jak používat objekt Workbook v Excelu VBA, spolu s některými praktickými příklady a šablonou Excel ke stažení. Můžete si také prohlédnout naše další doporučené články -

  1. Průvodce objektem VBA
  2. Chraňte sešit Excel
  3. Buňky řady VBA
  4. Sdílet Excel sešit

Kategorie:

VBA