VB.NET Office插件：ExcelWorkbook.FullName返回URL而非物理路径求解决方案

当Excel工作簿存储在OneDrive/SharePoint等云端同步位置时，ExcelWorkbook.FullName属性会返回URL而非本地物理路径，导致依赖本地路径的模块报错。以下是VB.NET环境下的独立实现方案，无需适配VBA代码：

方法1：通过Shell32组件解析（强类型绑定） #

该方法需要添加COM组件引用Microsoft Shell Controls And Automation，适合需要类型提示的开发场景：

Imports Shell32
Imports Microsoft.Office.Interop.Excel

Public Function GetWorkbookLocalPath(workbook As Workbook) As String
    Dim filePath As String = workbook.FullName

    ' 判断是否为云端URL格式
    If filePath.StartsWith("http://") OrElse filePath.StartsWith("https://") OrElse filePath.StartsWith("file://") Then
        Dim shell As New Shell()
        ' 访问系统驱动器根目录
        Dim rootFolder As Folder = shell.NameSpace(ShellSpecialFolderConstants.ssfDRIVES)

        For Each folderItem As FolderItem In rootFolder.Items
            If folderItem.IsFolder Then
                Dim subFolder As Folder = folderItem.GetFolder()
                ' 尝试解析云端URL对应的本地文件
                Dim localItem As FolderItem = subFolder.ParseName(filePath)
                If localItem IsNot Nothing Then
                    Return localItem.Path
                End If
            End If
        Next

        ' 回退处理：直接转换file://格式的URL
        If filePath.StartsWith("file://") Then
            Return New Uri(filePath).LocalPath
        End If
    End If

    ' 非URL格式直接返回原路径
    Return filePath
End Function

方法2：后期绑定实现（无需添加COM引用） #

如果不想依赖COM组件引用，可使用后期绑定，适合轻量化部署场景：

Imports Microsoft.Office.Interop.Excel

Public Function GetWorkbookLocalPathLateBinding(workbook As Workbook) As String
    Dim filePath As String = workbook.FullName

    If filePath.StartsWith("http://") OrElse filePath.StartsWith("https://") OrElse filePath.StartsWith("file://") Then
        ' 动态创建Shell对象
        Dim shell As Object = CreateObject("Shell.Application")
        ' ssfDRIVES的常量值为17（&H11）
        Dim rootFolder As Object = shell.NameSpace(&H11)

        For Each folderItem As Object In rootFolder.Items
            If folderItem.IsFolder Then
                Dim subFolder As Object = folderItem.GetFolder()
                Dim localItem As Object = subFolder.ParseName(filePath)
                If localItem IsNot Nothing Then
                    Return localItem.Path
                End If
            End If
        Next

        If filePath.StartsWith("file://") Then
            Return New Uri(filePath).LocalPath
        End If
    End If

    Return filePath
End Function

使用说明 #

• 直接替换原有代码中workbook.FullName的调用，改为调用上述方法即可
• 若工作簿未同步到本地（仅云端存在），解析会返回原URL，可根据业务需求添加额外判断逻辑
• 确保插件拥有本地文件系统的访问权限

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