代码如下:var
V:Variant;
begin
oleContainer1.CreateObject('Excel.Sheet.8',false)
oleContainer1.DoVerb(ovshow);
V:=OleContainer1.OleObject;
V.Application.CommandBars['Standard'].Visible:=False;
V.Application.CommandBars['Formatting'].Visible:=False; //不显示菜单及工具栏
end;ole以独占方式打开excel ????
V:Variant;
begin
oleContainer1.CreateObject('Excel.Sheet.8',false)
oleContainer1.DoVerb(ovshow);
V:=OleContainer1.OleObject;
V.Application.CommandBars['Standard'].Visible:=False;
V.Application.CommandBars['Formatting'].Visible:=False; //不显示菜单及工具栏
end;ole以独占方式打开excel ????
改用cxspreadsheet,自带demo,很详细