質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.12%

WebAPI呼出ができない(Not found、チャネル サポートエラー)

解決済

回答 4

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 2,665

ladybird

score 161

ExcelVBAからWebAPIを呼び出そうとしているのですが、
エラーが出て先に進めません。

まず最初はこちらの記事を参考に下記のようなコードを実行しましたが、
404:NotFoundになってしまいました。
(もちろんURLとパラメータの形式はよくよく確かめましたので合っているはずです)

Public Function KickAPI( _
    ByVal request As String, _
    ByVal URL As String, _
    ByVal param As Object) As Object

    Dim fso As Object
    Set fso = CreateObject("MSXML2.XMLHTTP")
    With fso
        .Open request, URL, False
        .setRequestHeader "Content-Type", "text/csv"
        .send (ConvertToQueryString(param))
    End With

    Set KickAPI = fso
End Function

Private Function ConvertToQueryString(ByVal dic As Object) As String

    If dic Is Nothing Then Exit Function
    Dim key As Variant
    For Each key In dic.keys
        If ConvertToQueryString = "" Then
            ConvertToQueryString = key & "=" & dic.Item(key)
        Else
            ConvertToQueryString = ConvertToQueryString & "&" & key & "=" & dic.Item(key)
        End If
    Next

End Function

「MSXML2.XMLHTTP Not found」で検索してみると
「MSXML2.XMLHTTPではなくMSXML2.ServerXMLHTTPを使うべき」と言われていたので変えてみたところ、今度は「セキュリティで保護されたチャネル サポートでエラーが発生しました」というエラーになりました。

このエラーを調べるとインターネットオプションの変更が必要とありましたので確認しましたが、最初からリンク先の通りになっていました。
ためしに逆(SSLをオン)にしてみてもだめでした。

何か他に試すべきことがありましたらご教授ねがいます。


9/7 追記
APIの仕様をよくよく確認すると、
404は利用IDが無効な場合に返されるとありました。え、ええー・・・
とはいえブラウザから呼び出すと正常にレスポンスが返ってくるのでIDの問題ではなさそうです。
現在APIの作成元に問い合わせ中です。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 4

check解決した方法

0

正式な情報が見つからず理由はいまいち分かっていないのですが、
パラメータをsendではなくOpenのURLに含めて送信したらレスポンスが取得できました。
皆様ありがとうございました。

    Dim fso As Object
    Set fso = CreateObject("MSXML2.XMLHTTP")
    With fso
        .Open request, URL & "?" & ConvertToQueryString(param), False
        .setRequestHeader "Content-Type", "text/csv"
        .send
    End With

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

SSL証明書の問題ではありませんか?次の2ヶ所を修正して見てください。

    Set fso = CreateObject("MSXML2.ServerXMLHTTP") # 変更行
    With fso
        .Open request, URL, False
        .setOption 2, .getOption(2) - SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS # 追加行
        .setRequestHeader "Content-Type", "text/csv"
        .send (ConvertToQueryString(param))
    End With

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/09/05 16:26

    ご回答ありがとうございます!
    試してみましたが、SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORSが未定義と言われてしまいます。。
    参照設定か何かが必要なのでしょうか

    キャンセル

  • 2018/09/05 16:31

    ↑参照設定でMicrosoft XMl v.6.0を追加したら未定義エラーは消えました。
    が、やはりsendで「セキュリティで保護されたチャンネル サポートでエラーが発生しました」になってしまいます。。

    キャンセル

  • 2018/09/05 16:40

    証明書の問題ではない可能性もありますので、参考URLから実際のエラーを特定するか、
    KickAPI関数の中に次の構文を追記してエラーを回避してみたらどうですか?

    On Error Resume Next

    キャンセル

  • 2018/09/05 16:56 編集

    Resume Nextすればsendではエラーになりませんが、肝心のレスポンスが取得できないので、その先で困りますね~

    >参考URLから実際のエラーを特定する
    について、どのような方法を想定されているのか伺えますと幸いです。

    キャンセル

0

あっ!失礼致しました。
代わりに整数の「13056」に置き換えて見てください。

下記は、参考URLです。
https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ms753798(v=vs.85)

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

.send (ConvertToQueryString(param))

ですが、文字列の後ろに改行(VbCrLf)は不要でしょうか?

.send (ConvertToQueryString(param) & VbCrLf)

当方では、ここに改行がないとエラーになります。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/09/06 16:04 編集

    ご指摘の通り追加してみましたが変化なしでした;
    改行ないとエラーになるって奇怪ですね。。
    ご回答ありがとうございます!

    キャンセル

  • 2018/09/07 10:39

    #書き込んだあとで気がつきましたが、404:NOTFoundが返るということは、リクエストは出せているんですね、失礼しました。

    もう試されているかもしれませんが…
    こういう場合に私がよくやるのは、ネットワーク解析ツール(たとえば
    WireShark)を使って実際に流れているPOST/GETのリクエストを確認
    するという方法です。

    もし、プログラムがWebページのUI操作をシミュレートするものである
    なら、手操作で操作した場合とプログラムから投げた場合の両方を比較
    すれば違いがわかるかと思います。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.12%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる