電子書籍ギフト♪ 最大10,000円が当たる!

このvbaで指定したフォルダから探せるようにしたいのですがどうしたらよろしいでしょうか?(Cドライブなど)、現在は実行したらドキュメントに飛ぶ状態です
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("2021年度").Range("A5").Value Then
'ワークブック間のシート「項目」をコピーします。
wbSaki.Worksheets("検討依頼書").Range("A1").Copy
wbMoto.Worksheets("2021年度").Range("A123").PasteSpecial xlPasteFormulasAndNumberFormats
wbSaki.Worksheets("検討依頼書").Range("A3").Copy
wbMoto.Worksheets("2021年度").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

教えて!goo グレード

A 回答 (1件)

こんばんは、


>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
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

教えて!goo グレード

人気Q&Aランキング