楽天APIの情報をVBAのXmlImportメソッドで取得したいですが・・・

Question

楽天APIの情報をVBAのXmlImportメソッドで取得したいですが、実行すると
オートメーションエラーが出てしまって、情報を取得できません。
構文で間違いがあるのでしょうか？

chromeでURLを貼ると取得したいXmlデータは表示されます。

ActiveWorkbook.XmlImport url:=url1, importMap:=Nothing, Overwrite:=True, Destination:=wsWsv.Range("A1")

Answer 1

オートメーションエラー

これだけだと原因は分からないですね。（構文自体は合ってそうに思うので、別の原因な気がします。）
試しに原因の切り分けとして、楽天API 以外のデータを表示できるか確認してみてください。

Option Explicit

Sub XmlImportTest()
    Dim url1
    url1 = "https://atmarkit.itmedia.co.jp/fxml/askxmlexpert/020merge/merge_sample1.xml"
    Dim wsWsv
    Set wsWsv = Sheets("Sheet1")
    ActiveWorkbook.XmlImport Url:=url1, importMap:=Nothing, Overwrite:=True, Destination:=wsWsv.Range("A1")
End Sub

Comments

[HIRO]

コメントありがとうございます。
試してみます。