excel 报表保存为htm格式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel 报表保存为htm格式

共有2887人关注过本帖树形打印复制链接主题：excel 报表保存为htm格式

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/24 10:41:00 [显示全部帖子]

用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

https://msdn.microsoft.com/zh-cn/library/microsoft.office.interop.excel.xlfileformat.aspx

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/25 10:41:00 [显示全部帖子]

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/25 10:56:00 [显示全部帖子]

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

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