如果已经生成了EXCEL表，每分钟保存数据是可以的。现在是如何生成新的日期文件，我的办法是：在“ＳＴＡＲＴ”按钮触发ｖｂｓ，先判断文件是否存在，不存在的话那么就开始运行的时候生成一个：

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)


Dim fso,myfile,daystr,dstr,fname

dstr = FormatDateTime(Date)

fname="d:\" + dstr + ".xls"

If Dir(fname)="" Then


Set fso = CreateObject("s cripting.FileSystemObject")

Set MyFile = fso.GetFile("d:\backup\database.xls")

MyFile.Copy (fname)

End If


End Sub
但是为什么不行？