teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

mts10806様、ご指摘ありがとうございます。タイトルの変更およびソースコードの表記修正いたしました。

2018/07/30 05:38

投稿

hanamaruyuiyui
hanamaruyuiyui

スコア9

title CHANGED
@@ -1,1 +1,1 @@
1
- エクセルのVBAについて質問です。
1
+ VBAにて2の住所から直線距離を計算した
body CHANGED
@@ -8,6 +8,7 @@
8
8
 
9
9
  ### 該当のソースコード
10
10
 
11
+ ```
11
12
  Function DGMAP(origin As String, destination As String, distance As Boolean) As String
12
13
  'http://stackoverflow.com/questions/10116301/google-maps-api-for-time-and-distance-data-access-vba
13
14
 
@@ -19,7 +20,7 @@
19
20
  Set objXMLHTTP = New MSXML2.ServerXMLHTTP60
20
21
 
21
22
  With objXMLHTTP
22
- .Open "GET", sXMLURL, False
23
+   .Open "GET", sXMLURL, False
23
24
  .setRequestHeader "Content-Type", "application/x-www-form-URLEncoded"
24
25
  .Send
25
26
  End With
@@ -51,6 +52,7 @@
51
52
  Set domResponse = Nothing
52
53
  Set objXMLHTTP = Nothing
53
54
  End Function
55
+ ```
54
56
 
55
57
 
56
58
  ### 補足情報(FW/ツールのバージョンなど)