回答編集履歴
1
コード修正
test
CHANGED
@@ -11,27 +11,28 @@
|
|
11
11
|
'ログイン作業
|
12
12
|
|
13
13
|
'略
|
14
|
+
On Error Resume Next
|
14
15
|
|
15
16
|
'カート画面遷移
|
16
17
|
|
17
18
|
'略
|
18
|
-
|
19
19
|
Dim tryCnt As Long
|
20
20
|
Do Until Err.Number = 0 Or tryCnt > 10
|
21
|
-
|
21
|
+
Err.Clear
|
22
|
+
|
22
23
|
'エラーがでた時の再ログイン作業
|
23
24
|
'略
|
24
25
|
|
25
26
|
tryCnt = tryCnt + 1
|
26
27
|
Loop
|
28
|
+
On Error GoTo 0
|
29
|
+
|
27
30
|
If tryCnt > 10 Then
|
28
31
|
MsgBox "ログインできませんでした。時間をおいて再実行してください。"
|
29
32
|
'終了処理
|
30
33
|
Exit Sub
|
31
34
|
End If
|
32
35
|
|
33
|
-
|
34
|
-
|
35
36
|
'チェックボックス入れて支払い画面へ
|
36
37
|
|
37
38
|
'略
|