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

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

ただいまの
回答率

90.52%

  • VBA

    1790questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1528questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

  • Google API

    524questions

    Googleは多種多様なAPIを提供していて、その多くはウェブ開発者向けのAPIです。それらのAPIは消費者に人気なGoogleのサービス(Google Maps, Google Earth, AdSense, Adwords, Google Apps,YouTube等)に基づいています。

EXCEL VBAでGoogleApi距離情報が取得できない(Office365)

受付中

回答 0

投稿

  • 評価
  • クリップ 3
  • VIEW 367

kazu1963

score 0

 前提・実現したいこと

EXCEL VBAでユーザー定義コマンドを作成し、ワークシートに
2地点間の住所から走行距離をGoogleApiから取得しようとしております。
良いサンプルを見つけ、自宅環境(WINDOWS7、EXCEL2010)で下記のサンプルの
ままコピー&ペーストで実行したところうまく動きましたが、
職場の環境(Windows2008ServerR2のシンクライアント環境とOffice365のEXCEL)
ではうまく結果が得られません。
どうしても結果を出したいのですが原因がわかりません。
もちろん参照設定Microsoft XML xxx は設定しています。

<サンプルのページ>
https://www.excel-pitin.net/single-post/2018/01/19/Google-Maps-API-%E3%82%92%E4%BD%BF%E3%81%A3%E3%81%A62%E7%82%B9%E9%96%93%E3%81%AE%E8%B7%9D%E9%9B%A2%E3%82%92%E6%B1%82%E3%82%81%E3%82%8B%E3%83%A6%E3%83%BC%E3%82%B6%E3%83%BC%E5%AE%9A%E7%BE%A9%E9%96%A2%E6%95%B0%E3%82%92%E4%BD%9C%E3%82%8B

Office365環境で実行できている方、もしくはこのつたない説明で問題のありかがわかる方
おられませんでしょうか。

 発生している問題・エラーメッセージ

エラーメッセージは発生しませんが、実行時数分固まり、とけると関数の結果が「#VALUE!」となります。
各行でデバッグで止めて確認しましたところ、11行目の「.Send」でとまらないようです。
固まりがとけてもその下の行に進んでいるフシがありません。

 該当のソースコード

Function DGMAP(origin As String, destination As String, distance As Boolean) As String
'http://stackoverflow.com/questions/10116301/google-maps-api-for-time-and-distance-data-access-vba

Dim sXMLURL As String
sXMLURL = "http://maps.googleapis.com/maps/api/directions/xml?origin=" _
& origin & "&destination=" & destination & "&sensor=false"

Dim objXMLHTTP As MSXML2.ServerXMLHTTP60
Set objXMLHTTP = New MSXML2.ServerXMLHTTP60

With objXMLHTTP
.Open "GET", sXMLURL, False
.setRequestHeader "Content-Type", "application/x-www-form-URLEncoded"
.Send
End With

'Debug.Print objXMLHTTP.ResponseText

Dim domResponse As DOMDocument60
Set domResponse = New DOMDocument60
domResponse.LoadXML objXMLHTTP.ResponseText
Dim ixnStatus
Set ixnStatus = domResponse.SelectSingleNode("//status")

If ixnStatus.Text = "OK" Then
Dim ixnDistance, ixnDuration
Set ixnDistance = domResponse.SelectSingleNode("/DirectionsResponse/route/leg/distance/text")
Set ixnDuration = domResponse.SelectSingleNode("/DirectionsResponse/route/leg/duration/text")
End If
If IsEmpty(ixnDistance) Then
DGMAP = "Empty"
Exit Function
End If

'距離(True) または時間(False)
If distance = True Then
DGMAP = left(ixnDistance.Text, InStr(1, ixnDistance.Text, " ") - 1)
Else
DGMAP = ixnDuration.Text
End If
Set domResponse = Nothing
Set objXMLHTTP = Nothing
End Function

 試したこと

シンクライアント環境が悪いのかと、Windows2007のFAT機でEXCEL2007で実行しましたが、その場合はEXCEL2007が
ユーザー定義コマンドをコマンドとして認識していないようでした(#NAME?  これは別の原因?)
職場でのセキュリティ環境のせいでgoogleまで行けていないのかと思い、APIを取りに行くであろう
URL(http://maps.googleapis.com/maps/api/directions)を手でたたいてみると、Googleまでは入って行っているようで
Googleの画面でページがNot Found のエラーがでますので到達はできているようです。

 補足情報(FW/ツールのバージョンなど)

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

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

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

    クリップを取り消します

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

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

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

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

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

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

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

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

    質問の評価を下げる

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

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

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

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

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

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

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

    詳細な説明はこちら

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

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

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

まだ回答がついていません

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

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

関連した質問

同じタグがついた質問を見る

  • VBA

    1790questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1528questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

  • Google API

    524questions

    Googleは多種多様なAPIを提供していて、その多くはウェブ開発者向けのAPIです。それらのAPIは消費者に人気なGoogleのサービス(Google Maps, Google Earth, AdSense, Adwords, Google Apps,YouTube等)に基づいています。