为何另存不了?(50分)

  • 主题发起人 主题发起人 xiao-mei
  • 开始时间 开始时间
X

xiao-mei

Unregistered / Unconfirmed
GUEST, unregistred user!
我使用OLE创建了一个对象如下:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
excelapp.workbooks.open('d:/sample.xls');
但在最后使用ExcelApp.SaveAs( 'd:/aaa.xls' );却出现了错误!
error:'Mehtod'saveas' not supported by automation object'
请各位大虾帮帮忙如何把一个excel文件另存为另一个文件名。
 
改为ExcelApp.workbooks.SaveAs( 'd:/aaa.xls' );
 
to 风中流云
你说的方法,我也试过了。但结果一样,显示的错误一样。
你的方法你试过吗?怎么我的不行?
请其他人也帮帮忙。谢谢!
 
ExcelApp.workbooks.SaveAs Filename:= "D:/Book1.xls"
 
to kevincsg
你说的我也试过,但连编译都通不过。有写错吗?
 
ExcelApp.ActiveWorkbook.SaveAs (Filename:="D:/Book1.xls", FileFormat:=xlNormal
,Password:="", WriteResPassword:="", ReadOnlyRecommended:=False,CreateBackup:=False)
 
to kevincsg
你的方法,我试过了。已经行了。谢谢!请问你有关于这方面的资料吗?
delphi的帮助文件里没有。谢谢!
 
看看VBA的资料excel里有
 
to kevincsg
你是说msdn吗?
 
接受答案了.
 
后退
顶部