開いたブックを履歴に登録する
開いたブックをExcelの最近使ったファイルに登録します。
実行前に確認
- 履歴登録はファイルを保存・変更する操作ではありません。
1サンプルコード
Sub Sample3053()
Dim p As Variant
p = Application.GetOpenFilename("Excel Files (*.xlsx),*.xlsx")
If VarType(p) = vbBoolean Then Exit Sub
Workbooks.Open Filename:=CStr(p), UpdateLinks:=0, ReadOnly:=True, AddToMru:=True
End Sub図で見る操作の流れ
イメージ図コードの動きを表した概念図です。実際のExcel画面ではありません。
手動：xlsxを選ぶ
ファイル選択画面で信頼できるブックを選ぶ
マクロ：読み取り専用で開く
外部リンクの更新はしない
結果：履歴にも登録
AddToMru=Trueで最近使ったファイルに追加する
選択キャンセルなら終了します。履歴への登録はファイルの保存・変更ではありません。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する3つの手順で、コードの使い方を確認できます
- 1
練習用のブックをExcelマクロ有効ブック（.xlsm）で保存します。練習用xlsxを用意します。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］にコードを貼り付けます。
- 3
Sample3053内にカーソルを置いてF5で実行します。開いたブックをExcelの最近使ったファイルに登録します。