お世話になります。
タイトルの通り、更新パッチ「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
↑↑↑↑↑
↧
KB4499149適用後、Access2008のCopyFromRecordset実行時に「ライブラリは登録されていません」と表示される
↧