none
KB4499149適用後、Access2008のCopyFromRecordset実行時に「ライブラリは登録されていません」と表示される RRS feed

  • 質問

  • お世話になります。

    タイトルの通り、更新パッチ「KB4499149」適用後にAccessツールを実行すると以下のエラーとなります。

    [エラー番号=-2147319779]

    [エラー内容='CopyFromRecordset' メソッドは失敗しました: 'Range' オブジェクト]



    環境は以下の通りです。

    OS:Windows Server 2008 SP2 32bit 

    Access:2008 32bit

    Excel:2010 32bit



    ※適用前は正常に動作していました。

    また、該当コマンドの抜粋は以下の通りですが、この処理に行く前にRangeオブジェクトやCellsを使った処理があり、そこでは該当エラーは発生しません。
    分かっている範囲では、CopyFromRecordsetコマンド実行時のみ、処理がされずにオートメーションエラーとなります。

    処理の仕様は、Access上のテーブルからSelect文を発行してExcelの新規ブックに結果を貼り付けて保存するだけの処理です。
    ↓↓↓↓↓
        Dim strSQL                As String
        Dim objExcelApp              As Object
        Dim objConn                    As New ADODB.Connection
        Dim objRecordset             As New ADODB.Recordset
        Set objConn = CurrentProject.Connection
        objRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic
        Set objExcelApp = CreateObject("Excel.Application")
        With objExcelApp
            .Visible = False
            .DisplayAlerts = False

            .Workbooks.Add
            .Worksheets(1).Select

            .Cells(1, 1).CopyFromRecordset objRecordset ←ここでエラーが発生

            .ActiveWorkbook.SaveAs FileName:="保存パス"
        End With
    ↑↑↑↑↑


    • 編集済み R0z 2019年10月24日 5:28
    2019年10月24日 5:27

すべての返信

  • R0zさん、こんにちは。フォーラムオペレーターのFarenaです。

    TechNetフォーラムにご投稿くださいましてありがとうございます。

     

    投稿いただいた内容を拝見しますと、更新の問題だったのではと想定されます

    KB4499149の既知問題ではないですが、まずは最新の更新プログラムを試してください。

     

    また、他の詳細な状況を共有いただくことで他のユーザー様よりのご意見が集まりやすくなります。

    どうぞよろしくお願いいたします。


    Please remember to mark the replies as answers if they help.
    If you have feedback for TechNet Subscriber Support, contact tnmff@microsoft.com.

    2019年10月28日 7:47
    モデレータ