✅ Otevřete a zavřete sešit aplikace Excel pomocí VBA

Obsah

V tomto článku se naučíme zavřít a otevřít metodu v aplikaci Excel VBA, která se používá k otevření zavřeného sešitu a také k zavření otevřeného sešitu.

Vytvoříme příkazové tlačítko v listu Excelu a přiřadíme makro.

Chcete -li vědět, jak vytvořit ovládací prvek Activex, klikněte na odkaz

https://www.exceltip.com/tips/activex-controls-in-microsoft-excel-2010.html

Jak otevřít sešit aplikace Excel prostřednictvím VBA?

Postupujte podle níže uvedených kroků a kódování:-

Vložte 2 příkazová tlačítka.
První příkazové tlačítko, kterým klikneme pravým tlačítkem myši na příkazové tlačítko.
Otevře se stránka VBE, zkopírujte níže uvedené kódování a vložte ji na stránku VBE.
Pro otevření sešitu přiřaďte níže uvedené makro.

Sub sOpenWorkbook ()
'definujte proměnnou pro název souboru.'
Dim csFileName jako řetězec
'získejte název souboru z buňky A1 na List1
csFileName = ThisWorkbook.Sheets („Příklad otevření a zavření“). Rozsah („A1“)
'otevřete sešit
Sešity. Otevřete csFileName
MsgBox csFileName & "otevřeno"
End Sub

Druhé příkazové tlačítko používáme k kliknutí pravým tlačítkem myši na příkazové tlačítko.
Otevře se stránka VBE, zkopírujte níže uvedené kódování a vložte ji na stránku VBE.
Pro otevření sešitu přiřaďte níže uvedené makro.

Sub sCloseWorkbook ()
'definujte proměnnou pro název souboru.'
Dim csFileName jako řetězec
'získejte název souboru z buňky A1 na List1
csFileName = ThisWorkbook.Sheets ("Příklad otevření a zavření"). Rozsah ("A1")
'zavřete sešitWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & " Zavřeno"
End Sub

Obě makra se přiřadí k příkazovým tlačítkům, musíme použít níže uvedené kódování makra.

Možnost Explicitní
Sub sExample () Const csFileName As String = _
Sešity "C: \ Test \ Master.xlsx". Otevřete
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). Zavřít
End SubSub sOpenWorkbook ()
'definujte proměnnou pro název souboru.'
Dim csFileName jako řetězec
'získejte název souboru z buňky A1 na List1
csFileName = ThisWorkbook.Sheets ("Example Open and Close"). Range ("A1") 'open the workbook
Sešity. Otevřít csFileNameMsgBox csFileName & "otevřeno"
End SubSub sCloseWorkbook ()
'definujte proměnnou pro název souboru.'
Dim csFileName As String 'získá název souboru z buňky A1 na List1
csFileName = ThisWorkbook.Sheets („Příklad otevření a zavření“). Rozsah („A1“)
'zavřete sešitWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & " Zavřeno"
End Sub

Poznámka: - Musíte uvést cestu podle svého souboru.