PR
キーワードサーチ
▼キーワード検索
EXCEL VBA TIPS
わたしのブログへようこそ
カレンダー
コメント新着
フリーページ
2009.02.14
テーマ： 株式投資日記(20638)
カテゴリ： カテゴリ未分類
API使えなくなるので、こいつが必要になってしまった
objIE0.document.body.innerhtmlのオブジェクトなしのエラーを無視するようにしました
先頭1行取引暗証番号の代入文にしてください
以下ソースです
pinCode="" '取引暗証番号の代入文にしてください
Dim objIE0 'ルートのオブジェクト、操作コードではこの名称を使用します
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか？
if instr(Window.Document.url,"https://kabu.click-sec.com")>0 then
Set objIE0 = Window '対象URLが表示→その画面を使う
win_s=true
exit for
end if
end if
next
qq=false
do
on error resume next
do
if err.description<>"" then
' if MsgBox(err.description, VbOKCancel, "WS")=vbCancel Then
' qq=true
exit do
' end if
objIE0.document.all.pinCode.value=pinCode ' password index=7
end if
wscript.sleep(500)
loop
err.clear
if qq=true then exit do
loop
objIE0.document.body.innerhtmlのオブジェクトなしのエラーを無視するようにしました
先頭1行取引暗証番号の代入文にしてください
以下ソースです
pinCode="" '取引暗証番号の代入文にしてください
Dim objIE0 'ルートのオブジェクト、操作コードではこの名称を使用します
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか？
if instr(Window.Document.url,"https://kabu.click-sec.com")>0 then
Set objIE0 = Window '対象URLが表示→その画面を使う
win_s=true
exit for
end if
end if
next
qq=false
do
on error resume next
do
if err.description<>"" then
' if MsgBox(err.description, VbOKCancel, "WS")=vbCancel Then
' qq=true
exit do
' end if
objIE0.document.all.pinCode.value=pinCode ' password index=7
end if
wscript.sleep(500)
loop
err.clear
if qq=true then exit do
loop
お気に入りの記事を「いいね！」で応援しよう
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
