質問編集履歴
1
ご返信ありがとうございます。「確定ボタン」はwebページ上に存在するもので、押下すると入力情報を確認する画面に遷移します。vbaの呼び出しはvbeから実行です。(コードを追記しました)。お願い致します
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -20,12 +20,52 @@
|
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
23
|
+
[20181129追記_1]
|
|
24
|
+
|
|
25
|
+
・VBAのコード、HTMLのコードを一部追記
|
|
26
|
+
|
|
27
|
+
|
|
28
|
+
|
|
23
29
|
### 該当のソースコード
|
|
24
30
|
|
|
25
31
|
|
|
26
32
|
|
|
27
33
|
```vba
|
|
28
34
|
|
|
35
|
+
|
|
36
|
+
|
|
37
|
+
Sub bulklist()
|
|
38
|
+
|
|
39
|
+
|
|
40
|
+
|
|
41
|
+
'情報入力ページにアクセスする
|
|
42
|
+
|
|
43
|
+
Dim objIE As Object 'IEオブジェクトを準備
|
|
44
|
+
|
|
45
|
+
Set objIE = CreateObject("Internetexplorer.Application")
|
|
46
|
+
|
|
47
|
+
objIE.Visible = True 'IEを表示
|
|
48
|
+
|
|
49
|
+
objIE.navigate "URL(省略)" 'IEでURLを開く
|
|
50
|
+
|
|
51
|
+
Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE '読み込み待ち
|
|
52
|
+
|
|
53
|
+
DoEvents
|
|
54
|
+
|
|
55
|
+
Loop
|
|
56
|
+
|
|
57
|
+
|
|
58
|
+
|
|
59
|
+
'入力ページでHTMLオブジェクトをセット
|
|
60
|
+
|
|
61
|
+
Dim htmlDoc2 As HTMLDocument 'HTMLドキュメントオブジェクトを準備
|
|
62
|
+
|
|
63
|
+
Set htmlDoc2 = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
|
|
67
|
+
'セレクトボックスに値を入れる
|
|
68
|
+
|
|
29
69
|
Dim elinput_othershipping_1 As IHTMLElement
|
|
30
70
|
|
|
31
71
|
Set elinput_othershipping_1 = htmlDoc2.getElementById("auc_shipname_standard1")
|
|
@@ -38,12 +78,34 @@
|
|
|
38
78
|
|
|
39
79
|
Application.Wait waitTime
|
|
40
80
|
|
|
81
|
+
|
|
82
|
+
|
|
83
|
+
'途中省略
|
|
84
|
+
|
|
85
|
+
|
|
86
|
+
|
|
87
|
+
'確認画面へ
|
|
88
|
+
|
|
89
|
+
Dim elinput_submit As IHTMLElement
|
|
90
|
+
|
|
91
|
+
Set elinput_submit = htmlDoc2.getElementById("auc_submit2")
|
|
92
|
+
|
|
93
|
+
elinput_submit.Click
|
|
94
|
+
|
|
95
|
+
|
|
96
|
+
|
|
97
|
+
End sub
|
|
98
|
+
|
|
41
99
|
```
|
|
42
100
|
|
|
43
101
|
|
|
44
102
|
|
|
45
103
|
```html
|
|
46
104
|
|
|
105
|
+
'該当箇所省略
|
|
106
|
+
|
|
107
|
+
|
|
108
|
+
|
|
47
109
|
<div id="auc_shipname_block1" class="modSubTable03 other_ship_block ">
|
|
48
110
|
|
|
49
111
|
<dl class="untInr">
|
|
@@ -208,6 +270,70 @@
|
|
|
208
270
|
|
|
209
271
|
</div><!-- /.modSubTable -->
|
|
210
272
|
|
|
273
|
+
|
|
274
|
+
|
|
275
|
+
'省略
|
|
276
|
+
|
|
277
|
+
|
|
278
|
+
|
|
279
|
+
'以下入力情報確認画面への遷移ボタン
|
|
280
|
+
|
|
281
|
+
|
|
282
|
+
|
|
283
|
+
|
|
284
|
+
|
|
285
|
+
<!--
|
|
286
|
+
|
|
287
|
+
FORM FOOTER
|
|
288
|
+
|
|
289
|
+
-->
|
|
290
|
+
|
|
291
|
+
|
|
292
|
+
|
|
293
|
+
<div id="modFormSbt">
|
|
294
|
+
|
|
295
|
+
<div class="pts02a">
|
|
296
|
+
|
|
297
|
+
<div class="pts02c">
|
|
298
|
+
|
|
299
|
+
<p><span class="Button Button--normalSmall"><input id="acMdSave2" onClick="return onDraftSubmit('https://auctions.yahoo.co.jp/sell/jp/config/draft_save');" value="下書き保存" type="button"></span></p>
|
|
300
|
+
|
|
301
|
+
<div class="clr"></div>
|
|
302
|
+
|
|
303
|
+
</div>
|
|
304
|
+
|
|
305
|
+
</div>
|
|
306
|
+
|
|
307
|
+
|
|
308
|
+
|
|
309
|
+
<div class="alignC">
|
|
310
|
+
|
|
311
|
+
<div class="m0Auto w390 cf">
|
|
312
|
+
|
|
313
|
+
<div class="floatL mT10">
|
|
314
|
+
|
|
315
|
+
<span class="Button Button--normalSmall">
|
|
316
|
+
|
|
317
|
+
<input id="acMdBack2" onClick="submitDescription(); Ya.submit(document.auction, 'https://auctions.yahoo.co.jp/sell/jp/show/topsubmit', '', '', 'utf-8');" value="前の画面に戻る" type="button" class="auc_input_back">
|
|
318
|
+
|
|
319
|
+
</span>
|
|
320
|
+
|
|
321
|
+
</div>
|
|
322
|
+
|
|
323
|
+
<span class="Button Button--proceedLarge"><div class="floatR"><input id="auc_submit2" onClick="return onItemSubmit(this, 'https://auctions.yahoo.co.jp/sell/jp/show/preview');" value="確認画面へ" type="button"></div></span>
|
|
324
|
+
|
|
325
|
+
</div>
|
|
326
|
+
|
|
327
|
+
</div>
|
|
328
|
+
|
|
329
|
+
</div>
|
|
330
|
+
|
|
331
|
+
|
|
332
|
+
|
|
333
|
+
'以下省略
|
|
334
|
+
|
|
335
|
+
|
|
336
|
+
|
|
211
337
|
```
|
|
212
338
|
|
|
213
339
|
|