这个问题我碰到过好多次——VBComponents.Import方法本质上只支持本地文件路径，直接传入HTTP/HTTPS URL肯定会触发75号“路径/文件访问错误”。解决的核心思路就是：先把远程的.bas文件下载到本地临时文件夹，再用你熟悉的导入逻辑处理，最后还可以按需清理临时文件。

具体实现步骤 #

下面是完整的可运行代码，分为两个部分：一个通用的文件下载函数，和调用它的导入主程序。

1. 远程文件下载函数

这个函数负责把URL对应的文件保存到本地指定路径，支持HTTP和HTTPS链接：

Function DownloadFileFromURL(url As String, savePath As String) As Boolean
    Dim xhr As Object
    Set xhr = CreateObject("MSXML2.XMLHTTP.6.0")
    
    On Error GoTo ErrorHandler
    ' 发送GET请求获取文件内容
    xhr.Open "GET", url, False
    xhr.Send
    
    ' 状态码200表示请求成功
    If xhr.Status = 200 Then
        Dim fso As Object
        Dim fileStream As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        ' 创建并写入文件（第三个参数True表示用UTF-8编码，避免中文乱码）
        Set fileStream = fso.CreateTextFile(savePath, True, True)
        fileStream.Write xhr.responseText
        fileStream.Close
        DownloadFileFromURL = True
    Else
        DownloadFileFromURL = False
    End If
    
Cleanup:
    ' 清理对象释放资源
    Set xhr = Nothing
    Set fso = Nothing
    Set fileStream = Nothing
    Exit Function
    
ErrorHandler:
    MsgBox "下载文件出错: " & Err.Description & " (错误号: " & Err.Number & ")"
    DownloadFileFromURL = False
    Resume Cleanup
End Function

2. 主导入程序

这个子程序会调用上面的下载函数，把远程模块存到系统临时文件夹，完成导入后还会自动删除临时文件：

Sub ImportModuleFromURL()
    Dim sRemoteURL As String
    Dim sTempPath As String
    Dim fso As Object
    
    ' 替换成你的远程模块URL
    sRemoteURL = "http://mywebsite.org/download/Module.bas"
    
    ' 创建唯一的临时文件路径（用系统临时文件夹+时间戳命名，避免重名）
    Set fso = CreateObject("Scripting.FileSystemObject")
    sTempPath = fso.GetSpecialFolder(2) & "\TempModule_" & Format(Now(), "YYYYMMDDHHMMSS") & ".bas"
    
    ' 先下载文件到本地临时路径
    If DownloadFileFromURL(sRemoteURL, sTempPath) Then
        On Error Resume Next
        ' 执行模块导入
        ThisWorkbook.VBProject.VBComponents.Import sTempPath
        
        If Err.Number = 0 Then
            MsgBox "模块导入成功！"
            ' 自动删除临时文件（如果不需要保留可以注释掉这行）
            fso.DeleteFile sTempPath, True
        Else
            MsgBox "导入模块出错: " & Err.Description & " (错误号: " & Err.Number & ")"
        End If
        On Error GoTo 0
    Else
        MsgBox "无法下载远程模块文件，请检查URL是否有效或网络是否正常！"
    End If
    
    Set fso = Nothing
End Sub

关键注意事项 #

• 启用VBA项目对象模型访问：打开Excel→文件→选项→信任中心→信任中心设置→宏设置，勾选「信任对VBA项目对象模型的访问」，否则导入时会报错。
• HTTPS兼容性：代码里用的MSXML2.XMLHTTP.6.0支持HTTPS链接，Office 2010及以上版本默认都能正常使用。
• 临时文件命名：用时间戳命名临时文件，避免同一时间多次运行时出现文件冲突。

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