Почему метод ImportXML приводит к ошибке времени выполнения 9?

Question

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = [Namensfilter].Row And Target.Column = [Namensfilter].Column Then
        Dim Displayname As String: Displayname = [Namensfilter].Value + "*"
        Dim Map As XmlMap
        Set Map = ActiveWorkbook.XmlMaps(1)
        Dim urlXML As String
        urlXML = "http://direx.corproot.net/DirExWeb/Scripts/Public/GetXML.aspx?displayname=" & Displayname & ""
        ThisWorkbook.XmlMaps(Map).ImportXml urlXML
        Map.DataBinding.Refresh
    End If
End Sub

Я хочу сделать XML-анализ в другой таблице, но при импорте XML-файла я получаю ошибку времени выполнения 9. Когда я изменяю

urlXML = "http://direx.corproot.net/DirExWeb/Scripts/Public/GetXML.aspx?displayname=" & Displayname & ""
    ThisWorkbook.XmlMaps(Map).ImportXml urlXML

до

Map.DataBinding.LoadSettings "http://direx.corproot.net/DirExWeb/Scripts/Public/GetXML.aspx?displayname=" & Displayname & ""

или

Map.DataBinding.LoadSettings ("http://direx.corproot.net/DirExWeb/Scripts/Public/GetXML.aspx?displayname=" & Displayname & "")

Я получаю действительно странную ошибку, которую я также обнаружил здесь .Как я могу предоставить ошибку времени выполнения 9?

Answer 1

Мне нужно было установить * в ссылке.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = [Namensfilter].Row And Target.Column = [Namensfilter].Column Then
        Dim Displayname As String: Displayname = [Namensfilter].Value
        Dim Map As XmlMap
        Set Map = ActiveWorkbook.XmlMaps(1)
        Dim urlXML As String
        urlXML = "http://direx.corproot.net/DirExWeb/Scripts/Public/GetXML.aspx?displayname=" & Displayname & "*"
        Map.DataBinding.LoadSettings urlXML
        Map.DataBinding.Refresh
    End If
End Sub