Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Home Premium : Excel 2016)
プロバイダのエラーの原因をおしえてください。
投稿日時: 17/01/10 16:03:15
投稿者: katoyosi2010

いま、@のところで 実行時エラー '3706' プロバイダーが見つかりません。正しくインストールされていない可能性があります。   といわれています。
 
参照設定 は ACTIVE DATA OBJECT 6.1 LIBLALY と ACTIV DATA OBJECT RECORDSET 6.0 LIBLALY
   は設定してあります。
 
何が不足しているのでしょうか。  ご教示くださるとありがたいです。
よろしくおねがいいたします。
 
 
 
Sub LOAD_コメント()
    '------------------------------------------------------------
    ' T_コメントのロード
    '------------------------------------------------------------
    wkb.Sheets("メイン").Select
    Range("P3:S300").Select
    Selection.ClearContents
    Range("P3").Select
     
     
    Dim db2 As New ADODB.Connection
    Dim rcs2 As New ADODB.Recordset
 
 
    db2.Open "Provider=Microsoft.OLEDB.Ace.12.0;Data Source=" & FILENAME2  ----−@
     MYSQL = "SELECT * FROM T_矢印コメント"
 
     MYSQL = MYSQL & " ORDER BY T_矢印コメント.ID"
 
     rcs2.Open MYSQL, db2, adOpenKeyset, adLockOptimistic
      
     If rcs2.RecordCount = 0 Then
' MsgBox "登録データが見つかりません。"
     End If
 
    ActiveCell.CopyFromRecordset rcs2
    ActiveCell.CurrentRegion.EntireColumn.AutoFit
     
    rcs2.Close
    Set rcs2 = Nothing
    db2.Close
    Set db2 = Nothing
    ' -----------------------------------------------------------------------

回答
投稿日時: 17/01/10 16:40:32
投稿者: たこはち

Microsoft.OLEDB.Ace.12.0→Microsoft.ACE.OLEDB.12.0
で試して下さい。

投稿日時: 17/01/10 17:47:50
投稿者: katoyosi2010

たこはち さん ありがとうございました。 うまくいきました。
年末から時間がたって 文法がちがってきました。
 
ありがとうございます。 今後も宜しくお願いします。