Delphi8でExcelを操作するには？ (ID:11446)

名前

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

本文

やっと出来た。めんどくせー^^;
一応意図したとおりに、動きましたが合ってるか不明

環境：D8Pro + Office2003 + XP + .NET Framework 1.1

手順：
１．新規VCLフォームアプリケーションを作成
２．[参照の追加]-[COMインポート]で"Microsoft Excel 11 Object Library"を選択
３．Formにボタンを貼り付け
４．usesにComObjとExcelを追加
５．ボタンのクリックイベントに以下のソースを割り当て
−−−
procedure TForm1.Button1Click(Sender: TObject);
Var
  objExcel: Tobject;
  objApp: Excel.Application;
  objBook: Excel.Workbook;
  objSheet: Excel.Worksheet;
begin
  objExcel := CreateComObject(ProgIDToClassID('Excel.Application'));
  objApp := (objExcel as Excel.Application).Application;
  objBook := objApp.Workbooks.Add(system.Type.Missing);
  objSheet := objBook.Worksheets.Add(system.Type.Missing, system.Type.Missing,
                                     system.Type.Missing, system.Type.Missing);
  objSheet.Cells[TObject(1), TObject(2)] := 'test';
  (objApp as Excel.Application).Quit;
  objExcel := Unassigned;
  objBook := Unassigned;
  objSheet := Unassigned;
end;
−−−

P.S.
ソース見ればわかると思いますが、ClassNameからGUIDを取得するにはProgIDToClassIDで出来ます。

でもヘルプには
> CreateComObject は，オブジェクトと情報をやり取りするために使用されるインターフェースへの参照を返します。CreateComObject の場合，このインターフェースは IUnknown 型です。IDispatch 型のインターフェースへの参照を返す OLE オブジェクトを作成するには，CreateOleObject を使用します。
って書いてあるから、CreateOleObjectがあってもいい気がするけどね^^;

参考：
http://www.microsoft.com/japan/msdn/officedev/vsto2003/ExcelObj.asp

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

戻る