一个excel SaveAs 问题(50分)

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 有问题 请帮我看看
 
如果您的电脑上装有MSOFFICE,建议您先在EXCEL中打印关于VBA的有关帮助,
里面有关于如果用代码操纵EXCEL的方法及细节!
此处SAVEAS您可以试着用
ExcelApplication1.Workbooks[2].SaveAs(路径名+文件名)。不用其它参数就可以!
祝好运!
 
你有试吗?
 
VWorkBook:=VXLApp.WorkBooks.Add;
VWorkBook.SaveAs(FileName);
我試過可以的
 
我打开了两个workbook,其中一个是有数据,一个是空的;
假定有数据叫book1,空的叫book2
现在程序对book1进行处理,将新生成的数据导入到book2中,
在将book2 SaveAS
 
TO:CAOLIU
用ExcelApplication1.Workbooks[2].SaveAs(路径名+文件名)可以的,我試過!
 
问题解决用ExcelWorksheet2.saveas(Edit2.text) is ok

ExcelApplication1.Workbooks[2].SaveAs(路径名+文件名)可以的,我試過!
你是怎么用的,我不行.
 
多人接受答案了。
 
顶部