EIntfCastError クラスの例外とは？ (ID:13315)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

const
  LCID: DWORD =LOCALE_SYSTEM_DEFAULT;

・・・

{ボタン実行時処理}
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to 4 do begin
    try
	  //エクセルファイルへの接続
      if not ExcelAppconnect(TheTmpFile)then Exit;
	  //・・・
	  //・・・
    finally
      ExcelAppDisconnect;
    end;
  end;
end;

{エクセル接続関数}
function TForm1.ExcelAppconnect(ABookName: String) : boolean;
begin
  try
    result := true;

ExcelApp.Connect;

//ブックを開いてWorkbook,WorkSheetに接続
    ExcelApp.Workbooks.Open(ABookName,  {ABookName = 操作対象ファイル}
                      EmptyParam,EmptyParam,EmptyParam,
                      EmptyParam,EmptyParam,EmptyParam,
                      EmptyParam,EmptyParam,EmptyParam,
                      EmptyParam,EmptyParam,EmptyParam,LCID);
//↑↑↑ExcelApp.Workbooks.Openで上記の例外が発生してしまいます。	
	
	
    Workbook.ConnectTo(ExcelApp.ActiveWorkbook as _workbook);

ExcelApp.Visible[LCID] := false;
//↑↑↑まれにExcelApp.Visible[LCID] := false; 
//でも上記の例外が発生してしまいます。	
    ExcelApp.DisplayAlerts[LCID] := False;
//↑↑↑まれにExcelApp.DisplayAlerts[LCID] := False; 
//でも上記の例外が発生してしまいます。

except
    result := false;
    MessageDlg('ワークブックへの接続に失敗しました。', mtError, [mbOK], 0);
    Exit;
  end;
end;

{エクセル接続切断関数}
procedure TForm1.ExcelAppDisconnect;
begin
  try
    Workbook.Disconnect;
    ExcelApp.Quit;
    ExcelApp.Disconnect;
  except
    MessageDlg('ワークブックとの接続切断に失敗しました。', mtError, [mbOK], 0);
    Exit;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る