Отваряне и затваряне на работна книга на Excel с помощта на VBA

Anonim

В тази статия ще научим за метода за затваряне и отваряне в Excel VBA, който се използва за отваряне на затворената работна книга, както и за затваряне на отворената работна книга.

Създаваме команден бутон в Excel лист и присвояваме макрос.

За да знаете как да създадете Activex контрол, щракнете върху връзката

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

Как да отворите работна книга на Excel чрез VBA?

Следвайте долупосочените стъпки и кодиране:-

  • Вмъкнете 2 командни бутона.
  • Първият команден бутон, който използваме, за да кликнете с десния бутон на мишката върху командния бутон.
  • VBE страницата ще се отвори и ще копира кодирането по -долу и поставете на страницата VBE.
  • За да отворите работната книга, задайте посочения по -долу макрос.
Sub sOpenWorkbook ()
'дефиниране на променлива за името на файла
Dim csFileName As String
'вземете име на файл от клетка A1 на Sheet1
csFileName = ThisWorkbook.Sheets ("Пример за отваряне и затваряне"). Диапазон ("A1")
'отворете работната книга
Работни книги. Отворете csFileName
MsgBox csFileName & "отворен"
End Sub
  • Втори команден бутон, който използваме, за да кликнете с десния бутон на мишката върху командния бутон.
  • VBE страницата ще се отвори и ще копира кодирането по -долу и поставете на страницата VBE.
  • За да отворите работната книга, задайте посочения по -долу макрос.
Sub sCloseWorkbook ()
'дефиниране на променлива за името на файла
Dim csFileName As String
'вземете име на файл от клетка A1 на Sheet1
csFileName = ThisWorkbook.Sheets ("Пример за отваряне и затваряне"). Диапазон ("A1")
'затворете работната книгаWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & "затворен"
End Sub

И двата макроса ще бъдат присвоени на командните бутони, трябва да използваме по -долу кодиране на макроси.

Опция Изрично
Sub sExample () Const csFileName As String = _
"C: \ Test \ Master.xlsx" Работни книги. Отворете
csFileNameWorkbooks (Разделяне (csFileName, "\") (UBound (Разделяне (csFileName, "\")))). Затваряне
End SubSub sOpenWorkbook ()
'дефиниране на променлива за името на файла
Dim csFileName As String
'вземете име на файл от клетка A1 на Sheet1
csFileName = ThisWorkbook.Sheets ("Пример за отваряне и затваряне"). Диапазон ("A1") 'отваряне на работната книга
Работни книги. Отворете csFileNameMsgBox csFileName & "отворен"
End SubSub sCloseWorkbook ()
'дефиниране на променлива за името на файла
Dim csFileName As String 'вземете името на файла от клетка A1 на Sheet1
csFileName = ThisWorkbook.Sheets ("Пример за отваряне и затваряне"). Диапазон ("A1")
'затворете работната книгаWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & "затворен"
End Sub

Забележка: - Трябва да споменете пътя според вашия файл.