| |
久しぶりに質問させてください。
Excelへエクスポートすることになり、以下のようにしてエクセルへは正常に出力されますが、
エラーのメッセージボックスが出ます。内容は・・・
Error番号：0
Error内容： ←空白です。
エラー番号0とは何でしょうか。どう解決すればいいのでしょうか？
Access2000
Excel2000
WinXP
--------------------------------------------------------------------------
Private Sub cmd9_Click()
On Error GoTo エラー
Dim rs As Object
Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
Dim xlWt As Object
Dim xlWu As Object
'
'レコードセットを開く
Set rs = CurrentDb.OpenRecordset("tbl_顧客")
'
'オブジェクトの作成
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
'
'ファイルを開く
Set xlWb = xlApp.Workbooks.Open("F:\テスト.xls")
'
'シートをセット
Set xlWs = xlWb.Worksheets("管理用")
'
'既存のデータを消去
xlWs.Range("A4.N9999").ClearContents
'
'セルを指定してレコードセットを張り付け
xlWs.Range("A4").CopyFromRecordset rs
'
エラー:
MsgBox "Error番号：" & Err.Number & vbNewLine & _
"Error内容：" & Err.Description, 16, "管理者"
End
End Sub
--------------------------------------------------------------------------
|
|
EBI
- 05/2/19(土) 18:30 -
