質問編集履歴
2
誤字の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
https://www.equitation-japan.com/index.php?menuindex=101-102
|
|
2
2
|
|
|
3
|
-
上記のURLから会員番号と会員氏名を抽出してExcelで一覧表を作りたいと考えています。
|
|
3
|
+
2時間に一回、上記のURLから会員番号と会員氏名を自動で抽出してExcelで一覧表を作りたいと考えています。
|
|
4
4
|
テキストファイルにWEBサイトのHTMLを出力することはできたのですが、会員名などが出てきません。
|
|
5
5
|
どのようにしたら良いか教えて下さい。
|
|
6
6
|
よろしくお願い致します。
|
1
誤字の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -7,6 +7,8 @@
|
|
|
7
7
|
|
|
8
8
|
Public Sub printMain()
|
|
9
9
|
|
|
10
|
+
Public Sub printMain()
|
|
11
|
+
|
|
10
12
|
Dim ie As InternetExplorer
|
|
11
13
|
Dim FCK As Object
|
|
12
14
|
Dim TSO As Object
|
|
@@ -15,11 +17,14 @@
|
|
|
15
17
|
TGT = ThisWorkbook.Path & "\HTML_FILE.txt"
|
|
16
18
|
Set ie = CreateObject("InternetExplorer.Application")
|
|
17
19
|
ie.Visible = True
|
|
18
|
-
ie.navigate "https://www.equitation-japan.com/index.php?menuindex=101-
|
|
20
|
+
ie.navigate "https://www.equitation-japan.com/index.php?menuindex=101-101"
|
|
19
21
|
Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE
|
|
20
22
|
DoEvents
|
|
21
23
|
Loop
|
|
22
24
|
|
|
25
|
+
Set form = ie.document.form.sub1
|
|
26
|
+
form.Click
|
|
27
|
+
|
|
23
28
|
Dim HTMLString As String
|
|
24
29
|
Dim htdoc As HTMLDocument
|
|
25
30
|
Set htdoc = ie.document
|