VBA поставить дату и время в текстовом файле вывода

Question

У меня есть ниже VBA, который я написал, и нужно немного помочь с последнего бита

Sub testlist() 
Open "C:\Users\gaum\Desktop\Work\NCL\testlist.lst" For Output As #1 
For NR = 1 To Selection.Rows.Count 
For NC = 1 To Selection.Columns.Count 
ExpData = Selection.Cells(NR, NC).Value 
If IsNumeric(ExpData) Then ExpData = Val(ExpData) 
If IsEmpty(Selection.Cells(NR, NC)) Then ExpData = "" 
If NC <> NumCols Then 
If Not ExpData = "FilePath" Then Print #1, ExpData 
End If 
Next NC 
Next NR 
Close #1 
End Sub 

Это по существу занимает выделенную колонку и производит плоский текст файл содержимого по строкам.

Бит мне нужна помощь с названием выходного файла. как я могу добавить дату и время, когда макрос был запущен? так что выход будет testlist_date_time.lst

Answer 1

Open "C:\Users\gaum\Desktop\Work\NCL\" & Format(Now(), "_yyyy-mm-dd_hh-mm") & ".lst" For Output As #1 
    ... 
Close #1