设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2615|回复: 7
打印 上一主题 下一主题

[模块/函数] [经验]Access控制Excel零值不显示

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2008-10-29 16:52:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Access控制Excel零值不显示
经常会将数据输出到Excel,如果输出的零值在Excel不希望显示出来的话,可在Access程序中控制,也可直接控制Excel零值显示方式

下面就是代码

On Error Resume Next
    Dim xlsApp As Object
    Dim xlsWBook As Object
    Dim xlsWSheet As Object
    DoCmd.Hourglass True

        Set xlsApp = CreateObject("Excel.Application")      
    Set xlsWBook = xlsApp.Workbooks.Add(CurrentProject.Path & "\MonthTemplate.xlt") '使用模板打开
    Set xlsWSheet = xlsWBook.ActiveSheet
   
    xlsApp.ActiveWindow.DisplayZeros = False
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2008-10-30 00:16:05 | 只看该作者
学习啦~~
3#
发表于 2008-10-30 11:48:59 | 只看该作者
学习
[:50]
4#
发表于 2009-2-9 15:23:27 | 只看该作者
要好好学习一下!
5#
发表于 2009-2-9 16:01:50 | 只看该作者
对excel了解不多,学习
6#
发表于 2009-2-9 17:03:37 | 只看该作者
学习了,导出Excel时,解决0的显示虽然不是个大问题,可也是很烦人的事。
7#
发表于 2016-4-10 10:23:14 | 只看该作者
很及时 ,前几天还有人在问这个问题呢,谢谢了!^=^
8#
发表于 2016-5-10 12:31:49 | 只看该作者
谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-4 01:33 , Processed in 0.111245 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表