Import Module.bas from http/ftp?

Question

我想通过ftp/http导入一个模块。

例如：本工作簿.VB项目.VB组件.Import（"http://www.server.de/modul.bas"）

我想把模块的代码保存在一个中心文件中，但我们没有共享驱动器。所以我想把我的代码上传到一些服务器上，并不时更新它。

Answer 1

扩展Tim的评论。将其下载到临时文件夹并从中导入。您可以使用以下代码下载文件。

Need reference to Microsoft Internet Controls
'Example
'myURL = "http://www.server.de/modul.bas"
'savePath = Environ("temp")
'fileName = "modul.bas"
Sub SaveInternetFile(myURL As String, savePath As String, fileName As String)
    Dim WinHttpReq As Object
    'create XMLHttp object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False
    'send request
    WinHttpReq.send
    'check the status to make sure we succeeded
    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.responseBody
        oStream.SaveToFile (savePath & fileName)
        oStream.Close   
    'import the new file
    ThisWorkbook.VBProject.VBComponents.Import(savePath & filename) 
    End If 
End Sub