以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助:怎样让报表不显示零值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139582)

--  作者:cxmxjwlmq
--  发布时间:2019/8/16 11:23:00
--  求助:怎样让报表不显示零值

各位老师:

   用代码打开已导出的报表,怎样不显示零值?

   代码如下:

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
Wb.WorkSheets(1).name = "hhh"
Wb.WorkSheets(1).range("A1").Value = "hhh123"
Wb.WorkSheets(1).range("A2").Value = "0"
Wb.SaveAs("d:\\123.xls")
App.Visible = True
Dim Wb1 As MSExcel.Workbook = App.WorkBooks.Open("D:\\123.xls")
    With Wb1
        .DisplayZeros = False   \'不显示零值
    End With

报错如下提示:


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20190816112404.png
图片点击可在新窗口打开查看

 

请老师费心指导!


--  作者:有点蓝
--  发布时间:2019/8/16 11:29:00
--  
With Wb1.WorkSheets(1)
        .DisplayZeros = False   \'不显示零值
    End With
--  作者:cxmxjwlmq
--  发布时间:2019/8/16 11:37:00
--  

蓝老师:报错如下图


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20190816113957.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/8/16 11:41:00
--  
App.ActiveWindow.DisplayZeros = false
--  作者:cxmxjwlmq
--  发布时间:2019/8/16 11:52:00
--  
谢谢蓝老师指点!回复太及时了!