Excel VBA更新后出现Run-time error '75'路径/文件访问错误求助

这个错误通常和文件路径无效、权限不足或者Excel更新后的云存储限制有关，结合你的Dropbox使用场景，给你排查方向和解决方案：

可能的触发原因 #

• Excel更新后的云存储权限限制：新版Excel强化了对Dropbox、OneDrive这类云同步文件夹的安全管控，原生Open语句直接写入操作可能被系统拦截。
• 手动路径拼接的漏洞：代码里手动判断路径分隔符的逻辑，没覆盖Dropbox在部分系统下的特殊路径格式（比如Windows端Dropbox可能出现的非标准分隔符）。
• 文件锁定/权限问题：目标KML文件可能被其他程序占用锁定，或者当前账号没有Dropbox文件夹的写入权限。

具体解决方法 #

1. 改用FileSystemObject处理文件操作

FileSystemObject（FSO）对云路径的兼容性远优于原生Open语句，能绕过Excel更新后的部分权限限制。以下是优化后的代码：

Sub OpenKMLFile()
    Dim OutputPath As String
    Dim fso As Object ' 后期绑定，无需手动引用组件
    Dim KMLFileNumber As Integer
    
    ' 先检查文件是否已保存（未保存时ThisWorkbook.Path为空）
    If ThisWorkbook.Path = "" Then
        MsgBox "请先将当前Excel文件保存到Dropbox文件夹", vbExclamation
        Exit Sub
    End If
    
    ' 用FSO自动处理不同系统的路径分隔符
    Set fso = CreateObject("Scripting.FileSystemObject")
    OutputPath = fso.BuildPath(ThisWorkbook.Path, KMLFileName & ".kml")
    
    ' 加入错误捕获，处理文件锁定/权限问题
    On Error Resume Next
    KMLFileNumber = FreeFile()
    Open OutputPath For Output As KMLFileNumber
    If Err.Number <> 0 Then
        MsgBox "无法打开文件：" & Err.Description & vbCrLf & "路径：" & OutputPath, vbCritical
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 后续在这里写入KML内容
    ' Print #KMLFileNumber, "KML内容示例"
    
    ' 用完记得关闭文件
    ' Close KMLFileNumber
End Sub

2. 检查Dropbox的同步与权限

• 确认Dropbox客户端正在正常运行，目标文件夹已完成同步（无灰色同步中图标）。
• 右键Dropbox文件夹，通过「属性-安全」检查当前用户是否拥有写入权限。
• 如果目标KML文件已存在，先手动关闭它，避免被其他程序锁定。

3. 处理文件未保存的边界情况

如果Excel文件还未保存，ThisWorkbook.Path会返回空字符串，直接导致路径拼接错误。优化后的代码已加入该场景的检查提示。

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