この記事では、閉じるブックを開くために使用されるExcel VBAのメソッドを閉じて開く方法と、開いているブックを閉じる方法について学習します。

Excelシートにコマンドボタンを作成し、マクロを割り当てます。

ActiveXコントロールを作成する方法については、 `link：/ Tips-activex-controls-in-microsoft-excel-2010 [link]`をクリックしてください

VBAを介してExcelワークブックを開く方法は？

以下の手順とコーディングに従ってください。-* 2つのコマンドボタンを挿入します。

  • コマンドボタンをマウスで右クリックするために使用する最初のコマンドボタン。

  • VBEページが開き、以下のコーディングをコピーしてVBEページに貼り付けます。

  • ワークブックを開くには、以下のマクロを割り当てます。

Sub sOpenWorkbook（）

‘ファイル名の変数を定義DimcsFileName As String’Sheet1のセルA1からファイル名を取得csFileName = ThisWorkbook.Sheets（ “Example Open and Close”）。Range（ “A1″）

‘ブックを開きますWorkbooks.OpencsFileName MsgBox csFileName＆ “opened”

End Sub *コマンドボタンをマウスで右クリックするために使用する2番目のコマンドボタン。

  • VBEページが開き、以下のコーディングをコピーしてVBEページに貼り付けます。

  • ワークブックを開くには、以下のマクロを割り当てます。

Sub sCloseWorkbook（）

‘ファイル名の変数を定義DimcsFileName As String’Sheet1のセルA1からファイル名を取得csFileName = ThisWorkbook.Sheets（ “Example Open and Close”）。Range（ “A1″）

‘ワークブックを閉じるWorkbooks（Split（csFileName、 “\”）（UBound（Split（csFileName、 “\”））））。CloseMsgBox Split（csFileName、 “\”）（UBound（Split（csFileName、 “\”））） ＆「クローズ」

End Sub両方のマクロがコマンドボタンに割り当てられます。以下のマクロコーディングを使用する必要があります。

Option Explicit Sub sExample（）Const csFileName As String = _ “C：\ Test \ Master.xlsx” Workbooks.Open csFileNameWorkbooks（Split（csFileName、 “\”）（UBound（Split（csFileName、 “\”））））。 Close End Sub Sub sOpenWorkbook（）

‘ファイル名の変数を定義DimcsFileName As String’Sheet1のセルA1からファイル名を取得csFileName = ThisWorkbook.Sheets（ “Example Open and Close”）。Range（ “A1″）’ブックを開くWorkbooks.Open csFileNameMsgBox csFileName＆ “opened “

End Sub Sub sCloseWorkbook（）

‘ファイル名の変数を定義DimcsFileName As String’Sheet1のセルA1からファイル名を取得csFileName = ThisWorkbook.Sheets（ “Example Open and Close”）。Range（ “A1″）

‘ワークブックを閉じるWorkbooks（Split（csFileName、 “\”）（UBound（Split（csFileName、 “\”））））。CloseMsgBox Split（csFileName、 “\”）（UBound（Split（csFileName、 “\”））） ＆「クローズ」

End Sub Note：-ファイルに応じてパスを指定する必要があります。

image 4