通过“Print”变化触发文件另存操作：
Option Explicit
Function action
Dim objExcelApp,FlieName
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False
objExcelApp.Workbooks.Open"E:\ExcelTest.xls"
FlieName=CStr(Year(Now))&"年"&CStr(Month(Now))&"月"&CStr(Day(Now))&"日"&CStr(Hour(Now))&"-"&CStr(Minute(Now))&CStr(Second(Now))
objExcelApp.ActiveWorkbook.SaveAs "E:\Report"&FlieName&".XLS"
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End Function
诸位，如何？