Atveriet un aizveriet Excel darbgrāmatu, izmantojot VBA

Anonim

Šajā rakstā mēs uzzināsim par aizvēršanas un atvēršanas metodi programmā Excel VBA, ko izmanto, lai atvērtu aizvērto darbgrāmatu, kā arī aizvērtu atvērto darbgrāmatu.

Mēs izveidojam komandu pogu Excel lapā un piešķiram makro.

Lai uzzinātu, kā izveidot Activex vadīklu, noklikšķiniet uz saites

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

Kā atvērt Excel darbgrāmatu, izmantojot VBA?

Izpildiet tālāk norādītās darbības un kodējumu:-

  • Ievietojiet 2 komandu pogas.
  • Pirmā komandas poga, kuru mēs izmantojam, lai ar peles labo pogu noklikšķiniet uz komandas pogas.
  • Tiks atvērta VBE lapa un nokopējiet zemāk esošo kodējumu un ielīmējiet to VBE lapā.
  • Lai atvērtu darbgrāmatu, piešķiriet tālāk minēto makro.
Sub sOpenWorkbook ()
'definējiet faila nosaukuma mainīgo
Dim csFileName kā virkne
"iegūstiet faila nosaukumu no lapas 1 šūnas A1
csFileName = ThisWorkbook.Sheets ("Atvēršanas un aizvēršanas piemērs"). Diapazons ("A1")
'atveriet darbgrāmatu
Darbgrāmatas. Atveriet csFileName
MsgBox csFileName & "atvērts"
Beigt apakš
  • Otro komandu pogu mēs izmantojam, lai ar peles labo pogu noklikšķinātu uz komandas pogas.
  • Tiks atvērta VBE lapa un nokopējiet zemāk esošo kodējumu un ielīmējiet to VBE lapā.
  • Lai atvērtu darbgrāmatu, piešķiriet tālāk minēto makro.
Sub sCloseWorkbook ()
'definējiet faila nosaukuma mainīgo
Dim csFileName kā virkne
"iegūstiet faila nosaukumu no lapas 1 šūnas A1
csFileName = ThisWorkbook.Sheets ("Atvēršanas un aizvēršanas piemērs"). Diapazons ("A1")
"aizveriet darba grāmatu & "slēgts"
Beigt apakš

Abi makro piešķirs komandu pogām, mums jāizmanto zemāk esošā makro kodēšana.

Skaidrs variants
SubsPiemērs () Const csFileName As String = _
"C: \ Test \ Master.xlsx" darbgrāmatas. Atvērt
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\"))))). Aizvērt
Beigt apakšSub sOpenWorkbook ()
'definējiet faila nosaukuma mainīgo
Dim csFileName kā virkne
"iegūstiet faila nosaukumu no lapas 1 šūnas A1
csFileName = ThisWorkbook.Sheets ("Piemērs Atvērt un Aizvērt"). Diapazons ("A1") 'atver darbgrāmatu
Darbgrāmatas. Atvērt csFileNameMsgBox csFileName & "open"
Beigt apakšSub sCloseWorkbook ()
'definējiet faila nosaukuma mainīgo
Dim csFileName As String iegūst faila nosaukumu no lapas 1 šūnas A1
csFileName = ThisWorkbook.Sheets ("Atvēršanas un aizvēršanas piemērs"). Diapazons ("A1")
"aizveriet darba grāmatu & "slēgts"
Beigt apakš

Piezīme: - Jums ir jāmin ceļš atbilstoši jūsu failam.