VBA代码运行报错‘Bad File Name or Number’寻求技术协助

错误原因排查 #

出现这个错误的核心原因通常和文件路径无效、文件号冲突或文件被占用有关，针对你的代码，主要问题点如下：

• 如果当前工作簿从未保存过，ThisWorkbook.Path会返回空字符串，导致最终生成的文件路径变成\ProjectActivity77st.csv，这是无效的根路径，系统无法识别。
• 直接使用固定文件号#1存在风险，如果该文件号已被其他进程或VBA代码占用，会触发文件号冲突错误。
• 目标CSV文件可能已被其他程序（比如Excel）打开，导致写入权限被锁定。

修正后的代码 #

Sub projectActivity()
    Dim r As Long
    Dim c As Long
    Const StartRow As Long = 6
    Dim LastRow As Long
    Const StartC As Long = 1
    Dim LastC As Long
    Dim MyValue As Variant
    Dim FileName As String
    Dim fileNum As Integer ' 新增变量存储可用文件号

    ' 先检查工作簿是否已保存
    If ThisWorkbook.Path = "" Then
        MsgBox "请先保存当前工作簿，否则无法生成有效文件路径！", vbExclamation
        Exit Sub
    End If

    ' 拼接正确的文件路径
    FileName = ThisWorkbook.Path & "\ProjectActivity77st.csv"

    ' 获取可用的文件号，避免冲突
    fileNum = FreeFile()

    On Error GoTo Cleanup ' 错误捕获，确保文件能正常关闭
    Open FileName For Output As #fileNum

    LastC = Cells(6, Columns.Count).End(xlToLeft).Column
    LastRow = Range("A" & Rows.Count).End(xlUp).Row

    For r = StartRow To LastRow
        For c = StartC To LastC
            ' 处理单元格为空的情况，避免多余分隔符
            If c > StartC Then MyValue = MyValue & ";"
            MyValue = MyValue & Cells(r, c).Value
        Next c
        
        Print #fileNum, MyValue
        MyValue = ""
    Next r

Cleanup:
    Close #fileNum ' 无论是否出错，都关闭文件
    If Err.Number <> 0 Then
        MsgBox "导出失败：" & Err.Description, vbCritical
    Else
        MsgBox "导出成功！文件路径：" & FileName, vbInformation
    End If
End Sub

额外优化点 #

• 新增了工作簿未保存的检查，提前拦截无效路径问题。
• 使用FreeFile()获取可用文件号，彻底避免文件号冲突。
• 添加错误捕获机制，确保文件在出错时也能正常关闭，同时给出明确的错误提示。
• 优化了分隔符拼接逻辑，避免最后一个单元格后出现多余的分号（原代码用Left(MyValue, Len(MyValue)-1)的方式在第一列就为空时会出错）。

其他排查步骤 #

• 确认目标文件未被其他程序打开，关闭所有可能占用该文件的进程。
• 检查ThisWorkbook.Path返回的路径是否包含非法字符（比如中文全角符号、特殊符号等），确保路径和文件名符合系统命名规则。

内容的提问来源于stack exchange，提问作者Ryan Ren