Excel VBA質問箱 IV

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

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


2581 / 13645 ツリー ←次へ | 前へ→

【67084】VBAよりIEの起動を制御するには Masato/S 10/11/2(火) 15:07 質問[未読]
【67085】Re:VBAよりIEの起動を制御するには Jaka 10/11/2(火) 16:37 発言[未読]

【67084】VBAよりIEの起動を制御するには
質問  Masato/S  - 10/11/2(火) 15:07 -

引用なし
パスワード
   こんにちは。。

 Excelの環境で、IEを起動したくて、以下のコードを作りました。ちゃんと動いてくれるのですが、UR L = "ht tp://1**.1**.1**.1**"のID/PWはどうしても手入力しなければ、内容が見れません。

質問:ID/PWの情報をコードに盛り込んでおいて、自動的に閲覧をできるようにしたいです。
アドバイスをいただきたいです。

----------------------------------------------------------------
Sub TEST_1030()
  Dim URL As String, IE As Object
  Set IE = CreateObject("InternetExplorer.Application")
  UR L = "ht tp://1**.1**.1**.1**"
  With IE
    .Navigate (URL)
    .Visible = True
  End With
  Set IE = Nothing
End Sub
---------------------------------------------------------------

【67085】Re:VBAよりIEの起動を制御するには
発言  Jaka  - 10/11/2(火) 16:37 -

引用なし
パスワード
   たぶん....。
1度失敗して当分アクセスできなくなったので、これ以上わかりません。


  Dim St_URL As String, IE As Object
  Set IE = CreateObject("InternetExplorer.Application")
  St_URL = "ht tp://1**.1**.1**.1**""
  With IE
    .Navigate (St_URL)
    .Visible = True
    Do While .ReadyState <> 4 Or .Busy
      DoEvents
    Loop
    With .Document.all
      '↓この辺は環境に合わせてください。
      .Item("テキストボックスの名前1").Value = "なんとか"
      .Item("テキストボックスの名前2").Value = "なんとか"
    End With
    Do While .ReadyState <> 4 Or .Busy
      DoEvents
    Loop
  End With
  Set IE = Nothing

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