| 
    
     |  | 自Bookに対してADOアクセスする時の宿命みたいなもののような気がしますが... OSとExcelのバージョンは何でしょう?
 
 2007以降だったらProviderに"Microsoft.ACE.OLEDB.12.0"を使うと良いと思います。
 2003でも『2007 Office system ドライバ: データ接続コンポーネント』をダウンロードすれば使えます。
 tp://www.microsoft.com/ja-jp/download/details.aspx?id=23734
 
 ODBC接続だと
 objADO.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
 "DBQ=" & ThisWorkbook.FullName & ";" & _
 "ReadOnly=0"
 objADO.Close
 
 OLEDBでは
 objADO.Provider = "Microsoft.ACE.OLEDB.12.0"
 objADO.Properties("Extended Properties") = "Excel 12.0"
 objADO.Properties("Data Source") = ThisWorkbook.FullName
 objADO.Open
 objADO.Close
 
 
 |  |