C
caoliu
Unregistered / Unconfirmed
GUEST, unregistred user!
一个ExcelApplication,两个ExcelWorksheet
var
i,j,m,n,temp2:integer;
excel1,excel2,excel3,excel4,excel5,temp,temp1:string;
begin
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=false;
ExcelApplication1.Workbooks.Add(Edit1.Text ,0);
ExcelApplication1.Workbooks.Add(emptyparam,0);
ExcelWorksheet1.ConnectTo(ExcelApplication1.Workbooks[1].Worksheets[1] as _Worksheet);
ExcelWorksheet2.ConnectTo(ExcelApplication1.Workbooks[2].Worksheets[1] as _Worksheet);
.
.
.
[red] ExcelApplication1.Workbooks[2].SaveAs(Edit2.Text,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam, EmptyParam,EmptyParam,EmptyParam,0);[/red]
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
SaveAs 有问题 请帮我看看
var
i,j,m,n,temp2:integer;
excel1,excel2,excel3,excel4,excel5,temp,temp1:string;
begin
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=false;
ExcelApplication1.Workbooks.Add(Edit1.Text ,0);
ExcelApplication1.Workbooks.Add(emptyparam,0);
ExcelWorksheet1.ConnectTo(ExcelApplication1.Workbooks[1].Worksheets[1] as _Worksheet);
ExcelWorksheet2.ConnectTo(ExcelApplication1.Workbooks[2].Worksheets[1] as _Worksheet);
.
.
.
[red] ExcelApplication1.Workbooks[2].SaveAs(Edit2.Text,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam, EmptyParam,EmptyParam,EmptyParam,0);[/red]
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
SaveAs 有问题 请帮我看看