名前付きデータ範囲を読み込む

任意のセル範囲を読み込む

Sub 任意の範囲を指定して転記()
Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset, FileName As String

FileName = ThisWorkbook.Path & "\xls\DataBook.xls"
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;" & _
           "Data Source=" & FileName

'「得意先マスタ」のB1〜D6番地の内容を読み込む
myRS.Open "[得意先マスタ$B1:D6]", myCon

'A1番地を基点に転記
Range("A1").CopyFromRecordset myRS

myRS.Close: Set myRS = Nothing
myCon.Close: Set myCon = Nothing

End Sub

「得意先マスタ」シート

実行結果