質問編集履歴
1
mts10806様、ご指摘ありがとうございます。タイトルの変更およびソースコードの表記修正いたしました。
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
|
|
1
|
+
VBAにて２つの住所から直線距離を計算したい
|
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
|
-
|
|
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/ツールのバージョンなど）
|