Sub Excelに接続() Dim myCon As New ADODB.Connection, FileName As String Dim conStr As String '接続先のExcelファイル FileName = ThisWorkbook.Path & "\xls\DataBook.xls" '接続文字列 conStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Extended Properties=Excel 8.0;" & _ "Data Source=" & FileName '接続 myCon.Open conStr MsgBox "Excelブックに接続完了!" '接続を解除し、オブジェクトをクリア myCon.Close: Set myCon = Nothing End Sub ADOには、Excel専用のOLE D