VBA 308号室:他のブックを開いてシート情報を取得

（例）ブックのフルパス=”C:\Sample.xlsx”
取得する情報のシート名=”Sheet1″
取得セル=A1
転記先；シート名=”Data”、セル=D10

Dim xlsName As String    'ブックのフルパス
Dim fName As String    'ブックのファイル名

Dim WbXls    'ブックを紐づける為の変数

'----------------------------------------

bookName = "C:\Sample.xlsx"
fName = "Sample.xlsx"

'----------------------------------------
'ブックを開く
Workbooks.Open Filename:=bookName

'----------------------------------------
'ブック内をコントロールするために代入
Set WbXls = Workbooks(fName)

'----------------------------------------
'開いたブックのSheet1-セルA1の値を取得
'A1の値=文字列
Dim bufStr As String

bufStr = WbXls.Worksheets("Sheet1").Range("A1")

'----------------------------------------
'取得した値をData1シートのセルD1に入れる

Thisworkbook.Worksheets("Data1").Range("D1") = bufStr

'----------------------------------------
'開いたブックを閉じる

Application.DisplayAlerts = False    '警告OFF

WbXls.Close

Application.DisplayAlerts = True    '警告ON

'----------------------------------------
'後片付け
Set WbXls = Nothing

'----------------------------------------