Option Explicit
--------------------------------------------------------------------
Sub 相手のファイルを開かずにこちらのデータを複数行書き込む()

Dim Cnn As ADODB.Connection
Dim Rec As ADODB.Recordset
Dim i As Integer
    
    Set Cnn = New ADODB.Connection
    Cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    'Excel97,2000のブックはExcel8.0で設定する
    Cnn.Properties("Extended Properties") = "Excel 8.0"
    
    Cnn.Open "E" & ":" & "\" & "TestData.xls"

    Set Rec = New ADODB.Recordset
    Set Rec.ActiveConnection = Cnn
    Rec.Open "[Sheet2$]", , adOpenKeyset, adLockPessimistic, adCmdTable
    
     'データを追加する
    For i = 2 To 4
        '新しいレコードを追加する
        Rec.AddNew
        Rec!製番 = Range("A" & i)
        Rec!日付 = Range("B" & i)
        'カレント行の内容を更新する
        Rec.Update
    Next
    
    Rec.Close
    Cnn.Close
    Set Rec = Nothing
    Set Cnn = Nothing

End Sub