Excel自动打开、刷新、保存 | 您所在的位置:网站首页 › excel怎么每天自动更新 › Excel自动打开、刷新、保存 |
背景:因为业务需要,每天要发送公司前一天的各项数据,比如:生产、销售等,其中数据包括前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直连后台数据方法如下: ![]()
选择excel数据菜单下,数据库连接的“属性”,设置excel自动更新频率设置如下图: ![]() 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 实验室设备网 版权所有 |