ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1127|回复: 6

[讨论] 请老师赐教VBA调用Excel数据弊端解决方案

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-6-5 12:58 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
请教老师:
       事情是这样的,我们部门有一个数据源表,因为数据大,超过12万行。在另外一个表里操作(一般打开就是一天不会关闭)的时候有时需要查数据源的数据,所以就想通过后台打开把数据源表装进数组里面进行查询。目前现有2种方法,都各有弊端
方法一:第一次查找的时候会在后台打开那个数据文件并装进数组,但查询完后,工程那里还是能看的到那个数据文件的工作簿,而且后续每次查找都是直接调用了工程工作薄的数据。(也就是在数据文件中的数据发生更改时,查找出来的还是原来的数据,不会实时更新)
弊端解决方案:请问有没有办法在查询完毕后把后台(工程)打开的那个数据文件工作薄关闭。用什么代码关闭?

方法二:此方法没有方法一的弊端,可以实现每次查询都是最新的数据,但是每查询一次,任务管理器的进程就会增加一个EXCEL.EXE的进程。因为查询比较频繁,每天会查询上百次。那样任务管理器进程很吓人。请教用什么方法可以每查询一次就把后台调用的进程结束掉?

方法一

方法一

方法一弊端

方法一弊端

方法二

方法二

方法二弊端

方法二弊端

TA的精华主题

TA的得分主题

发表于 2019-6-5 13:12 | 显示全部楼层
方法一,读取后关闭   
  1. wb.close false
  2. set wb=nothing
复制代码


方法二,也一样

TA的精华主题

TA的得分主题

发表于 2019-6-5 13:26 来自手机 | 显示全部楼层
Set xlBook = xlApp.Workbooks.Open()
改为→
Set xlBook = GetObject()'括号中内容自填!
wb.Close SaveChanges:=False

TA的精华主题

TA的得分主题

发表于 2019-6-5 13:55 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-5 14:50 来自手机 | 显示全部楼层
lsdongjh 发表于 2019-6-5 13:12
方法一,读取后关闭   



感谢老师指点!问题已得到解决!

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-5 14:51 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
lss001 发表于 2019-6-5 13:26
Set xlBook = xlApp.Workbooks.Open()
改为→
Set xlBook = GetObject()'括号中内容自填!

问题已解决!谢谢老师!

TA的精华主题

TA的得分主题

发表于 2019-6-6 09:56 | 显示全部楼层
学到了新知识!Set xlBook = GetObject()'括号中内容自填!
wb.Close SaveChanges:=False
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 13:08 , Processed in 0.043531 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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