OLEコンポーネントに組み込んだEXCELの値を取得するには？

解決

Rooster 2007-01-21 00:26:35 No: 24539

<Delphi7 EXCEL2003>
フォームにOLEコンポーネントを貼り付けEXCELを定義しました。
そのEXCELにデータを書き込んだり、読み込んだりしたいのですが、
方法がわかりません。
どなたかに教えていただきたく投稿しました。
よろしくお願いします。

Rooster 2007-01-21 01:59:50 No: 24540

自己レス
OLEコンポーネントって書いてしまいましたが、TOleContainerのことです。

ちょっとちがう？ 2007-01-22 20:20:32 No: 24541

OleContainer1.CreateLinkToFile([ファイルパス], False );
編集する時はＥｘｃｅｌが起動します。

Ｅｘｃｅｌ起動させずに編集する方法はちょっとわかりません・・・
この手法だとRoosterさんがやりたい事とは違ってくるかもしれない？

Rooster 2007-01-23 17:15:21 No: 24542

投稿ありがとうございます。
他の掲示板でMr.XRAYさんの投稿から解決しました。
下記はその内容です。
>新規のプロジェクトにTOleContainerとボタンを一つ配置します。
>OleContainer1上の右クリックで
>[オブジェクトの挿入]で[Microsoft Excelワークシート]を選択します。
>
>ボタンクリックを以下の様にして実行してみて下さい。
>usesにComObjが必要です。
>動作確認  WindowsXP(SP2) + Delphi5 + Excep2000
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
>     WorkBook   : Variant;
>     WorkSheet  : Variant;
>begin
>     OleContainer1.Visible:=True;
>     OleContainer1.DoVerb(ovShow);
>
>     //OleContainerのExcelを(ここでは)WorkBookというオブジェクトに関連づける
>     WorkBook :=OleContainer1.OleObject;
>
>     //そのWorkBookのシートオブジェクト
>     WorkSheet := WorkBook.WorkSheets[1];
>
>     //後はいろいろ取得やら値のセットやら操作する(これはセルへ値を代入の例)
>     WorkSheet.Cells[1,1].Value:='ABC';
>end;
>
>少ないですが、以下にも例があります。
>http://homepage2.nifty.com/Mr_XRAY/Delphi/plSamples/T_OleObject.htm