主题：导出到excel2007后，文档无法打开

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

Book.Save(ProjectPath & "文件名.xls" )

这样写

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

参考

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