今、OLEを使用したEXCEL操作スクリプトを記述しています。
悩んでいるのは、オブジェクトのメソッド実行後のエラー処理の仕方です。

以下に、今作成中のコードを記述しました。例えばその中の文においてでSaveAs
とかに存在しないパスのファイル名を指示した場合
実行時エラーとして、アプリケーションオブジェクトのsystem_errorイベントが
トリガされてしまい、SaveAsを呼び出した後に流れません。errorオブジェクトを使用すれば
system_errorイベントスクリプトで処理できそうですが、SaveAsの成功・非成功
はSaveAsを呼び出した側で処理したと考えております。

VB、VBAとかであれば

On Error Resume Next

objBook.SaveAs(\"c:\\test.xls\")

if err.number <> 0 then
   msgbox \"エラー\"
   exit sub
end if

のイメージです。
どんな事でも構いませんので、ご存知であればご教示宜しくお願いします。

///PBコード
OleObject ExcelObject
OleObject objBook

ExcelObject = CREATE OLeObject
ret_cd = ExcelObject.ConnectToNewObject(\"Excel.Application\")

if(ret_cd < 0)then
MessageBox(\"test\",\"NO\")
return
end if

objBook = ExcelObject.Workbooks.Add()
ExcelObject.Visible = false

objBook.Worksheets(1).Range(\"A\" + string(i)).Value = Right(\"00000\" +String(i),5)
objBook.Worksheets(1).Range(\"A\" + string(i)).NumberFormatLocal = \"@\"
objBook.Worksheets(1).Range(\"A\" + string(i)).Borders(7).LineStyle = 1
objBook.Worksheets(1).Range(\"A\" + string(i)).Borders(8).LineStyle = 1
objBook.Worksheets(1).Range(\"A\" + string(i)).Borders(9).LineStyle = 1
objBook.Worksheets(1).Range(\"A\" + string(i)).Borders(10).LineStyle = 1

objBook.SaveAs(\"C:\\TEMPL\\Q.XLS\")

※ここでエラー処理を行いたいです。

ExcelObject.Quit()

SetNull(objBook)
SetNull(ExcelObject)

DESTROY ExcelObject

GarbageCollect()