| |
>Excelへエクスポートすることになり、以下のようにしてエクセルへは正常に出力されますが、
>エラーのメッセージボックスが出ます。内容は・・・
>
>Error番号：0
>Error内容： ←空白です。
>
>エラー番号0とは何でしょうか。どう解決すればいいのでしょうか？
エラーが出ていないから、エラー番号は０です。
エラーが出ていないから、エラー内容は空白です。
プログラムを良く見てみましょう。
エラー処理の所は、正常に処理されても、エラーになっても通ります。
エラー処理はエラーの場合にのみ通す必要があります。
〜 上部省略 〜
>'既存のデータを消去
>xlWs.Range("A4.N9999").ClearContents
>'
>'セルを指定してレコードセットを張り付け
>xlWs.Range("A4").CopyFromRecordset rs
>'
ここに
Exit Sub
が必要です。
>エラー:
>
> MsgBox "Error番号：" & Err.Number & vbNewLine & _
> "Error内容：" & Err.Description, 16, "管理者"
> End
>
>End Sub
|
|
かろちん
- 05/2/19(土) 21:22 -
