Office 365中VB.NET通过Microsoft.Office.Interop.Excel无法保存.xls/.xlt文件

问题描述 #

使用VB.NET开发的Windows Forms应用，通过Microsoft.Office.Interop.Excel执行Excel文件打开、新增工作表及数据保存操作时，除.xls和.xlt格式外，其他Excel格式均可正常工作。在MS Office 365版本中，保存这两种格式会抛出错误：Exception from HRESULT: 0x800A03EC，但Excel 2024可正常运行。错误触发在代码行：wb.SaveAs(pstrDestFileName, Excel.XlFileFormat.xlExcel8)。

代码示例 #

Sub Main()
    Dim xlApp As New Microsoft.Office.Interop.Excel.Application
    Dim wb As Microsoft.Office.Interop.Excel.Workbook
    Try
        xlApp = CreateObject("Excel.Application")
        xlApp.Interactive = False
        xlApp.DisplayAlerts = False
        xlApp.EnableEvents = False
        Dim pstrSrcFileName = "C:\Files\Book1.xls"
        Dim pstrDestFileName = "C:\Files\einfotree Copy of Book1.xls"
        wb = xlApp.Workbooks.Open(pstrSrcFileName, False, False, , "", "", , , , , , , False)
        wb.SaveAs(pstrDestFileName, Excel.XlFileFormat.xlExcel8)
        wb.Close(False)
        xlApp.Quit()
    Catch ex As Exception
       ' 异常处理逻辑
    End Try
End Sub

可能原因及解决方案 #

可能原因 #

• Office 365的安全策略更新，限制了老旧Excel 97-2003格式（.xls/.xlt）的保存操作，以规避该格式的安全漏洞风险。
• Office 365版本中Interop.Excel组件对xlExcel8格式的处理逻辑发生变更，与Excel 2024存在兼容性差异。

解决方案 #

1. 调整Office信任中心文件阻止设置
   • 打开Excel客户端，依次进入「文件」>「选项」>「信任中心」>「信任中心设置」>「文件阻止设置」，检查是否勾选了阻止保存Excel 97-2003工作簿，若勾选则取消该选项。
2. 完善SaveAs方法的参数传递
   • Office 365部分版本要求SaveAs方法显式传递更多参数，即使参数值为空，可修改代码如下：

     wb.SaveAs(
         Filename:=pstrDestFileName,
         FileFormat:=Excel.XlFileFormat.xlExcel8,
         Password:="",
         WriteResPassword:="",
         ReadOnlyRecommended:=False,
         CreateBackup:=False,
         AccessMode:=Excel.XlSaveAsAccessMode.xlNoChange,
         ConflictResolution:=Excel.XlSaveConflictResolution.xlUserResolution,
         AddToMru:=True,
         TextCodepage:=0,
         TextVisualLayout:=0,
         Local:=False
     )
     

3. 迁移至Open XML格式（推荐）
   • 若业务场景允许，优先使用.xlsx格式（对应xlOpenXMLWorkbook）替代老旧格式，避免安全限制和兼容性问题：

     wb.SaveAs(pstrDestFileName, Excel.XlFileFormat.xlOpenXMLWorkbook)
     

4. 更新Office 365到最新版本
   • 部分早期Office 365版本存在的SaveAs方法bug已在后续更新中修复，检查并安装Office的最新更新包。

内容的提问来源于stack exchange，提问作者Akbar Husain