启用获取文件内容

Question

这是我的功能：

Private Function Get_FileContents_FromWebpage(URL As String) As String
    On Error GoTo Err_Get_FileContents_FromWebpage

    Dim objWeb As Object
    Set objWeb = CreateObject("Microsoft.XMLHTTP") ' Instantiate an instance of the web object

    With objWeb
        .Open "GET", URL, False ' Pass the URL to the web object, and send the request
        .send
        Get_FileContents_FromWebpage = .responsetext ' Look at the HTML string returned
    End With

    Set objWeb = Nothing
    Exit Function

Err_Get_FileContents_FromWebpage:
    Set objWeb = Nothing
    Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
End Function

我需要帮助启用以下附加组件。

加载项启用Get_FileContents