既然要利用Excel，那么熟练掌握VBS和Excel对象的应用是很有必要的
On Error Resume Next '此句必须有，防止无EXCEL进程时GetObject出错退出
Dim objExcelAPP,xlbook,xlsname,isOpen
xlsname="D:\生产记录\报表.xls" 'Excel文档路径
Set objExcelAPP=GetObject(,"Excel.Application") '获取当前运行的Excel应用程序对象
objExcelAPP.Visible=True

If Typename(objExcelAPP)="Application" Then 'Excel已打开，遍历工作薄查找对应文档是否已打开
For Each xlbook In objExcelAPP.Workbooks
If xlbook.FullName=xlsname Then
isOpen=True
Exit for
End if
Next
End if

If isOpen Then
xlbook.SaveAs "D:\生产记录\" & Date & "_" & Hour(Now) & "_" & Minute(Now) & "_" & Second(Now) & ".xls"
Else
Msgbox "文件没有打开!"
End if

objExcelAPP.Quit
Set objExcelAPP = Nothing