用系统时间命名文件
dim FileName as string
FileName = Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time) & Second(Time)
Open (App.Path & FileName.txt) For Append As #1
为什么运行时候提示要求对象?实时错误424

[解决办法]
dim FileName as string
FileName = Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time) & Second(Time)
Open App.Path &"\" & FileName & ".txt" For Append As #1