Ecxcelの操作につきまして (ID:34516)

名前

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

本文

こんにちは、久々に教えて頂きたい事が出てきました。

以下のソースで動作させていますが、
BtnCellPut1Clickでセルに書き込みますと問題なく終了出来るのですが
手入力でセルに書き込みますと終了時エラーになります。

いろいろと調べましたが原因がわかりません。

ご存知の方がいらっしゃいましたら、よろしくお願いいます。

//---------------------------------------------------
【環境】
WindowsXP/Delphi5.0

//---------------------------------------------------
uses
  〜略
  Excel97, OleServer ,ActiveX ,comobj
  〜略
  ;

各Excel関連変数は宣言済

//---------------------------------------------------
procedure TForm1.FormShow(Sender: TObject);
begin
  CoInitialize(nil);

E_Excel :=  CreateOleObject('Excel.Application');
  E_App   :=  E_Excel.Application;
  E_App.Visible := false;

E_App.WorkBooks.Open(FileName:='abcd.xls');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  E_App.Workbooks[1].saved := true ;
  E_App.Workbooks[1].close ;

E_Excel.Quit;
  E_Excel := Unassigned;

CoUninitialize ;
end;

procedure TForm1.BtnCellPut1Click(Sender: TObject);
begin
  ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook as _workbook);
  ExcelWorkSheet1.ConnectTo(ExcelWorkbook1.Worksheets['Sheet1'] as _worksheet);
  ExcelWorksheet1.Range['a10','a10'].Value := 'xxxxxx';
end;

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

戻る