Excelの例外を種類ごとに違う反応にしたい

Question

Excelコンポーネントで例外が発生した場合、ダイアログが表示されてしまいます。
saveasメソッドを実行した場合
「上書きしますか？」というような内容のダイアログが表示され
「はい」を選んだときは何ともないのですが
「いいえ」や「キャンセル」を選ぶと例外が発生してしまいます。
いいえやキャンセルのときに適切な対応をしたいのですが、どうすればいいでしょうか？

Answer 1

On Error Resume NextをしてからSaveAsメソッドを実行して、
実行直後にIf Err.Number = XXXXXX Then ～みたいにすればよいかと。
On Errorステートメント - Office TANAKA
第62回.「On Error Resume Next」とErrオブジェクト - エクセルの神髄
GoTo 0との違いは、
GoTo 0だとなんでもエラーが発生すると指定箇所に処理が飛んでいってしまうので、
場面ごとの丁寧な対応がしづらいことです。

エラーコードの当て方は、
実行時エラーの一覧 - Office TANAKA
など参考に。
あるいは、実際にデバッグ実行しながら「いいえ」や「キャンセル」を押すとどうなるかを調べながら。

Answer 2

SaveAsメソッドは上書きを拒否した場合エラーとなるようですので、呼び出し元で例外処理を書かねばなりません。COM Serverを利用する側の言語機能によって例外処理は様々ですが例えばVBAを用いているなら次のようにOn Errorを使います。

Sub test()
    Dim wb As Workbook
    
    Set wb = CreateObject("Excel.Sheet")
    wb.Application.Visible = True
    
    On Error GoTo E1
    wb.SaveAs "c:\tmp\test13.xls"
    On Error GoTo 0
    
    wb.Application.Quit
    Exit Sub
E1:
    MsgBox "エラー " & Err & " が発生しましたが多分気にしなくていいと思います..."
    Err.Clear
    Resume Next
End Sub

お使いの言語でのエラー処理・例外処理の仕様を確認してみてください。

---

(ところでgoto文というものを久々に書きました...)