エクセルVBAで閉じるとOpenメソッドは閉じて開いているブックに使用することができます。ワークブックのコレクションは、現在開いているすべてのワークブックオブジェクトを含む、覚えておいてください。

ワークシート上のコマンドボタンを配置し、次のコード行を追加します。

1.閉じ以下のコード行クローズopen.xlsm。

Workbooks("close-open.xlsm").Close

2.コード行は、以下の最初に開いた/作成したワークブックを閉じます。

Workbooks(1).Close

3.コードの行は、以下のアクティブブックを閉じます。

ActiveWorkbook.Close

下記4.のコード行は、現在開いているすべてのブックを閉じます。

Workbooks.Close

5.以下のコード行はsales.xlsxを開きます。

Workbooks.Open ("sales.xlsx")

注:それはあなたの既定のファイルの場所に保存されている場合は、ファイルのパスを指定せずにあなたができる唯一のオープンsales.xlsx。デフォルトのファイルの場所を変更するには、[ファイル]タブで、[オプション]、[保存]をクリックします。

6.あなたはまた、標準の[開く]ダイアログボックスを表示するには、ApplicationオブジェクトのGetOpenFileNameのメソッドを使用することができます。

Dim MyFile As String

MyFile = Application.GetOpenFilename()

ファイルを選択し、[開く]をクリック7。

GetOpenFilename Method

注:GetOpenFileName関数は、実際にはファイルを開けません。

8.次に、あなたはいつものようにブックを開くことができます。

Workbooks.Open (MyFile)