Excel VBA質問箱 IV

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

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


49381 / 76732 ←次へ | 前へ→

【32262】Re:webクエリ
回答  かみちゃん E-MAIL  - 05/12/11(日) 22:38 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>Webクエリで情報を取り込みたいのですが、
>ログインIDとパスワードを入力するサイトにアクセスして
>自動的に取り込むことはできるものでしょうか?

私も、Webクエリをよく使っていますが、
ログイン認証がある場合は、ログインID等を入力する必要があるので、
Webクエリは使えないと思います。
その変わりに、私は、以下のような方法で情報を取得しています。
以下の例は、Yahoo!JAPANにログインして、ログイン直後のデータを表示する仕組みです。

Sub Macro1()
 '参考URL
 'http://www.ken3.org/vba/backno/vba097.html
 
 Dim objIE As Object 'IEオブジェクト参照用
 Dim strURL As String, strLogin As String, strPassword As String

 'インターネットエクスプローラーのオブジェクトを作る
 Set objIE = CreateObject("InternetExplorer.application")
  
 With objIE
  .Visible = True '見えるようにする(お約束)
  
  'ログイン情報を設定する。
  strURL = "http://login.yahoo.co.jp/config/login?"
  strLogin = "userID" 'ユーザ名
  strPassword = "PassWord" 'パスワード
  
  '文字列で指定したURLに飛ぶ
  objIE.Navigate strURL

  '表示終了まで待つ
  Do While objIE.Busy = True
  '何もしないループ(笑)
   DoEvents
  Loop
  '項目名を指定して、データをセットする
  With .Document
   .all.login.Value = strLogin 'ユーザー名をセットする。
   .all.passwd.Value = strPassword  'パスワードをセットする。
   .Forms(0).Submit 'ログインボタンをクリックする。
   
   '表示終了まで待つ
   Do While objIE.Busy = True
   '何もしないループ(笑)
    DoEvents
   Loop
   'ログイン直後のページの情報を取得
   Range("A1").Value = .body.innerText
  
  End With
 End With
 Set objIE = Nothing
End Sub

なお、以下のURLも参考になると思います。
http://www.ken3.org/cgi-bin/group/vba_ie.asp
1 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 質問

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