今だけ人気マンガ100円レンタル特集♪

以下のVBAで別BOOKを指定したセルの値を取ってくる(コピー)するプログラムを作成しました。
Set wb2 = Workbooks.Open(”C:\A\Aテスト.xlsx”, UpdateLinks:=False, ReadOnly:=True)箇所で「C:\A\Aテスト.xlsx」のパスを記載するのではなく、選択式で参照するにはどのようにプログラムを変えれば良いでしょうか?

------

Sub a()

Dim wb1 As Workbook
Dim wb2 As Workbook
Set wb1 = ThisWorkbook
Set wb2 = Workbooks.Open(”C:\A\Aテスト.xlsx”, UpdateLinks:=False, ReadOnly:=True)

Worksheets(1).Range("D2:D617").Copy wb1.ActiveSheet.Range("A2")
wb2.Close

End Sub

A 回答 (1件)

ファイル選択ダイアログを開いて選択してもらう形でしょうか。


以下のサイトが参考になるかと思います。

名前を指定してブックを開く
http://officetanaka.net/excel/vba/file/file02.htm

拡張子は「xls」じゃなく「xlsx」に変更してください。
    • good
    • 0

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

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング