vba - 出力テキストファイルに日付と時刻を入れる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