ThisWorkbook.FullName 在与 OneDrive 同步后返回 URL。我想要磁盘上的文件路径

根据 ThisWorkbook.FullName 返回 OneDrive URL 的需求是一个非常实用的功能。通过这个功能，我们可以轻松地获取到与 OneDrive 同步后的文件在云端的地址，方便我们与他人分享文件或者进行其他操作。

vba
Dim filePath As String
filePath = ThisWorkbook.FullName

vba
Dim filePath As String
Dim oneDriveURL As String
filePath = ThisWorkbook.FullName
If InStr(filePath, "OneDrive") > 0 Then
    ' 如果路径中包含 "OneDrive"，则表示是云端路径
    oneDriveURL = Replace(filePath, "C:\Users\用户名\OneDrive\", "https://onedrive.live.com/")
Else
    ' 否则，表示是本地路径
    oneDriveURL = ""
End If

vba
Sub GetOneDriveURL()
    Dim filePath As String
    Dim oneDriveURL As String
    filePath = ThisWorkbook.FullName
    If InStr(filePath, "OneDrive") > 0 Then
        ' 如果路径中包含 "OneDrive"，则表示是云端路径
        oneDriveURL = Replace(filePath, "C:\Users\用户名\OneDrive\", "https://onedrive.live.com/")
    Else
        ' 否则，表示是本地路径
        oneDriveURL = ""
    End If
    MsgBox "OneDrive URL: " & oneDriveURL
End Sub