以下ソースです、最後から2・3行目にパスワード、ログインidの代入文に変更してください Dim objIE0 Dim s '対象画面を検索、なければ開く(必要に応じ使用してください) 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://trade.starkawase.jp/fxcwebpresen-tfx/Login.do" then
win_s=true exit for end if end if next if win_s=false then '対象URLが非表示→新しく画面を開く Set objIE0 = CreateObject("InternetExplorer.Application") objIE0.Visible = True objIE0.Navigate "https://trade.starkawase.jp/fxcwebpresen-tfx/Login.do" Do While objIE0.busy = True Loop
Loop end if '---header end--- '---以下操作コード、必要な部分をコピーしてください--- objIE0.document.all.loginId.value="" ' text index=1