Excel ブック上のデータを読み込む

「見出し行」も含めて転記する

Sub 見出し行も転記する()
Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset, FileName As String
Dim i As Integer

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

'「伝票一覧」シートの内容を読み込む
myRS.Open "[伝票一覧$]", myCon

'フィールド名を書き出す
For i = 1 To myRS.Fields.Count
  Cells(1, i) = myRS.Fields(i - 1).Name
Next

'A2番地を基点にデータ転記
Range("A2").CopyFromRecordset myRS

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

End Sub

伝票一覧シート

実行結果