Delphi4でExcelの操作をするには (ID:16373)

名前

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

本文

Delphi4.ProでExcel2002を起動し印刷データをDelphiから書込みたいのです。
OSはXPです。
uses  Comobj;

procedure TForm1.PrintClick(Sender: TObject);
var
  E_Excel       : Variant;
  E_Application : Variant;
  E_WorkBook    : Variant;
  E_WorkSheet   : Variant;
begin
// Excel をオープン
  try
  E_Excel               := CreateOleObject('Excel.Application');
  E_Application         := E_Excel.Application;
  except
      on EOleSysError do begin
         //起動失敗
         ShowMessage('Excelが起動できません');
         E_Excel := Null;
         Exit;
      end;
  end;
  E_Application.Visible := True;
  E_Application.WorkBook.Open('C:\A_C\MyData.xls'); //ｘｌｓファイルを指定
  E_WorkBook            := E_Application.ActiveWorkbook;
  E_WorkSheet           := E_Application.ActiveSheet;

// データをファイルに書き込む
     E_WorkSheet.Cells(1,1).Value := '1234';

// WorkBookの内容を保存してExcelを終了する
  E_WorkBook.Saved := FALSE;
  E_Application.WorkBook.Close;
  E_Excel.Quit;
  E_Excel     := unAssigned;
  E_WorkBook  := Unassigned;                           //変数のクリア
  E_WorkSheet := Unassigned;                         //変数のクリア

end;

CreateOleObject文を実行するとEoleStsErrorクラスの例外を生成しました
'CoInitializeは呼び出されていません。'のメッセージが出てExcelが起動できません、何方か教えて下さい。

Delphi3.Proで処理するとExcelは起動しますが、データをファイルに書き込む行で
CreateOleObject文を実行するとEoleStsErrorクラスの例外を生成しました
''WorkBook'メソッドはオートメーション オブジェクトでサポートされていません'のメッセージが出ます。
Delphi4で処理したいのでですが、対処方法を教えて下さい。

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

戻る