为GWL文件名添加日期后出现文件格式异常及零字节问题求助

嘿，我来帮你搞定这个麻烦！你遇到的两个核心问题：文件名被截断成无后缀，还有生成零字节空文件，咱们一个个解决。

第一个问题：文件名里的冒号是“元凶” #

Windows系统的文件名绝对不能包含冒号（::），你原来的日期格式是"dd-MMM-yyyy hh:mm"，里面的时间冒号会让系统直接截断文件名到冒号之前的部分，导致.gwl后缀丢失，变成无后缀的奇怪文件。

解决办法很简单：把冒号换成Windows允许的字符，比如连字符-或者下划线_，比如改成：

dt = Format(Now, "dd-MMM-yyyy hh-mm") ' 用连字符替代冒号，也可以用下划线

另外，Format(Now)本身就返回字符串，不用多此一举加CStr()啦。

第二个问题：循环逻辑错误导致零字节文件 #

你的代码里的循环有明显问题，For ColNum的遍历逻辑混乱，还乱用Select和ActiveCell，导致程序根本没正确读取单元格内容，自然生成空文件。咱们把代码重构得更稳定：

修正后的完整代码 #

Sub Write2File()
'生成包含Tecan设备命令的文本文件
    Dim iRow As Long
    Dim ColNum As Integer
    Dim dt As String
    Dim MyString As String
    Dim ws As Worksheet
    
    ' 直接指定工作表，别用Select，容易出问题
    Set ws = ThisWorkbook.Sheets("WorkList Generator")
    
    ' 修正日期格式，去掉不允许的冒号
    dt = Format(Now, "dd-MMM-yyyy hh-mm")
    ' 生成干净的文件名：去掉原工作簿的后缀，再拼日期和gwl后缀
    Dim filePath As String
    filePath = ThisWorkbook.Path & "\" & _
               Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) & _
               "_" & dt & "_Worklist.gwl"
    
    ' 打开文件准备写入
    Open filePath For Append As #1
    
    ' 从第2行开始遍历，直到A列是空行
    iRow = 2
    Do While ws.Cells(iRow, 1).Value <> ""
        MyString = ""
        ' 遍历1到11列，拼接内容
        For ColNum = 1 To 11
            MyString = MyString & ws.Cells(iRow, ColNum).Value & ";"
        Next ColNum
        
        ' 删掉最后一个多余的分号
        MyString = Left(MyString, Len(MyString) - 1)
        
        ' 处理特殊的W行
        If MyString = "W;;;;;;;;;" Then
            Print #1, "W"
        Else
            Print #1, MyString
        End If
        
        iRow = iRow + 1
        DoEvents
    Loop
    
    Close #1
    ' 弹出提示，告诉你文件在哪
    MsgBox "搞定！文件生成在：" & vbCrLf & filePath, vbInformation
End Sub

为啥这么改？ #

• 不用Select和ActiveCell：这些操作很容易因为用户不小心点击别的单元格而出错，直接用ws.Cells(iRow, ColNum)引用单元格，稳得一批。
• 提取纯工作簿名：原代码直接用ThisWorkbook.Name会带.xlsm后缀，现在去掉后生成的文件名更清爽，比如原工作簿叫TecanTool.xlsm，生成的文件会是TecanTool_05-Oct-2024 14-30_Worklist.gwl。
• 逻辑清晰：从A2开始逐行遍历，每一行遍历11列拼接内容，处理特殊行后写入文件，全程逻辑通顺，不会漏内容。

验证一下 #

改完之后，生成的文件名完全符合Windows规则，不会被截断，而且文件里会正确写入所有你需要的Tecan命令，再也不会是零字节空文件啦！

内容的提问来源于stack exchange，提问作者Payton Brown