VBA：ファイルを開く

Question

前提・実現したいこと

ファイルを開く際に、ユーザ側にファイルを自ら選択してもらうために
このようなコードを書きました。

Sub test()
Dim file

'ユーザにファイルを指定してもらう
file = Application.GetOpenFilename(MultiSelect:=False)


 'ファイルを開く
Workbooks.Open (file)

End Sub 

その下にこのようなコードがあります。

Sub test2()

Dim wb As Workbook
Set wb = Workbooks("Book1.xlsx")
    
        wb.Sheets(1).Range("A1").value _
        = Workbooks("Book2.xlsm").Worksheets("Sheet1").Range("A1").value
End sub

この際、↑のコードでは

Set wb = Workbooks("Book1.xlsx")

とファイル名を指定しているのですが、

ファイル名は変更される可能性があるので
このような表記は避けたいです????

そのため、
ファイル名が変更される可能性があるので、
最初にファイル名を指定して開くのではなく
ファイルを自分で選択できる形にしました。

このような場合、ファイル名はどのように指定すればいいのでしょうか。

ちなみに２つのプロシージャーに分かれていますが、
最終的にはCallステートメントで連続で動かす予定です。

Answer 1

Office TANAKA - Excel VBA Tips[3種類の「ファイルを開く」ダイアログボックス]

ここらへんでどうでしょう

Answer 2

Openメソッドの戻り値を変数に代入できるので、

Set wb = Workbooks("Book1.xlsx")

を以下のようにすればよいのでは。

Set wb = Workbooks.Open(file)

Comments

[pomiw0000]

回答ありがとうございます。
実行してみたところ変数がないとのエラーがでてしまいます????

[jinoji]

2つのプロシージャに分かれているからですね。
分けなければいけない必然性はありますか？

[pomiw0000]

今は取り合えず分けて書いてるって感じです。
あとからひっつけようと思います!

やはり、プロシージャに分かれている場合は難しいですね????

[hex309]

「変数がない」ということであれば、その変数をきちんと宣言すればよいのでは。
また、プロシージャを分ける必要がなければ、ひとまずまとめてみたはいかがですか？