Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


48732 / 76732 ←次へ | 前へ→

【32931】Re:こまったことになります。
回答  Kein  - 05/12/27(火) 12:03 -

引用なし
パスワード
   偶然、私も楽天証券に口座を持っていたので、そのようなマクロを作ってみました。
例えばログイン画面から入ったところで「投資情報」というタブを開くコード
ですが、以下のようになります。

Sub RAKUTEN_LogIn()
  Dim IE As Object
  Const MyURL As String = _
  "https://www.rakuten-sec.co.jp/ITS/V_ACT_Login.html"

  Set IE = CreateObject("InternetExplorer.Application")
  With IE
   .Visible = True
   .Navigate MyURL
   Do While .Busy: Loop
   Do Until .ReadyState = 4: Loop
   With .Document
     .all.namedItem("loginid").Value = "xxxxxxxx"
     .all.namedItem("passwd").Value = "yyyyyyyy"
     .Forms(0).submit
   End With
  End With
  Application.Wait Time + TimeValue("00:00:01")
  SendKeys "{TAB 10}"
  Application.Wait Time + TimeValue("00:00:01")
  SendKeys "{ENTER}"
  Set IE = Nothing
End Sub

IE では TABキーによってフォーカスを与えるオブジェクトを順々に変更できます。
それを利用して SendKeys によってTABキーを押す回数を指定し、うまく目的の
タグにフォーカスを持って来て ENTER しようというわけです。その回数は、まず
手作業で自分専用の画面にログインして画面を注視し、TAB を回数を数えながら
押していき、目的のところへフォーカスが移るところまでをカウントすれば良い
でしょう。
ただし、SendKeys は安定した動作をするわけでなく、そうでなくても楽天証券側で
画面のレイアウトを変更したりすれば、たちまちヘンなところへ行ってしまうおそれが
あることを承知しておいて下さい。

0 hits

【32258】webクエリ ゼロイオン 05/12/11(日) 22:06 質問
【32262】Re:webクエリ かみちゃん 05/12/11(日) 22:38 回答
【32263】Re:webクエリ かみちゃん 05/12/11(日) 22:45 発言
【32264】Re:webクエリ ゼロイオン 05/12/11(日) 22:52 お礼
【32265】Re:webクエリ Kein 05/12/11(日) 23:05 発言
【32918】こまったことになります。 ゼロイオン 05/12/27(火) 5:10 発言
【32919】Re:こまったことになります。 かみちゃん 05/12/27(火) 5:16 発言
【32920】Re:こまったことになります。 ゼロイオン 05/12/27(火) 6:37 発言
【32921】Re:こまったことになります。 ゼロイオン 05/12/27(火) 6:50 質問
【32923】Re:こまったことになります。 かみちゃん 05/12/27(火) 7:03 発言
【32931】Re:こまったことになります。 Kein 05/12/27(火) 12:03 回答
【32957】Re:こまったことになります。 ゼロイオン 05/12/28(水) 3:52 発言
【32958】Re:こまったことになります。 ゼロイオン 05/12/28(水) 5:12 お礼
【33080】Re:こまったことになります。 ゼロイオン 06/1/2(月) 4:55 質問
【33081】Re:こまったことになります。 ゼロイオン 06/1/2(月) 5:18 質問
【33093】Re:こまったことになります。 Kein 06/1/2(月) 15:31 発言
【33094】Re:こまったことになります。 ゼロイオン 06/1/2(月) 17:00 質問
【33097】Re:こまったことになります。 Kein 06/1/2(月) 19:29 発言
【33106】Re:こまったことになります。 ゼロイオン 06/1/3(火) 1:21 発言
【33108】Re:こまったことになります。 やっちん 06/1/3(火) 1:52 発言
【32922】Re:こまったことになります。 かみちゃん 05/12/27(火) 7:02 発言
【32924】Re:こまったことになります。 ゼロイオン 05/12/27(火) 7:27 質問
【32925】Re:こまったことになります。 かみちゃん 05/12/27(火) 7:30 発言
【32955】Re:こまったことになります。 ゼロイオン 05/12/28(水) 0:08 質問

48732 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free