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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel报表错误提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118733)

--  作者：qaz17909
--  发布时间：2018/5/9 17:45:00
--  excel报表错误提示
生成word报表是正常的，生成excel报表老是弹出下面窗口，但关闭以后还是正常生成报表，只是每次都弹出窗口有点烦

弹出的窗口提示：
Run-time error \'91\'
Object variable or With block variable not set

--  作者：有点甜
--  发布时间：2018/5/9 17:56:00
--
贴出你写的代码；你excel报表事件写了什么代码？

--  作者：qaz17909
--  发布时间：2018/5/12 10:51:00
--
我代码如下：

Dim Book As New XLS.Book(ProjectPath & "Attachments\\自送样委托单B.xls")
Dim fl As String = ProjectPath & "Reports\\自送样委托单B.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.WrapText = True
Rg.EntireRow.AutoFit \'自动调整行高
App.Visible = True

--  作者：有点蓝
--  发布时间：2018/5/12 11:29:00
--

Dim Book As New XLS.Book(ProjectPath & "Attachments\\自送样委托单B.xls")
Dim fl As String = ProjectPath & "Reports\\自送样委托单B.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.WrapText = True
Rg.EntireRow.AutoFit \'自动调整行高
App.Visible = True

--  作者：qaz17909
--  发布时间：2018/5/12 11:36:00
--

这两行删了，但还是有弹出来
Dim Proc As New Process \'打开工作簿
Proc.File = fl

--  作者：有点蓝
--  发布时间：2018/5/12 11:42:00
--
测试没有问题。先把所有打开的Execl都关闭掉，特别是任务管理器里面没有关闭的Execl进程