将日期添加到 gwl 文件的名称

Question

我正在尝试将日期添加到文件名中以使其更易于识别，以便任何人都可以根据日期和时间找到他们正在寻找的文件。但是，每当我添加日期时，文件都会切断并将其保存为“文件”，而不是像我想要的那样保存为 .gwl。 Gwl 只是一个以 gwl 结尾的文本文件。我附上了我想要发生的事情的图像，因为 gwl 文件应该有日期，但它只是将自己保存为一个零字节文件。

Sub Write2File() 'Makes the text file including the commands for the Tecan
    Dim i As Integer
    Dim j As Integer
    Dim ColNum As Integer
    Dim dt As String
    Dim MyString As String
    dt = Format(CStr(Now), "dd-MMM-yyyy hh:mm")
    Open ThisWorkbook.Path & "\" & ThisWorkbook.Name & dt & "Worklist.gwl" For Append As #1
    Sheets("WorkList Generator").Select
    Sheets("WorkList Generator").Range("A2").Select
    While ActiveCell <> ""
    For ColNum = 1 To 11
            If ActiveCell.Offset(0, 1) = "" Then MyString = MyString & ActiveCell & ";" Else MyString = MyString & ActiveCell & ";"
            ActiveCell.Offset(0, 1).Select
            DoEvents
    Next ColNum
        MyString = Left(MyString, Len(MyString) - 2)
            If MyString = "W;;;;;;;;;" Then
                Print #1, "W"
            Else
                Print #1, MyString
            End If
        MyString = ""
        Range("A" & ActiveCell.Row + 1).Select
        DoEvents
    Wend
    Close #1
End Sub

Answer 1

没关系是我在 hh:mm 中的冒号导致它认为它进入了一个文件目录。我把它改成了下划线，效果很好