寻求可兼容OneDrive及非OneDrive环境运行的VBA实现方案

问题原因 #

原代码报错的核心原因是硬编码了桌面路径，用户启用OneDrive的桌面同步功能后，系统桌面的实际存储路径会变更为OneDrive目录下的对应路径（如C:\Users\用户名\OneDrive\桌面），硬拼接的固定路径无法匹配实际存储位置，就会触发找不到文件的报错。

修复方案 #

不需要额外判断是否为OneDrive环境，直接调用系统内置方法获取当前真实生效的桌面路径即可，兼容性覆盖所有Windows系统场景，包括自定义桌面路径、不同系统语言、OneDrive同步/未同步等所有情况。

完整可运行代码 #

Sub OPENER()
'
' new_open Macro
'
    Dim shellObj As Object
    Dim desktopPath As String
    Dim targetFilePath As String
    
    ' 动态获取系统真实桌面路径，自动适配OneDrive环境
    Set shellObj = CreateObject("WScript.Shell")
    desktopPath = shellObj.SpecialFolders("Desktop")
    targetFilePath = desktopPath & "\next.txt"
    
    ' 切换工作目录（按需保留即可，不影响文件打开）
    ChDir desktopPath
    ' 打开目标文本文件，原有业务参数完全保留
    Workbooks.OpenText Filename:=targetFilePath, Origin:=437 _
        , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
        Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
        3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1)), _
        TrailingMinusNumbers:=True

    ' 释放对象
    Set shellObj = Nothing
End Sub

补充说明 #

如果确实需要主动判断当前设备是否存在OneDrive环境，可以通过以下逻辑实现：

If Environ("OneDrive") <> "" Then
    ' 存在OneDrive环境的自定义逻辑
Else
    ' 无OneDrive环境的自定义逻辑
End If

该判断方式仅用于需要针对OneDrive环境做特殊处理的场景，针对打开桌面文件的需求，直接读取系统桌面路径的方案兼容性更高。

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