ファイルアップロード前のプルダウン選択ができない 削除
Message#1 2016年1月28日(木)22時25分 From: カープファン |
ネットのサンプルを参考に作成し、走らせると下記エラー個所でエラー91が出ました。 MsgBox OBJB.Valueで確認するときちんと目的のバリュー値(option value="aaa")はキャッチできています。 今一歩なのですが、原因がわかりません。 ご指導のほどよろしくお願いします。 Set OBJ = OBJIE.document.getElementsByName("bbb")(0) Call setSelect(OBJ, "aaa") Sub setSelect(OBJ As Object, VS As String) Dim OBJB For Each OBJB In OBJ.tags("option") Sleep 10 If OBJB.Value = VS Then 'MsgBox OBJB.Value OBJB.Seleted = True'エラー個所 Exit For End If Next End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。