5,387
社区成员
发帖
与我相关
我的任务
分享
var
Form1: TForm1;
EApp:variant;
implementation
uses ComObj, OleServer,Excel2000;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
EApp:=CreateOleObject('Excel.Application');
Windows.SetParent(EApp.HWND,Panel1.Handle);
EApp.Workbooks.Open('C:\a.xls');
EApp.Visible:=true;
end;