質問編集履歴
2
誤字脱字の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -96,10 +96,10 @@
|
|
|
96
96
|
Set httpReq = Nothing
|
|
97
97
|
End Function
|
|
98
98
|
```
|
|
99
|
-
知識不足でエラーで動かったので
|
|
99
|
+
知識不足でエラーで動かなかったので
|
|
100
100
|
MSXML2.XMLHTTPで検索し、
|
|
101
101
|
https://tonari-it.com/excel-vba-http-request/
|
|
102
|
-
のサイトを参考に以下のコードを作成。
|
|
102
|
+
のサイトと回答者様のアドバイスを参考に以下のコードを作成。
|
|
103
103
|
|
|
104
104
|
```excel vba
|
|
105
105
|
Sub 読み込む()
|
1
皆様の回答をもとにプログラムを組み、結果を追記しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -75,4 +75,48 @@
|
|
|
75
75
|
Loop
|
|
76
76
|
|
|
77
77
|
End Sub
|
|
78
|
-
```
|
|
78
|
+
```
|
|
79
|
+
|
|
80
|
+
【アドバイスを受けて試したこと】
|
|
81
|
+
```excel vba
|
|
82
|
+
Sub 岡山()
|
|
83
|
+
Dim objIE As InternetExplorer
|
|
84
|
+
Call ieView(objIE, "http://www.pref.okayama.jp/page/detail-3445.html")
|
|
85
|
+
ThisWorkbook.Sheets(1).Cells(10, 8) = objIE.document.getElementById("content_header").Children(1).innerText
|
|
86
|
+
Call GetLastModified(URL, "http://www.pref.okayama.jp/page/detail-3445.html")
|
|
87
|
+
End Sub
|
|
88
|
+
|
|
89
|
+
Function GetLastModified(URL As String) As String
|
|
90
|
+
Dim httpReq As Object
|
|
91
|
+
Set httpReq = CreateObject("MSXML2.XMLHTTP")
|
|
92
|
+
httpReq.Open "GET", URL, False
|
|
93
|
+
httpReq.send
|
|
94
|
+
|
|
95
|
+
GetLastModified = httpReq.getResponseHeader("Last-Modified")
|
|
96
|
+
Set httpReq = Nothing
|
|
97
|
+
End Function
|
|
98
|
+
```
|
|
99
|
+
知識不足でエラーで動かったので、
|
|
100
|
+
MSXML2.XMLHTTPで検索し、
|
|
101
|
+
https://tonari-it.com/excel-vba-http-request/
|
|
102
|
+
のサイトを参考に以下のコードを作成。
|
|
103
|
+
|
|
104
|
+
```excel vba
|
|
105
|
+
Sub 読み込む()
|
|
106
|
+
Dim GetLastModified As String
|
|
107
|
+
Dim httpReq As Object
|
|
108
|
+
Set httpReq = CreateObject("MSXML2.XMLHTTP")
|
|
109
|
+
httpReq.Open "GET", "http://www.pref.okayama.jp/page/detail-3445.html", False
|
|
110
|
+
httpReq.send
|
|
111
|
+
GetLastModified = httpReq.getResponseHeader("Last-Modified")
|
|
112
|
+
Debug.Print GetLastModified
|
|
113
|
+
Set httpReq = Nothing
|
|
114
|
+
End Sub
|
|
115
|
+
```
|
|
116
|
+
Wed, 04 Apr 2018 19:04:26 GMT
|
|
117
|
+
を出力することができた。
|
|
118
|
+
|
|
119
|
+
これが意味するところがなんだかわかりません。
|
|
120
|
+
おそらく、更新されたものがあるってことなのか？
|
|
121
|
+
このページにある全てのPDFについて更新日をチェックするには
|
|
122
|
+
どのようにすればいいんでしょうか？
|