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

• 質問

• 

  

  0

  サインインして投票

  お世話になります。
  
  タイトルの通り、更新パッチ「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