Excel自动打开、刷新、保存

您所在的位置:网站首页 excel公式自动刷新间隔数据 Excel自动打开、刷新、保存

Excel自动打开、刷新、保存

2024-06-05 17:35| 来源: 网络整理| 查看: 265

背景:因为业务需要,每天要发送公司前一天的各项数据,比如:生产、销售等,其中数据包括前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直连后台数据方法如下:

图1、直连数据库

 

选择excel数据菜单下,数据库连接的“属性”,设置excel自动更新频率设置如下图:

图2、设置数据更新频率

3)、VBA编程,保存excel:

alt+F11进入excel的VBA编程,插入——>模块,具体代码如下:

Option Explicit Sub Otime() 'auto close 5 minutes later Application.OnTime Now() + TimeValue("00:30:00"), "WbSave" End Sub Sub WbSave() ThisWorkbook.Save Call Otime End Sub

双击thisworkbook,选择workbook,具体代码如下:

Private Sub Workbook_Open() Call Otime End Sub

至此,整体操作完成,excel可以实现自动打开、更新、保存一系列操作,可以保证每次发送前,excel已经更新为最新的数据。

 



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3