C
CJ
Unregistered / Unconfirmed
GUEST, unregistred user!
var
Templete,NewTemplete: OleVariant;
begin
with ExcelApplication1 do
begin
try
Connect;
except
Showmessage('请先安装 Microsoft Excel 97 或更高版本。');
end;
Templete := 'c:/exreport/order.xlt';
NewTemplete := false;
Workbooks.Add(Templete,NewTemplete);
Caption := '正在制作报表，请稍等……';
Visible[0] := true;
Range['B',3].Select;
Templete,NewTemplete: OleVariant;
begin
with ExcelApplication1 do
begin
try
Connect;
except
Showmessage('请先安装 Microsoft Excel 97 或更高版本。');
end;
Templete := 'c:/exreport/order.xlt';
NewTemplete := false;
Workbooks.Add(Templete,NewTemplete);
Caption := '正在制作报表，请稍等……';
Visible[0] := true;
Range['B',3].Select;
