我现在在画面上做两个按钮，一个是打开事先做好的文件范本
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim objExcelAPP
Set objExcelAPP=CreateObject("Excel.Application")
objExcelAPP.Visible=True
objExcelAPP.Workbooks.Open "D:\生产记录\报表.xls"
End Sub
而另一个的功能是，当操作人员将excel文件中的内容填写完毕后，鼠标点击这个按钮，文件按照点击按钮的时间（年、月、日、时、分、秒）来将文件在同意文件夹下（即生产记录文件夹中）另存为新的EXCEL文件，同时关闭之前打开的范本，这样每天都利用同一范本可生成新的文件，这个按钮的功能我实在不会，望高手指教一下