✅ Avaa ja sulje Excel -työkirja VBA: n avulla

Sisällysluettelo

Tässä artikkelissa opimme sulkemis- ja avausmenetelmästä Excel VBA: ssa, jota käytetään sulkevan työkirjan avaamiseen ja myös avoimen työkirjan sulkemiseen.

Luomme komentopainikkeen Excel -taulukkoon ja määritämme makron.

Lisätietoja Activex -ohjaimen luomisesta saat napsauttamalla linkkiä

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

Kuinka avata Excel -työkirja VBA: n kautta?

Noudata alla annettuja vaiheita ja koodausta:-

Lisää 2 komentopainiketta.
Ensimmäinen komentopainike, jota käytämme hiiren kakkospainikkeella komentopainikkeella.
VBE -sivu avataan ja kopioidaan alla oleva koodaus ja liitetään VBE -sivulle.
Voit avata työkirjan määrittelyn alla mainitun makron.

Osa sOpenWorkbook ()
'määritä muuttuja tiedostonimelle
Dim csFileName kuin merkkijono
'Hae tiedostonimi taulukon 1 solusta A1
csFileName = ThisWorkbook.Sheets ("Esimerkki avaa ja sulje"). Alue ("A1")
'avaa työkirja
Työkirjat Avaa csFileName
MsgBox csFileName & "avattu"
End Sub

Toinen komentopainike, jota käytämme hiiren kakkospainikkeella komentopainikkeella.
VBE -sivu avataan ja kopioidaan alla oleva koodaus ja liitetään VBE -sivulle.
Voit avata työkirjan määrittelyn alla mainitun makron.

Osa sSuljeTyökirja ()
'määritä muuttuja tiedostonimelle
Dim csFileName kuin merkkijono
'Hae tiedostonimi taulukon 1 solusta A1
csFileName = ThisWorkbook.Sheets ("Esimerkki auki ja kiinni"). Alue ("A1")
'sulje työkirja & "suljettu"
End Sub

Molemmat makrot määritetään komentopainikkeille, meidän on käytettävä alla olevaa makrokoodausta.

Vaihtoehto Selkeä
Alaesimerkki () Const csFileName As String = _
"C: \ Test \ Master.xlsx" -työkirjat. Avaa
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\"))))). Sulje
End SubOsa sOpenWorkbook ()
'määritä muuttuja tiedostonimelle
Dim csFileName kuin merkkijono
'Hae tiedostonimi taulukon 1 solusta A1
csFileName = ThisWorkbook.Sheets ("Esimerkki avaa ja sulje"). Alue ("A1") 'avaa työkirjan
Työkirjat.Open csFileNameMsgBox csFileName & "avattu"
End SubOsa sSuljeTyökirja ()
'määritä muuttuja tiedostonimelle
Dim csFileName As String 'hakee tiedostonimen Sheet1: n solusta A1
csFileName = ThisWorkbook.Sheets ("Esimerkki avaa ja sulje"). Alue ("A1")
"sulje työkirja & "suljettu"
End Sub

Huomautus: - Sinun on mainittava polku tiedoston mukaan.