不用那么麻烦啊你把数据以系统日期为文件名保存保存前判断当前日期下是否有该文件如果有说明已经保存过了判断文件是否存在if dir(文件名和路径)<>"" then exit sub例如:文件名和路径为app.path &"\" & date(now) & ".txt"