以文本方式查看主题 -  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=140832)

--  作者：老鼠 --  发布时间：2019/9/15 21:51:00 --  [求助]excel报表代码完善 以下是我自己的按钮代码： Dim Filter   As   String With e.Form.Controls("ComboBox1")     If .Value   IsNot   Nothing  Then         Filter =   "归属年度 = \'" & .Value &   "\'"     End   If End   With With e.Form.Controls("ComboBox2")     If .Value   IsNot   Nothing   Then         If Filter > ""   Then             Filter = Filter &   " And "         End   If         Filter = Filter &   "归属时期 = \'" & .Value &   "\'"     End   If End   With If   Filter >   "" Then     Tables("认证信息").Filter =   Filter End If Dim Book As New XLS.Book(ProjectPath & "attachments\\生存认证表.xls") Book.Build() Book.Save(ProjectPath & "Reports\\生存认证表.xls") Dim Proc As New Process Proc.File = ProjectPath & "reports\\生存认证表.xls" Proc.Start() Tables("认证信息").Filter = "" 问题：在{认证信息}表下执行代码没有问题，但在其它表下执行该代码就报错。 此主题相关图片如下：捕获.png 需求：如何修改才能使其在任意表下执行都正常。

--  作者：有点蓝 --  发布时间：2019/9/15 22:38:00 --   这个代码应该和在什么表下执行没有关系的。勾选上面的“显示详细信息”看看

--  作者：老鼠 --  发布时间：2019/9/16 15:10:00 --   请大神指点。 此主题相关图片如下：无标题.png

--  作者：有点蓝 --  发布时间：2019/9/16 15:23:00 --   做个实例发上来测试一下

--  作者：老鼠 --  发布时间：2019/9/16 16:52:00 --   这是实例，请查验！  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:退休职工管理系统.table [此贴子已经被作者于2019/9/16 16:52:39编辑过]

--  作者：有点蓝 --  发布时间：2019/9/16 17:06:00 --   模板也发上来

--  作者：老鼠 --  发布时间：2019/9/16 17:16:00 --   是这个吗？  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:生存认证表.xls

--  作者：有点蓝 --  发布时间：2019/9/16 17:27:00 --   把模板里的第二个sheet“__Sheet1”删除即可