質問編集履歴

1

コードを追記しました

2021/10/12 13:05

投稿

hiro_a
hiro_a

スコア11

test CHANGED
File without changes
test CHANGED
@@ -26,21 +26,73 @@
26
26
 
27
27
 
28
28
 
29
+ ----- ここから共通 -----
29
30
 
31
+ Dim Driver As New Selenium.WebDriver
30
32
 
33
+ Dim Elm As Selenium.WebElement
34
+
35
+ Dim sKeys As New Selenium.Keys
36
+
37
+
38
+
39
+ Dim strURL As String
40
+
41
+
42
+
43
+ On Error GoTo ErrHandler
44
+
45
+ Main = False
46
+
47
+
48
+
49
+ ' SeleniumでChromeを使うことを宣言
50
+
51
+ Driver.Start "chrome"
52
+
53
+
54
+
55
+ ' タオバオログインページへ遷移
56
+
57
+ strURL = "https://world.taobao.com/wow/z/oversea/SEO-SEM/ovs-pc-login"
58
+
59
+ Driver.Get strURL
60
+
61
+
62
+
31
- ①XPath指定したパターン
63
+ ----- ここま共通 -----
32
64
 
33
65
 
34
66
 
67
+ パターン①XPathで指定
68
+
69
+ ' ①ユーザーID入力(XPath)
70
+
35
- Set Elm = Driver.FindElementByXPath("//*[@id=""fm-login-id""]")
71
+ Set Elm = Driver.FindElementByXPath("//*[@id=""fm-login-id""]")
72
+
73
+ Elm.SendKeys Sheets("menu").Range("d3")
36
74
 
37
75
 
38
76
 
77
+
78
+
39
- ②フルパスで指定したパターン
79
+ パターン②フルパスで指定
80
+
81
+ ' ②ユーザーID入力(フルパス)
82
+
83
+ Set Elm = Driver.FindElementByXPath("/html/body/div[1]/div/div[2]/div/form/div[1]/div[2]/input")
84
+
85
+ Elm.SendKeys Sheets("menu").Range("d3")
40
86
 
41
87
 
42
88
 
89
+
90
+
43
- Set Elm = Driver.FindElementByXPath("/html/body/div[1]/div/div[2]/div/form/div[1]/div[2]/input")
91
+ ①のパターンでも②のパターンでもFindElementByXPathのところで前述の
92
+
93
+ エラーが発生します。
94
+
95
+
44
96
 
45
97
 
46
98