ole控件中嵌入EXCEL,SAVETOFILE问题??

Question

ole控件中嵌入EXCEL(使用已存在的文件),想要通过SAVETOFILE把改动保存到原文件之中..
代码如下::
private sub mmsave_click()
   dim intFileNum as integer
   intFileNum = FreeFile
   open" d:\quanzhong.xls " for binary as #intFileNum
   ole1.savetofile #intFileNum
   close #intFileNum
end sub问题::open"----"所打开的文件是否一定要是二进制文件
      我保存到我调用的原EXCEL 文件是否可以????
调试过程中提示:要求对象错误---------请问这是什么原因?
这个问题捆扰我两天了,查了很多书都没有结果
请高人指点迷经,多谢了!!!!

Answer 1

open"----"所打开的文件是是二进制文件或文本文件，象，WORD，EXCEL是不行的，可以使用ole自动化技术。引用EXCEL类型库：定义变量。
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
然后，可以进行相关操作（打开，保存等）。