PR
キーワードサーチ
▼キーワード検索
EXCEL VBA TIPS
わたしのブログへようこそ
カレンダー
コメント新着
フリーページ
2008.10.15
テーマ： FXの取引(1204)
カテゴリ： カテゴリ未分類
以下ソースです、最後から7･8行目にパスワード、ログインidの代入文に変更してください
Dim objIE0
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか？
If TypeName(Window.document) = "HTMLDocument" Then
If Window.document.URL = "https://sec-sso.click-sec.com/loginweb/" Then
Set objIE0 = Window '対象URLが表示→その画面を使う
Exit For
End If
End If
Next
If win_s = False Then '対象URLが非表示→新しく画面を開く
Set objIE0 = CreateObject("InternetExplorer.Application")
objIE0.Visible = True
objIE0.Navigate "https://sec-sso.click-sec.com/loginweb/"
Do While objIE0.busy = True
Loop
Do While objIE0.document.readyState <> "complete"
End If
'---header end---
'---以下操作コード、必要な部分をコピーしてください---
objIE0.document.all.j_username.Value = "" ' text index=0
objIE0.document.all.j_password.Value = "" ' password index=1
If objTAG.Type = "submit" Then
objTAG.Click
Exit For
End If
Next
Dim objIE0
'対象画面を検索、なければ開く（必要に応じ使用してください）
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか？
If TypeName(Window.document) = "HTMLDocument" Then
If Window.document.URL = "https://sec-sso.click-sec.com/loginweb/" Then
Set objIE0 = Window '対象URLが表示→その画面を使う
Exit For
End If
End If
Next
If win_s = False Then '対象URLが非表示→新しく画面を開く
Set objIE0 = CreateObject("InternetExplorer.Application")
objIE0.Visible = True
objIE0.Navigate "https://sec-sso.click-sec.com/loginweb/"
Do While objIE0.busy = True
Loop
Do While objIE0.document.readyState <> "complete"
End If
'---header end---
'---以下操作コード、必要な部分をコピーしてください---
objIE0.document.all.j_username.Value = "" ' text index=0
objIE0.document.all.j_password.Value = "" ' password index=1
If objTAG.Type = "submit" Then
objTAG.Click
Exit For
End If
Next
お気に入りの記事を「いいね！」で応援しよう
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
