主题：excel 报表保存为htm格式

 Dim Book As New XLS.Book(ProjectPath & "Attachments\成品油出厂检验报告.xls")
        Dim fl As String = ProjectPath & "Reports\temp.xls"
book.save(fl)

 

 

我可以保存为htm格式吗

用vba打开，然后另存为htm，如

 

Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    app.DisplayAlerts = False
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(dlg.FileName)
    Wb.SaveAs(Filename:=dlg.FileName, FileFormat:=MSExcel.XlFileFormat.xlExcel9795)
    wb.close
    app.quit
End If

 

你生成后的excel文件发上来测试一下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:temp.xls

我测试没问题，全部都正常显示

 

Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    app.DisplayAlerts = False
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(dlg.FileName)
    Wb.SaveAs(Filename:="d:\test.htm", FileFormat:=MSExcel.XlFileFormat.xlHtml)
    wb.close
    app.quit
End If

那奇怪了  我在试试啊 谢谢 

可能是ie的问题 我把生成的文件 用360 浏览器打开 显示正常，使用ie 就有问题

 

你ie打开有问题？你用的是什么版本的ie？如果升级ie到最新版呢？

 

webbrowser可以显示网页，也可以显示excel的，不一定要转换成htm文件。

我的ie是8.0. 之前就是在窗口中打开excel。 之所以想生成html 是因为，如果我把模板保护了，在生成过程中 有时会报错， 如果不保护担心生成文件的安全性