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直连后台数据方法如下：

图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已经更新为最新的数据。