http://homepage2.nifty.com/Mr_XRAY/Delphi/plExcel/index.htm
を参考にTWebBrowserでもExcelを表示、操作できることがわかりました。
が、この場合、Excelのツールバーが自動で表示されないので
アンドゥなどのコマンドボタンが出てきません。
表示させることはできるのでしょうか？
TOleContainerと違い、パネルの内部などに配置できるので
TWebBrowserの方が使い勝手がよいと思いまして。
※TOleContainerは、Excelのツールバーの位置が制御できない。
あとは、ツールバーさえ、出てくれればよいのですが・・・
自己レスです。
Mr_XRAYさんのサンプルで以下の部分を追加することで
実現できました。
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
ExcelWorkbook1.ConnectTo
(ExcelApplication1.ActiveWorkbook as _workbook);
ExcelWorksheet1.ConnectTo
(ExcelApplication1.ActiveWorkbook.Activesheet as _worksheet);
ExcelWorkSheet1.Activate;
※この部分を追加↓
WebBrowser1.ExecWB(OLECMDID_HIDETOOLBARS,OLECMDEXECOPT_DONTPROMPTUSER);
end;
こちらの方がOLEContainerより画面がすっきりするような・・・