檔名以 Timestamp 來命名的coding

Public Sub setFilename(filename__param)
myDate = DatePart("yyyy", Now()) & "_" & DatePart("m", Now()) & "_" & DatePart("d", Now())
myTime = Hour(Now()) & "_" & Minute(Now()) & "_" & Second(Now())
filename = myDate & "__" & myTime & ".csv"
End Sub