ADOでExcelブックに接続する

2018.03.30

データリンクファイルで接続する

Sub Excelに接続2()
Dim myCon As New ADODB.Connection

'データリンクファイルを利用して接続
myCon.Open "File Name=" & ThisWorkbook.Path & "\xls\3-DataLink.udl;"

MsgBox "Excelブックに接続完了！"

'接続を解除し、オブジェクトをクリア
myCon.Close: Set myCon = Nothing

End Sub

データリンクファイルの設定
「Extended Properties」の値を「Excel 8.0」にする。