Включить получение содержимого файла - PullRequest
Новая
       11

Включить получение содержимого файла

0 голосов
/ 08 июля 2019

Это моя функция: 

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

...