質問編集履歴
4
コード4のところの遷移画面のコードです。
test
CHANGED
File without changes
|
test
CHANGED
@@ -209,3 +209,37 @@
|
|
209
209
|
|
210
210
|
|
211
211
|
ご教授のほど、よろしくお願いします。
|
212
|
+
|
213
|
+
|
214
|
+
|
215
|
+
コード4のところの遷移画面です。
|
216
|
+
|
217
|
+
```HTML
|
218
|
+
|
219
|
+
|
220
|
+
|
221
|
+
<TABLE><TBODY>
|
222
|
+
|
223
|
+
<TR>
|
224
|
+
|
225
|
+
<TD onclick="javascript:setPermaLink('/UPDSTMG/package/view/Site.html?psSite=TMG_INP')" class=PS_siteLinkDesc style="CURSOR: pointer; BACKGROUND: url(/UPDSTMG/package/component/images/icon_personalSite.gif) no-repeat left 50%">
|
226
|
+
|
227
|
+
<DL>
|
228
|
+
|
229
|
+
<DT class=PS_siteLink><A href="javascript:setPermaLink('/UPDSTMG/package/view/Site.html?psSite=TMG_INP')">就業入力サイト</A>
|
230
|
+
|
231
|
+
<DT>あなたの就業実績情報を入力できます</DT></DL></TD>
|
232
|
+
|
233
|
+
<TD onclick="javascript:setPermaLink('/UPDSTMG/package/view/Site.html?psSite=TMG_PERM')" class=PS_siteLinkDesc style="CURSOR: pointer; BACKGROUND: url(/UPDSTMG/package/component/images/icon_talentManagement.gif) no-repeat left 50%">
|
234
|
+
|
235
|
+
<DL>
|
236
|
+
|
237
|
+
<DT class=PS_siteLink><A href="javascript:setPermaLink('/UPDSTMG/package/view/Site.html?psSite=TMG_PERM')">就業承認サイト</A>
|
238
|
+
|
239
|
+
<DT>承認者・代理承認者用サイトです</DT></DL></TD>
|
240
|
+
|
241
|
+
<TD class=PS_siteLinkDesc> </TD>
|
242
|
+
|
243
|
+
<TD class=PS_siteLinkDesc> </TD></TR></TBODY></TABLE>
|
244
|
+
|
245
|
+
```
|
3
誤字を修正しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -152,7 +152,7 @@
|
|
152
152
|
|
153
153
|
|
154
154
|
|
155
|
-
'---コード5|
|
155
|
+
'---コード5|終業打刻---
|
156
156
|
|
157
157
|
|
158
158
|
|
2
よろしくお願いします。
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,13 +1,3 @@
|
|
1
|
-
``````ここに言語を入力
|
2
|
-
|
3
|
-
VBA
|
4
|
-
|
5
|
-
|
6
|
-
|
7
|
-
```
|
8
|
-
|
9
|
-
|
10
|
-
|
11
1
|
VBA でWeb上のボタンをクリックするスクリプトが上手く書けません。
|
12
2
|
|
13
3
|
対象となるサイトは下記のソースの
|
@@ -90,7 +80,7 @@
|
|
90
80
|
|
91
81
|
|
92
82
|
|
93
|
-
```
|
83
|
+
```VBA
|
94
84
|
|
95
85
|
Sub 終業打刻()
|
96
86
|
|
@@ -184,32 +174,36 @@
|
|
184
174
|
|
185
175
|
|
186
176
|
|
187
|
-
|
177
|
+
```VBA
|
188
178
|
|
189
179
|
objIE.document.getElementsByName("btTimePunchEnd")(0).click
|
190
180
|
|
191
|
-
|
181
|
+
```
|
192
182
|
|
193
183
|
↑「オブジェクトはこのプロパティまたはメソッドをサポートしていません」と出てしまいます。
|
194
184
|
|
195
|
-
|
185
|
+
```VBA
|
196
186
|
|
197
187
|
objIE.document.getElementById("timeCloseButton").getElementsByTagName("input")(0).click
|
198
188
|
|
199
|
-
|
189
|
+
```
|
200
190
|
|
201
191
|
↑「オブジェクト変数またはwithブロック変数が設定されていません」と出てしまいます。
|
202
192
|
|
203
|
-
|
193
|
+
```VBA
|
204
194
|
|
205
195
|
objIE.navigate "javascript:execClose();"
|
206
196
|
|
207
|
-
|
197
|
+
```
|
198
|
+
|
199
|
+
```VBA
|
208
200
|
|
209
201
|
objIE.document.Script.setTimeout "execClose();", 1
|
210
202
|
|
211
203
|
|
212
204
|
|
205
|
+
```
|
206
|
+
|
213
207
|
↑この2つはエラーメッセージは出ませんが、何も起きません。
|
214
208
|
|
215
209
|
|
1
ご指摘ありがとうございます。マークダウン機能を使い修正しました。また、私が作成したコード全体を記載しました。しくお願いします。
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,9 +1,19 @@
|
|
1
|
+
``````ここに言語を入力
|
2
|
+
|
3
|
+
VBA
|
4
|
+
|
5
|
+
|
6
|
+
|
7
|
+
```
|
8
|
+
|
9
|
+
|
10
|
+
|
1
11
|
VBA でWeb上のボタンをクリックするスクリプトが上手く書けません。
|
2
12
|
|
3
|
-
|
4
|
-
|
5
13
|
対象となるサイトは下記のソースの
|
6
14
|
|
15
|
+
|
16
|
+
|
7
17
|
<input type="button" name="btTimePunchEnd" value="終業打刻" onclick="execClose()">
|
8
18
|
|
9
19
|
|
@@ -14,9 +24,9 @@
|
|
14
24
|
|
15
25
|
|
16
26
|
|
27
|
+
|
28
|
+
|
17
|
-
|
29
|
+
```HTML
|
18
|
-
|
19
|
-
|
20
30
|
|
21
31
|
<table class="PS_dataLine table2" width="400">
|
22
32
|
|
@@ -72,6 +82,102 @@
|
|
72
82
|
|
73
83
|
|
74
84
|
|
85
|
+
以下のコード1~4は↑のページにたどり着くためのコードで、
|
86
|
+
|
87
|
+
コード5として「終業打刻」をしたいと思っています。
|
88
|
+
|
89
|
+
|
90
|
+
|
91
|
+
|
92
|
+
|
93
|
+
```ここに言語を入力
|
94
|
+
|
95
|
+
Sub 終業打刻()
|
96
|
+
|
97
|
+
'
|
98
|
+
|
99
|
+
' 就業打刻 Macro
|
100
|
+
|
101
|
+
'---コード1|インターネットに接続してブラウザを開く---
|
102
|
+
|
103
|
+
Dim objIE As InternetExplorer
|
104
|
+
|
105
|
+
Set objIE = CreateObject("InternetExplorer.Application")
|
106
|
+
|
107
|
+
objIE.Visible = True
|
108
|
+
|
109
|
+
|
110
|
+
|
111
|
+
'---コード2|インターネットの特定のページを開く---
|
112
|
+
|
113
|
+
objIE.navigate "https://jkap2.ffpri.go.jp/UPDSTMG/package/auth/view/Login.html"
|
114
|
+
|
115
|
+
Call IEWait(objIE) 'IEを待機
|
116
|
+
|
117
|
+
Call WaitFor(1) '1秒停止
|
118
|
+
|
119
|
+
|
120
|
+
|
121
|
+
|
122
|
+
|
123
|
+
|
124
|
+
|
125
|
+
'---コード3|自動でログイン---
|
126
|
+
|
127
|
+
|
128
|
+
|
129
|
+
Dim htmlDoc As HTMLDocument
|
130
|
+
|
131
|
+
Set htmlDoc = objIE.document
|
132
|
+
|
133
|
+
|
134
|
+
|
135
|
+
With htmlDoc
|
136
|
+
|
137
|
+
.getElementById("txtAccount").Value = "******" 'ユーザー名を指定
|
138
|
+
|
139
|
+
.getElementById("txtPassword").Value = "****" 'パスワードを指定
|
140
|
+
|
141
|
+
.getElementById("fm:idLoginButton").Click
|
142
|
+
|
143
|
+
End With
|
144
|
+
|
145
|
+
|
146
|
+
|
147
|
+
Call WaitFor(1) '1秒停止
|
148
|
+
|
149
|
+
|
150
|
+
|
151
|
+
|
152
|
+
|
153
|
+
|
154
|
+
|
155
|
+
'---コード4|ウェブ上のボタンを自動でクリックして次へ---
|
156
|
+
|
157
|
+
objIE.document.Script.setTimeout "javascript:setPermaLink('/UPDSTMG/package/view/Site.html?psSite=TMG_INP')", 1
|
158
|
+
|
159
|
+
|
160
|
+
|
161
|
+
Call WaitFor(3) '1秒停止
|
162
|
+
|
163
|
+
|
164
|
+
|
165
|
+
'---コード5|就業打刻---
|
166
|
+
|
167
|
+
|
168
|
+
|
169
|
+
objIE.document.getElementsByName("btTimePunchEnd")(0).click
|
170
|
+
|
171
|
+
|
172
|
+
|
173
|
+
|
174
|
+
|
175
|
+
End Sub
|
176
|
+
|
177
|
+
```
|
178
|
+
|
179
|
+
|
180
|
+
|
75
181
|
### 試したこと
|
76
182
|
|
77
183
|
以下を試しましたが、ダメでした。
|