Access培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

导出Excel报表的时候,激活Excel模版中的数组公式

时 间:2019-01-31 13:56:52
作 者:易勋   ID:35404  城市:上海
摘 要:在Excel报表模版中,有一个数组公式。数组公式在Excel中需要使用Ctrl+Shift+Enter来激活,但是如果是通过Access的VBA代码来导出的要怎么处理呢?
正 文:

要实现VBA来启用Excel中的数组公式有两种方案:

1、通过keybd_event来模拟Ctrl+Shift+Enter的按键;

2、通过代码直接设置Excel中的Formula为FormulaArray。


假设D5单元格中保存了公式,但是要通过Ctrl+Shift+Enter来设置它为数组公式。下面就是第二种方案的实现代码:

Dim objApp As Object:Set objApp = CreateObject("Excel.Application")
Dim objBook As Object: Set objBook = objApp.Workbooks.Open(strTemplate, ReadOnly:=True)
Dim objSheet As Object: Set objSheet = objBook.Sheets(1)
objSheet.Activate
objSheet.Range("D5").Activate
objSheet.Range("D5").FormulaArray = objSheet.Range("D5").Formula
Set objSheet = Nothing
Set objBook = Nothing
Set objApp = Nothing


Access软件网官方交流QQ群 (群号:864245409)       access源码网店

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助