質問編集履歴
10
質問文修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
VBAでIEを操作してtsutaya onlineで発売予定の作品をチェック
|
|
1
|
+
VBAでIEを操作してtsutaya onlineで発売予定の作品をチェック
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
9
質問文修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -142,4 +142,8 @@
|
|
|
142
142
|
|
|
143
143
|
|
|
144
144
|
|
|
145
|
+
参考書籍 https://tatsu-zine.com/books/excel-vba-ie
|
|
146
|
+
|
|
147
|
+
|
|
148
|
+
|
|
145
149
|
OS windows10 excel2016 ie11
|
8
質問文の修正
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
VBAでIEを操作してtsutaya onlineで発売予定の作品をチェック
|
|
1
|
+
VBAでIEを操作してtsutaya onlineで発売予定の作品をチェック
|
test
CHANGED
|
File without changes
|
7
質問文修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -12,7 +12,7 @@
|
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
|
|
15
|
-
```
|
|
15
|
+
``````
|
|
16
16
|
|
|
17
17
|
Private Sub waitbrowsing(ie As InternetExplorer, Optional findstring As String = "")
|
|
18
18
|
|
|
@@ -92,7 +92,7 @@
|
|
|
92
92
|
|
|
93
93
|
htdoc.getElementsByClassName("search_keyword-btn")(0).Click
|
|
94
94
|
|
|
95
|
-
|
|
95
|
+
waitbrowsing ie, "キーワード[" & Datasheet.Cells(row_search_condition, col_search_keyword).Value & "]を含む検索結果"
|
|
96
96
|
|
|
97
97
|
|
|
98
98
|
|
|
@@ -130,9 +130,7 @@
|
|
|
130
130
|
|
|
131
131
|
End Sub
|
|
132
132
|
|
|
133
|
-
|
|
134
|
-
|
|
135
|
-
エラー発生コードは下記です。
|
|
133
|
+
```エラー発生コードは下記です。
|
|
136
134
|
|
|
137
135
|
waitbrowsing ie, "キーワード[" & Datasheet.Cells(row_search_condition, col_search_keyword).Value & "]を含む検索結果
|
|
138
136
|
|
6
質問文修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -132,7 +132,9 @@
|
|
|
132
132
|
|
|
133
133
|
|
|
134
134
|
|
|
135
|
-
|
|
135
|
+
エラー発生コードは下記です。
|
|
136
|
+
|
|
137
|
+
waitbrowsing ie, "キーワード[" & Datasheet.Cells(row_search_condition, col_search_keyword).Value & "]を含む検索結果
|
|
136
138
|
|
|
137
139
|
|
|
138
140
|
|
5
コード修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -11,6 +11,8 @@
|
|
|
11
11
|
オブジェクトが必要です。
|
|
12
12
|
|
|
13
13
|
|
|
14
|
+
|
|
15
|
+
```
|
|
14
16
|
|
|
15
17
|
Private Sub waitbrowsing(ie As InternetExplorer, Optional findstring As String = "")
|
|
16
18
|
|
|
@@ -130,6 +132,8 @@
|
|
|
130
132
|
|
|
131
133
|
|
|
132
134
|
|
|
135
|
+
```
|
|
136
|
+
|
|
133
137
|
|
|
134
138
|
|
|
135
139
|
オブジェクトが必要というエラーメッセージからオブジェクトのコードが入力ミスでオブジェクトが
|
4
コード修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -90,7 +90,7 @@
|
|
|
90
90
|
|
|
91
91
|
htdoc.getElementsByClassName("search_keyword-btn")(0).Click
|
|
92
92
|
|
|
93
|
-
waitbrowsing ie, "キーワード[" & Datasheet.Cells(row_search_condition, col_search_keyword).Value & "]を含む検索結果"
|
|
93
|
+
** waitbrowsing ie, "キーワード[" & Datasheet.Cells(row_search_condition, col_search_keyword).Value & "]を含む検索結果"**
|
|
94
94
|
|
|
95
95
|
|
|
96
96
|
|
3
コードを修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -11,8 +11,6 @@
|
|
|
11
11
|
オブジェクトが必要です。
|
|
12
12
|
|
|
13
13
|
|
|
14
|
-
|
|
15
|
-
```ここに言語を入力
|
|
16
14
|
|
|
17
15
|
Private Sub waitbrowsing(ie As InternetExplorer, Optional findstring As String = "")
|
|
18
16
|
|
2
コードを修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -130,9 +130,7 @@
|
|
|
130
130
|
|
|
131
131
|
End Sub
|
|
132
132
|
|
|
133
|
-
コード
|
|
134
133
|
|
|
135
|
-
```
|
|
136
134
|
|
|
137
135
|
|
|
138
136
|
|
1
失礼しました。コードをコードの挿入に修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -11,6 +11,8 @@
|
|
|
11
11
|
オブジェクトが必要です。
|
|
12
12
|
|
|
13
13
|
|
|
14
|
+
|
|
15
|
+
```ここに言語を入力
|
|
14
16
|
|
|
15
17
|
Private Sub waitbrowsing(ie As InternetExplorer, Optional findstring As String = "")
|
|
16
18
|
|
|
@@ -128,6 +130,10 @@
|
|
|
128
130
|
|
|
129
131
|
End Sub
|
|
130
132
|
|
|
133
|
+
コード
|
|
134
|
+
|
|
135
|
+
```
|
|
136
|
+
|
|
131
137
|
|
|
132
138
|
|
|
133
139
|
オブジェクトが必要というエラーメッセージからオブジェクトのコードが入力ミスでオブジェクトが
|