［ファイルを開く］ダイアログで開くフォルダを指定する
マクロブックと同じフォルダからファイル選択画面を開きます。
実行前に確認
- ローカルフォルダに保存したブックで試します。SharePoint等のURL形式のPathはこの例では扱いません。
1サンプルコード
Sub Sample3049()
If ThisWorkbook.Path = "" Then
MsgBox "先にこのブックを保存してください。": Exit Sub
End If
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = ThisWorkbook.Path & Application.PathSeparator
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Excel xlsx", "*.xlsx"
If .Show = -1 Then Workbooks.Open Filename:=.SelectedItems(1), UpdateLinks:=0, ReadOnly:=True
End With
End Sub図で見る操作の流れ
イメージ図コードに沿った概念図です。実際の画面や実行結果ではありません。
手動：先に保存
マクロブックをローカルフォルダーに保存
マクロ：選択画面
その保存フォルダーを初期位置として.xlsxの選択画面を表示
手動→マクロ
ファイルを選んで確定すると、リンク更新なし・読み取り専用で開く
未保存なら案内して終了。選択キャンセルなら開きません。SharePointなどURL形式の保存先は対象外です。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する3つの手順で、コードの使い方を確認できます
- 1
練習用のブックをExcelマクロ有効ブック（.xlsm）で保存します。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］にコードを貼り付けます。
- 3
Sample3049内にカーソルを置いてF5で実行します。マクロブックと同じフォルダからファイル選択画面を開きます。