VBA中ChDir无法切换目录、On Error错误处理失效问题求助

问题1：ChDir无法切换到网络目录 #

ChDir在VBA里只能切换当前驱动器下的子目录，既跨不了驱动器，也不支持直接切换到\\TSRS\tsrs\jobs\这种UNC格式的网络路径，这就是它一直停留在C盘用户目录的原因。

解决办法：

• 完全不用ChDir，所有文件夹/文件操作直接用完整的UNC路径，比如检查Draws文件夹时写Dir("\\TSRS\tsrs\jobs\Draws", vbDirectory)，绕开当前目录的限制。
• 如果非要切换到该路径，先把网络共享映射成本地驱动器（比如Z:），再执行ChDrive "Z:" + ChDir "\\TSRS\tsrs\jobs\"，不过映射驱动器需要权限，其实没必要多这一步。

问题2：On Error GoTo未按预期跳转，test总是被设为NA #

大概率是代码结构有问题，导致正常流程也走到了错误处理的赋值语句，常见原因和修复方式：

1. 缺了退出语句：在错误处理标签前面必须加Exit Sub或Exit Function，否则正常逻辑执行完后会继续往下走，把test设成NA。正确结构示例：

   Sub YourProcedure()
       Dim test As Variant
       On Error GoTo ErrorHandler
       
       ' 这里写你的核心逻辑：查找最高编号文件夹等
       test = 正常获取到的编号值
       
       ' 正常流程结束，直接退出，别碰错误处理块
       Exit Sub
       
   ErrorHandler:
       ' 只有出错时才会走到这里
       test = "NA"
       ' 可选：重置错误状态，避免后续代码受影响
       Resume Next
   End Sub
   

2. 错误处理被覆盖：检查代码里有没有On Error Resume Next语句，它会覆盖On Error GoTo的逻辑，导致错误被忽略，不会跳转到标签。
3. 错误类型不对：On Error GoTo只捕获运行时错误，如果是逻辑错误（比如你写的判断条件有问题），不会触发跳转，这时候得排查逻辑，确保只有真正的运行时错误（比如文件夹权限不足、路径不存在）才会触发赋值NA。

针对你的文件夹创建逻辑的优化建议 #

用FileSystemObject处理文件夹操作比Dir函数更稳定，也不用依赖当前目录，直接写完整UNC路径就行：

Sub CreateNextDrawFolder()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim jobRootPath As String
    jobRootPath = "\\TSRS\tsrs\jobs\"
    Dim drawsFolderPath As String
    drawsFolderPath = jobRootPath & "Draws"
    
    ' 检查并创建Draws文件夹
    If Not fso.FolderExists(drawsFolderPath) Then
        fso.CreateFolder drawsFolderPath
    End If
    
    ' 遍历子文件夹找最高编号的Draw N
    Dim maxDrawNum As Integer
    maxDrawNum = 0
    Dim subFolder As Object
    For Each subFolder In fso.GetFolder(drawsFolderPath).SubFolders
        If Left(subFolder.Name, 5) = "Draw " Then
            Dim currentNum As Integer
            currentNum = Val(Mid(subFolder.Name, 6))
            If currentNum > maxDrawNum Then
                maxDrawNum = currentNum
            End If
        End If
    Next subFolder
    
    ' 创建下一个编号的文件夹
    fso.CreateFolder drawsFolderPath & "\Draw " & (maxDrawNum + 1)
    
    Set fso = Nothing
End Sub

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