-- 作者: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
请老师费心指导!
|