目的
- 別のワークブックを読み取り専用で開きたい。
- 値を取得して元ブックに転記したい。
- 開いたブックを閉じたい。
その一例
- 同じフォルダに 2 つのワークブックを準備しました。
- 「A.xls」の「1」枚目のシートの「A1」には「A」と入力されています。
Sub 別ブックを読み取り専用で開いて値を取得して閉じる()
Dim b As Workbook
Set b = Workbooks.Open( _
Filename:=ThisWorkbook.Path & "¥B.xls", _
ReadOnly:=True _
) '開いたものを代入
ThisWorkbook.Worksheets(1).Range("A2").Value = _
b.Worksheets(1).Range("A1").Value '転記
b.Close False '閉じる
End Sub
テスト環境
- Windows 10（64 ビット）
- Microsoft Office Excel 2003
以上、閲覧ありがとうございました。
