V tomto kurzu se naučíte, jak pomocí VBA otevírat a zavírat sešit aplikace Excel několika způsoby.
VBA vám umožňuje otevírat nebo zavírat soubory pomocí standardních metod .Otevřeno a .Zavřít.
Pokud se chcete dozvědět, jak zkontrolovat, zda soubor existuje, než se pokusíte soubor otevřít, můžete kliknout na tento odkaz: Soubor VBA existuje
Otevřete sešit ve VBA
Otevřete sešit z cesty
Pokud víte, který soubor chcete otevřít, můžete ve funkci zadat jeho úplný název cesty. Zde je kód:
| 1 | Sešity. Otevřete „C: \ Složka VBA \ Ukázkový soubor 1.xlsx“ |
Tento řádek kódu otevře soubor „Ukázkový soubor 1“ ze „Složky VBA“.
Otevřít sešit - ActiveWorkbook
Když sešit otevřete, automaticky se stane ActiveWorkbookem. Na nově otevřený sešit můžete odkazovat takto:
| 1 | ActiveWorkbook.Save |
Když odkazujete na list nebo rozsah a vynecháte název sešitu, VBA bude předpokládat, že odkazujete na ActiveWorkbook:
| 1 | Listy („List1“). Název = „Vstup“ |
Otevřete sešit a přiřaďte proměnné
Můžete také otevřít sešit a přiřadit jej přímo k proměnné objektu. Tento postup otevře sešit do souboru wb proměnnou a poté sešit uložte.
| 123456 | Sub OpenWorkbookToVariable ()Dim wb jako sešitNastavit wb = Workbooks.Open ("C: \ VBA Folder \ Sample file 1.xlsx")wb. UložitEnd Sub |
Přiřazení sešitů k proměnným při jejich otevření je nejlepší způsob, jak sledovat své sešity
Dialog Otevřít soubor sešitu
Můžete také spustit sešit Dialogové okno Otevřít soubor. To umožňuje uživateli přejít k souboru a otevřít jej:
| 12345678 | Sub OpenWorkbook ()Dim strFile jako řetězecstrFile = Application.GetOpenFilename ()Sešity. Otevřeno (strFile)End Sub |
Jak můžete vidět na obrázku 1, s tímto přístupem si uživatelé mohou vybrat, který soubor otevřít. Dialogové okno Otevřít soubor lze výrazně přizpůsobit. Můžete nastavit výchozí pro určitou složku, zvolit, které typy souborů jsou viditelné (pouze ex… xlsx) a další. Podrobné příklady najdete v našem tutoriálu v dialogovém okně Otevřít soubor.
Otevřete nový sešit
Tento řádek kódu otevře nový sešit:
| 1 | Sešity. Přidat |
Otevřít nový sešit na proměnnou
Tento postup otevře nový sešit a přiřadí jej k proměnné wb:
| 1234 | Sub OpenNový pracovní sešit ()Dim wb jako sešitNastavit wb = Workbooks.AddEnd Sub |
Otevřete Syntaxe sešitu
Když používáte Workbooks.Open, můžete si všimnout, že při otevírání sešitu je k dispozici mnoho možností:
Název souboru je povinný. Všechny ostatní argumenty jsou volitelné - a pravděpodobně nebudete muset znát většinu ostatních argumentů. Zde jsou dvě nejběžnější:
Otevřít sešit jen pro čtení
Když je sešit otevřen jen pro čtení, nemůžete jej uložit přes původní soubor. Tím se zabrání tomu, aby uživatel soubor upravoval.
| 1 | Sešity. Otevřete „C: \ Složka VBA \ Ukázkový soubor 1.xlsx“,, True |
Otevřete sešit chráněný heslem
Sešit může být chráněn heslem. Pomocí tohoto kódu otevřete sešit chráněný heslem:
| 1 | Sešity. Otevřete "C: \ Složka VBA \ Ukázkový soubor 1.xlsx",,, "heslo" |
Otevřete poznámky k syntaxi sešitu
Všimněte si, že na výše uvedeném obrázku jsme zahrnuli závorku „(“ pro zobrazení syntaxe. Pokud používáte závorky při práci s Workbooks.Open, musíte sešit přiřadit proměnné:
| 1234 | Sub OpenWB ()Dim wb jako sešitNastavit wb = Workbooks.Open ("C: \ VBA Folder \ Sample file 1.xlsx", True, True)End Sub |
Zavřete sešit ve VBA
Zavřít konkrétní sešit
Podobně jako při otevírání sešitu existuje několik způsobů, jak zavřít soubor. Pokud víte, který soubor chcete zavřít, můžete použít následující kód:
| 1 | Workbooks.Close ("C: \ Složka VBA \ Ukázkový soubor 1.xlsx") |
Tento řádek kódu zavře soubor „Ukázkový soubor 1“, pokud je otevřen. Pokud ne, vrátí chybu, takže byste se měli postarat o zpracování chyb.
Zavřete aktivní sešit
Pokud chcete zavřít sešit, který je aktuálně aktivní, tento řádek kódu vám to umožní:
| 1 | Aktivní pracovní kniha. Zavřít |
Zavřete všechny otevřené sešity
Chcete -li zavřít všechny otevřené sešity, můžete jednoduše použít tento kód:
| 1 | Sešity. Zavřít |
Zavřít první otevřený sešit
Tím se zavře první otevřený/vytvořený sešit:
| 1 | Sešity (1). Zavřít |
Nahraďte 1 za 2 a zavřete druhý otevřený / vytvořený sešit atd.
Zavřít bez uložení
Tím zavřete sešit bez uložení a bez zobrazení výzvy k uložení:
| 1 | ActiveWorkbook.Close savechanges: = False |
Uložit a zavřít bez výzvy
Podobně to uloží a zavře sešit bez zobrazení výzvy k uložení:
| 1 | ActiveWorkbook.Close savechanges: = True |
Poznámka: Existuje několik dalších způsobů, jak označit, zda sešit uložit nebo ne, a také zda se mají výzvy zobrazovat nebo ne. Toto je podrobněji diskutováno zde.
Další otevřené sešity
Otevřete více nových sešitů
Tento postup otevře více nových sešitů a přiřadí nové sešity k poli:
| 12345678 | Sub OpenMultipleNewWorkbooks ()Dim arrWb (3) jako sešitDim i As IntegerPro i = 1 až 3Nastavit arrWb (i) = sešityPříště jáEnd Sub |
Otevřete všechny sešity aplikace Excel ve složce
Tento postup otevře všechny sešity aplikace Excel ve složce pomocí výběru dialogového okna Otevřít soubor.
| 12345678910111213141516 | Sub OpenMultipleWorkbooksInFolder ()Dim wb jako sešitDim dlgFD jako FileDialogDim strFolder jako řetězecDim strFileName jako řetězecNastavit dlgFD = Application.FileDialog (msoFileDialogFolderPicker)Pokud dlgFD.Show = -1 PakstrFolder = dlgFD.SelectedItems (1) & Application.PathSeparatorstrFileName = Dir (strFolder & "*.xls*")Do while strFileName ""Nastavit wb = Workbooks.Open (strFolder & strFileName)strFileName = DirSmyčkaKonec IfEnd Sub |
Zkontrolujte, zda je sešit otevřený
Tento postup otestuje, zda je sešit otevřený:
| 1234567891011 | Dílčí testByWorkbookName ()Dim wb jako sešitPro každý wb v sešitechPokud wb.Name = "Nová aplikace Microsoft Excel Worksheet.xls", pakMsgBox „Nalezeno“Ukončete volací kód Sub 'zde, prozatím jen ukončímeKonec IfdalšíEnd Sub |
Sešit_Otevřená událost
Události VBA jsou „spouštěče“, které VBA říkají, aby spustil určitý kód. Události sešitu můžete nastavit pro otevírání, zavírání, před uložením, po uložení a další.
Přečtěte si náš návod Workbook_Open Event, kde se dozvíte více o automatickém spouštění maker při otevření sešitu.
