以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导出到excel2007后，文档无法打开  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79167)
--  作者：niu_niu
--  发布时间：2015/12/25 14:01:00
--  导出到excel2007后，文档无法打开
将系统统计的数据导出到excel2003版本后能够自动打开，文档正常，但是导出到2007版本，无法打开，手动打开excel文档提示如下：“Excel 无法打开文件，因为文件格式或文件扩展名无效。请确定文件未损坏，并且文件扩展名与文件格式匹配” 。

导出语句为： Book.Save(ProjectPath & "文件名.xlsx" )

还请各位老师指点，谢谢！
--  作者：大红袍
--  发布时间：2015/12/25 14:16:00
--  

book原来是什么的，保存就只能保存成什么的。

 

Book.Save(ProjectPath & "文件名.xls" )
--  作者：niu_niu
--  发布时间：2015/12/25 14:22:00
--  
保存格式为excel2003时，定义  Dim Book As New XLS.Book，我想将最后保存格式变为excel2007，  book要这么定义吗？ ==>   Dim Book As New XLSx.Book
这样写好像不对哦，还请老师指点。
--  作者：大红袍
--  发布时间：2015/12/25 14:30:00
--  

这样写

 

Dim App As New MSExcel.Application
try
    app.DisplayAlerts = False
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.open("d:\\test.xls")
    wb.SaveAs(Filename:="d:\\test.xlsx", FileFormat:=MSExcel.XlFileFormat.xlOpenXMLWorkbook)
catch ex As exception
    msgbox(ex.message)
finally
    app.quit
End try

--  作者：niu_niu
--  发布时间：2015/12/25 16:23:00
--  
谢谢  大红袍老师，文档转换的问题已经解决。
还想请教一个问题，我将excel 2003文档转换成excel 2007后，想把之前生成的excel2003文档删除，不知道语句该如何编写，还请指点！
--  作者：大红袍
--  发布时间：2015/12/25 16:31:00
--  

参考

 

http://www.foxtable.com/help/topics/0338.htm

 
--  作者：niu_niu
--  发布时间：2015/12/28 14:20:00
--  
问题已解决，谢谢大红袍老师！