Excel VBA如何检查网络文件夹可用性并切换存储路径

需求说明 #

实现逻辑：若网络共享文件夹\\PC2\Shared不可访问，将表格数据保存到本地D:\data.dat；若文件夹可用，则保存到\\PC2\Shared\data.dat。

实现方案 #

方案1：先判断文件夹是否存在 #

通过FileSystemObject对象检查网络文件夹的可访问性，再决定保存路径：

' 检查文件夹是否存在的工具函数
Function FolderExists(folderPath As String) As Boolean
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    FolderExists = fso.FolderExists(folderPath)
    Set fso = Nothing
End Function

' 主保存流程
Sub SaveDataToFile()
    Dim savePath As String
    Const networkFolder As String = "\\PC2\Shared"
    
    ' 判断网络文件夹状态，赋值保存路径
    If Not FolderExists(networkFolder) Then
        savePath = "D:\data.dat"
    Else
        savePath = networkFolder & "\data.dat"
    End If
    
    ' 替换为你实际的表格数据保存代码
    ' 示例：将Sheet1的已用区域保存为.dat格式（本质是文本文件）
    Sheet1.UsedRange.SaveAs Filename:=savePath, FileFormat:=xlTextMSDOS
End Sub

方案2：直接尝试保存+错误捕获（更可靠） #

若网络文件夹存在但无写入权限，方案1会误判。直接尝试保存到网络路径，出错后切换本地路径，能覆盖更多异常场景：

Sub SaveDataWithErrorHandling()
    Dim savePath As String
    Const networkFolder As String = "\\PC2\Shared"
    
    ' 默认优先保存到网络路径
    savePath = networkFolder & "\data.dat"
    
    On Error Resume Next
    ' 执行保存操作（替换为你的实际保存逻辑）
    Sheet1.UsedRange.SaveAs Filename:=savePath, FileFormat:=xlTextMSDOS
    
    ' 若保存出错，切换到本地路径重试
    If Err.Number <> 0 Then
        savePath = "D:\data.dat"
        Err.Clear
        On Error GoTo 0
        Sheet1.UsedRange.SaveAs Filename:=savePath, FileFormat:=xlTextMSDOS
    End If
    On Error GoTo 0
End Sub

注意事项 #

• 方案1使用CreateObject属于Late Binding，无需手动添加“Microsoft Scripting Runtime”引用；若改用Early Binding需提前在VBA编辑器中启用该引用。
• 若.dat文件需要特定格式（如自定义分隔符、编码），请调整SaveAs参数或改用Open语句直接写入内容。

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