Map.DataBinding.LoadSettingsがHTTPSで動作しない

Question

郵便番号のデータを取得するためにGoogleにマップするExcel（2010）の参照機能があります。 XMLデータを遠隔から参照する式を持つセルがいくつかあります。私はZipCodeという名前のセルが1つあります。以下のコードは、新しく入力された郵便番号に基づいて都市と州を更新します。ここで

は、コードは次のとおりです。

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Target.Row = [ZipCode].Row And Target.Column = [ZipCode].Column Then 
    Dim Zip As String: Zip = [ZipCode].Value 

    If Len(Zip) <> 5 Or Not IsNumeric(Zip) Then 
     MsgBox "Please enter a valid zip code!", vbCritical, "Invalid Zip" 
     Exit Sub 
    End If 

    Dim Map As XmlMap 
    Set Map = ActiveWorkbook.XmlMaps(1) 
    Map.DataBinding.LoadSettings "https://maps.googleapis.com/maps/api/geocode/xml/?address=" & Zip & "&sensor=false" 
    Map.DataBinding.Refresh 
    End If 

End Sub 

ルーチンがで失敗し、次のランタイムエラー

ランタイムエラー-214721376（80041020）システムができなくなることがありました
Map.DataBinding.LoadSettings "https://maps.googleapis.com/maps/api/geocode/xml/?address=" & Zip & "&sensor=false"

指定されたオブジェクトを探します。

私はなぜそれが失敗しているのか理解することに恵まれていません。どんな助けもありがとう。

Answer 1

URLが間違っている：

https://maps.googleapis.com/maps/api/geocode/xml/?address= 

URLは次のようになります。

https://maps.googleapis.com/maps/api/geocode/xml?address= 

（また、センサーのパラメータはもはや必要です）

Answer 2

私は専門家です...私はあなたが見ているビデオを知っています、そして、私はこのエラーを受け取りました。あなたは、適切なXMLソースをExcelに指定していません。あなたのコードは、ビデオごととして最適ですが、私の推測では、あなたがここにめちゃくちゃということである：これは正しいxmlmapに言及することはできません

Set Map = ActiveWorkbook.XmlMaps(1)

。ソースファイルを削除してxmlマップを再度ロードすることをお勧めします。