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