エラー処理について

解決

yasu 2004-04-17 03:21:28 No: 8421

お世話になっております。

すみませんが知っておられましたら教えてください。

delphiからExcelを立ち上げてシートにデータを更新し
そのデータをマクロで処理させる処理を作っておりまして
処理の流れとしては一通りできているのですがマクロなど
の処理中に何らかのエラーが発生したときにdelphi側で
判断できるのでしょうか？

今のdelphiは下記のように作っていてエラー処理は入れて
おりません。

  Excel := CreateOleObject('Excel.Application');
  WorkBook := Excel.Workbooks.Add;
  WorkBook :=Excel.WorkBooks.Open(FileName := 'C:\...\test.xls', readOnly := False);
  WorkSheet := WorkBook.WorkSheets[1];
  WorkSheet.name:='Sheet1';
  WorkSheet.Cells[1,1].Value:=test;
  WorkSheet.Cells[1,2].Value:=test2;
  WorkSheet.Columns[1].EntireColumn.AutoFit;
  WorkSheet.Columns[2].EntireColumn.AutoFit;
  WorkBook.Save;
  Excel.Application.Run('Auto_Open');
  GetExitCodeProcess(PI.hProcess, ecode);
  WorkBook.close;
  WorkBook:=unAssigned;
  WorkSheet:=unAssigned;
  Excel.Quit;
  Excel:=unAssigned;

LupinⅢ URL 2004-04-17 03:56:40 No: 8422

try
except
end;
でくくればエラーは取得出来ると思いますよ。。

yasu 2004-04-19 20:23:51 No: 8423

ありがとうございます。

解決いたしました。