質問編集履歴
2
誤字の修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -2,7 +2,7 @@
|
|
2
2
|
|
3
3
|
|
4
4
|
|
5
|
-
上記のURLから会員番号と会員氏名を抽出してExcelで一覧表を作りたいと考えています。
|
5
|
+
2時間に一回、上記のURLから会員番号と会員氏名を自動で抽出してExcelで一覧表を作りたいと考えています。
|
6
6
|
|
7
7
|
テキストファイルにWEBサイトのHTMLを出力することはできたのですが、会員名などが出てきません。
|
8
8
|
|
1
誤字の修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -9,6 +9,10 @@
|
|
9
9
|
どのようにしたら良いか教えて下さい。
|
10
10
|
|
11
11
|
よろしくお願い致します。
|
12
|
+
|
13
|
+
|
14
|
+
|
15
|
+
Public Sub printMain()
|
12
16
|
|
13
17
|
|
14
18
|
|
@@ -32,13 +36,19 @@
|
|
32
36
|
|
33
37
|
ie.Visible = True
|
34
38
|
|
35
|
-
ie.navigate "https://www.equitation-japan.com/index.php?menuindex=101-10
|
39
|
+
ie.navigate "https://www.equitation-japan.com/index.php?menuindex=101-101"
|
36
40
|
|
37
41
|
Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE
|
38
42
|
|
39
43
|
DoEvents
|
40
44
|
|
41
45
|
Loop
|
46
|
+
|
47
|
+
|
48
|
+
|
49
|
+
Set form = ie.document.form.sub1
|
50
|
+
|
51
|
+
form.Click
|
42
52
|
|
43
53
|
|
44
54
|
|