回答編集履歴

2

追記

2020/09/20 08:19

投稿

TanakaHiroaki
TanakaHiroaki

スコア1063

test CHANGED
@@ -7,3 +7,63 @@
7
7
  'If win.document.Url = "https://www.shopjapan.co.jp/shop/customer/entry" Then
8
8
 
9
9
  ```
10
+
11
+
12
+
13
+ **追記**
14
+
15
+ Exit For の位置を変更してみました。
16
+
17
+ ```VBA
18
+
19
+ '開いているすべてのウインドウに対して処理する
20
+
21
+ For Each win In colSh.Windows
22
+
23
+
24
+
25
+ On Error Resume Next 'Window取得エラー対策
26
+
27
+ '開いているファイルの種類がHTMLなら処理を実行する
28
+
29
+ If TypeName(win.document) <> "HTMLDocument" Then
30
+
31
+ Else
32
+
33
+ '開いているサイトのURLが下記だったら
34
+
35
+ If win.LocationURL = "https://www.shopjapan.co.jp/shop/customer/entry" Then
36
+
37
+ 'If win.document.Url = "https://www.shopjapan.co.jp/shop/customer/entry" Then
38
+
39
+
40
+
41
+ 'このウインドウをobjIEとして指定する
42
+
43
+ Set objIE = win
44
+
45
+
46
+
47
+ objIE.document.getElementsByName("postCd")(0).Value = Range("D2").Value
48
+
49
+ objIE.document.getElementsByName("address1")(0).Value = Range("E2").Value
50
+
51
+ objIE.document.getElementsByName("address2")(0).Value = Range("F2").Value
52
+
53
+ objIE.document.getElementsByName("address3")(0).Value = Range("G2").Value
54
+
55
+
56
+
57
+ '処理を中断してFor~Nextを終了する
58
+
59
+ Exit For
60
+
61
+ End If
62
+
63
+ End If
64
+
65
+ On Error GoTo 0
66
+
67
+ Next
68
+
69
+ ```

1

誤記修正

2020/09/20 08:18

投稿

TanakaHiroaki
TanakaHiroaki

スコア1063

test CHANGED
@@ -7,5 +7,3 @@
7
7
  'If win.document.Url = "https://www.shopjapan.co.jp/shop/customer/entry" Then
8
8
 
9
9
  ```
10
-
11
- .LocationURL