このvbaで指定したフォルダから探せるようにしたいのですがどうしたらよろしいでしょうか？（Ｃドライブ

このvbaで指定したフォルダから探せるようにしたいのですがどうしたらよろしいでしょうか？（Ｃドライブなど）、現在は実行したらドキュメントに飛ぶ状態です
Sub マスターデータ取込02() '選択したファイルを取り込み、別のファイルに貼り付ける。

Dim RC As Integer
Dim OpenFileName As String, fileName As String, Path As String, SetFile As String
Dim wbMoto As Workbook, wbSaki As Workbook

Set wbMoto = ActiveWorkbook 'マスターデータ取り込み元をセット

Application.DisplayAlerts = False


OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
'ダイアログボックスを表示して、マスターデータファイルを指定します。

If OpenFileName <> "False" Then
SetFile = OpenFileName



Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0
'ダイアログボックスで指定したマスターデータファイルを開きます。

Set wbSaki = Workbooks.Open(Path & SetFile)

If wbSaki.Sheets("検討依頼書").Range("A5").Value = wbMoto.Sheets("２０２１年度").Range("A5").Value Then
'ワークブック間のシート「項目」をコピーします。
wbSaki.Worksheets("検討依頼書").Range("A1").Copy
wbMoto.Worksheets("２０２１年度").Range("A123").PasteSpecial xlPasteFormulasAndNumberFormats
wbSaki.Worksheets("検討依頼書").Range("A3").Copy
wbMoto.Worksheets("２０２１年度").Range("A124").PasteSpecial xlPasteFormulasAndNumberFormats
'wbSaki.Worksheets("項目M").Range("A1:B20").Copy
'wbMoto.Worksheets("項目").Range("F100").PasteSpecial xlPasteFormulasAndNumberFormats 転記先をいくらでも増やせる

Application.CutCopyMode = False 'コピー切り取りを解除
Else
MsgBox "項目Mと項目の値が一致していません", vbOKOnly
End If

'If wbSaki.Sheets("項目M").Range("A5").Value = wbMoto.Sheets("項目").Range("A6").Value Then
'ワークブック間のシート「項目」をコピーします。
'wbSaki.Worksheets("項目M").Range("A1:B20").Copy
'wbMoto.Worksheets("項目").Range("A10").PasteSpecial xlPasteFormulasAndNumberFormats
'wbSaki.Worksheets("項目M").Range("A1:B20").Copy
'wbMoto.Worksheets("項目").Range("A100").PasteSpecial xlPasteFormulasAndNumberFormats

'Application.CutCopyMode = False 'コピー切り取りを解除
'Else
'MsgBox "項目Mと項目の値が一致していません", vbOKOnly
'End If 項目を増やす場合ここを増やすこと Else msgboxはけしたほうがいいかも


wbSaki.Close False 'マスターデータ取り込み先のファイルを閉じる

Else

MsgBox "処理を中断します"

End If

Application.DisplayAlerts = True

End Sub

No.1 回答者： Qchan1962 回答日時： 2021/11/17 17:07

こんばんは、

＞OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")　を指しているのでしょうか？

Application.GetOpenFilenameをそのまま使用する場合は
ChDrive "C"
ChDir "C:\AAA"
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")

他にも
Application.FileDialog(msoFileDialogOpen)を使う方法もあります。
参考：http://officetanaka.net/excel/vba/tips/tips154.htm