报表模板生成报表时的表头问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) vba的下标从1开始

显示：异常来自 HRESULT:0x800A03EC

以下是引用aza520在2018/9/9 8:11:00的发言：
显示：异常来自 HRESULT:0x800A03EC

实例发上来测试。

老师上传了例子

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

参考

Dim Book As New XLS.Book(ProjectPath & "Attachments\表A.xlsx")
Dim fl As String = ProjectPath & "Reports\表A.xlsx"
Book.Build()
Book.Save(fl)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath &"Reports\表A.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
'设置打印区域
.PrintTitleRows = Ws.Rows("1:3").Address '打印行标题(在每一页的顶部重复出现)

End With
App.Visible = True
Ws.PrintPreview
App.Quit

改成以下，还是不行。

Dim Book As New XLS.Book(ProjectPath & "Attachments\表A.xlsx")

Dim fl As String = ProjectPath & "Reports\表A.xlsx"

Book.Build()

Book.Save(fl)

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath &"Reports\表A.xlsx")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

With Ws.PageSetup

'设置打印区域

.PrintTitleRows = Ws.Rows("1:3").Address '打印行标题(在每一页的顶部重复出现)

End With

App.Visible = True

Ws.PrintPreview

App.Quit

Dim Proc As New Process

Proc.File = fl

Proc.Start()

出现如下错误：

无法将类型为“Microsoft.Office.Interop.Excel.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Excel._Application”。此操作失败的原因是对 IID 为“{000208D5-0000-0000-C000-000000000046}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 加载类型库/DLL 时出错。 (异常来自 HRESULT:0x80029C4A (TYPE_E_CANTLOADLIBRARY))。

1、我测试没问题；

2、26楼的错误，请卸载重新安装ms office，看6楼的教程去做。

主题：报表模板生成报表时的表头问题