Excel自动打开、刷新、保存

最新推荐文章于 2023-11-19 00:31:27 发布

置顶

Matthewly

最新推荐文章于 2023-11-19 00:31:27 发布

阅读量9.6k

点赞数 5

文章标签： VBA

本文链接：https://blog.csdn.net/lb08241/article/details/97370574

版权

背景：因为业务需要，每天要发送公司前一天的各项数据，比如：生产、销售等，其中数据包括前N个和当前月每天的各项统计数据。

1、解决思路：①、系统设置定时任务，每天凌晨打开需要发送的excel附件；②、excel直连后台数据库，设置excel更新数据库数据时间为半小时或一小时；③、excel中进行VBA编程，确保excel每半小时或一小时保存；如此，则每次发送邮件，所取得的附件即为包含所需全部数据的excel文件。

2、具体解决方案：

1）定时打开excel文件：

定时打开excel的代码如下：

dim oExcel,oWb,oSheet 
Set oExcel= CreateObject("Excel.Application")  '//创建一个Excel窗口
oExcel.Visible = True   '//设置为可见
Set oWb = oExcel.Workbooks.Open("D:\Excel\sales_report\XXXXXX.xlsm")  '//打开Excel工作簿

新建文本文件，将上面的代码复制进去，注意附件的位置信息，保存为open_excel.vba；在window系统的任务计划中设置定时计划任务。

2）、excel自动更新：

excel直连后台数据方法如下：