以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]excel(5.0/95)版文件数据导入问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57268)
--  作者：hzcaqjf
--  发布时间：2014/9/22 10:52:00
--  [求助]excel(5.0/95)版文件数据导入问题
由于5.0/95版excel文件不能导入狐表中,嫌手工转换太麻烦,
想在狐表中编写代码,将选定的excel文件(5.0/95版)自动转换为excel2003版,
代码应怎样写?
--  作者：有点甜
--  发布时间：2014/9/22 11:08: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.xls", _
    FileFormat:=MSExcel.XlFileFormat.xlAddIn8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False)
catch ex As exception
    msgbox(ex.message)
finally
    app.quit
End try

 

 参考

 

http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.xlfileformat.aspx

 
--  作者：hzcaqjf
--  发布时间：2014/9/22 11:14:00
--  
那个链接中代码一点都看不懂.
照搬您的代码就是了.
多谢甜大师.