为什么我的 vba 代码不会自动启动？

Question

即使我点击启用宏，它仍然不会自动启动

Private Sub DownloadXLFileFromURL()

    Dim myURL As String, sFilename As String
    myURL = "URL"
    sFilename = Environ("SystemDrive") & Environ("HomePath") & _
            Application.PathSeparator & "Desktop" & Application.PathSeparator & _
            "Filename.ext"

    Dim WinHttpReq As Object, oStream As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False ', "username", "password"
   WinHttpReq.Send

    myURL = WinHttpReq.ResponseBody
    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.ResponseBody
        oStream.SaveToFile sFilename, 2  ' 1 = no overwrite, 2 = overwrite
       oStream.Close
    End If

End Sub

Answer 1

您需要向 ThisDocument 添加 Document_Open 事件处理程序。当您打开文档时，将触发此代码。在这里你可以调用你的方法。

Private Sub Document_Open()
    DownloadXLFileFromURL
End Sub

为什么我的 vba 代码不会自动启动？

My vba code wouldn't auto start why?

vba

ms-word

xmlhttprequest