Создание кадра данных из URL, содержащего < pre > < / pre >

Mathieu Guindon прав, VBA нуждается в доступе, доступном для управления проектами книг, как правило, один раз дает это один раз для установки и редко его отменяет. Синди Майстер прав, ссылки хранятся в бинарной капли, поэтому сверление в xml не поможет.

Предоставить доступ (это в Excel 2016)

• Нажмите в меню «Файл», затем в меню, которое летеет слева, выберите «Параметры», появится диалоговое окно «Параметры Excel».
• В диалоговом окне «Параметры Excel» в меню левой руки выберите «Центр доверия», появится панель «Центр доверия».
• В панели «Центр доверия» нажмите «Параметры центра доверия», на экране появится диалоговое окно «Центр доверия».
• в диалоговом окне «Центр доверия» в меню слева выберите «Настройки макроса» ...
• На панели «Параметры макроса» установите флажок «Доверять доступ к объектной модели проекта VBA»

. Таким образом, для меня работает следующий код, поскольку предоставляется доступ. Код добавляет библиотеку Runtime Microsoft Scripting (которая является моей любимой неосновной).

Sub Test()

    Dim objProj As Object 'VBIDE.VBProject
    Set objProj = ThisWorkbook.VBProject

    Dim vRefLoop As Variant

    Dim bIsMyReferencePresent As Boolean
    bIsMyReferencePresent = False
    For Each vRefLoop In objProj.References

        Debug.Print vRefLoop.Name
        If vRefLoop.Name = "Scripting" Then

            bIsMyReferencePresent = True

        End If

    Next

    If bIsMyReferencePresent = False Then

        objProj.References.AddFromFile "c:\windows\syswow64\scrrun.dll"

    End If

End Sub