締切済み

Aa

  • 暇なときにでも
  • 質問No.9598102
  • 閲覧数110
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 0% (0/3)

Microsoft Internet Controlsの参照設定
Option Explicit

Sub テキストボックス操作()
Dim ie As InternetExplorer
Dim txtInput As HTMLInputElement
Dim txtOutput As HTMLInputElement

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "http://book.impress.co.jp/appended/3384/4-2.html"
Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE
DoEvents
Loop

Set txtInput = ie.document.getElementById("Text1")
MsgBox txtInput.Value

Set txtOutput = ie.document.getElementById("Text2")
txtOutput.Value = "VBA からの書き込み"
End Sub

Sub ラジオボタンの操作()
Dim ie As InternetExplorer
Dim radio1 As HTMLInputElement
Dim radio2 As HTMLInputElement

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "http://book.impress.co.jp/appended/3384/4-6.html"
Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE
DoEvents
Loop

For Each radio1 In ie.document.getElementsByName("Radio1")
If radio1.Checked = True Then
MsgBox radio1.Value
Exit For
End If
Next

For Each radio2 In ie.document.getElementsByName("Radio2")
If radio2.Value = "女" Then
radio2.Checked = True
Exit For
End If
Next
End Sub

Sub ハイパーリンクをクリック()
Dim ie As InternetExplorer
Dim anchor As HTMLAnchorElement

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "http://book.impress.co.jp/appended/3384/4-7.html"
Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE
DoEvents
Loop

For Each anchor In ie.document.getElementsByTagName("A")
If anchor.innerText = "やきそばパン vs 揚げパン" Then
anchor.Click
Exit For
End If
Next
End Sub

Sub ボタンをクリックボタン2()
Dim ie As InternetExplorer
Dim button As HTMLInputElement

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "http://book.impress.co.jp/appended/3384/4-8.html"
Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE
DoEvents
Loop

For Each button In ie.document.getElementsByTagName("INPUT")
If button.Type = "button" And button.Value = "ボタン2" Then
button.Click
Exit For
End If
Next
End Sub

回答 (全1件)

  • 回答No.1

ベストアンサー率 22% (4001/17861)

他カテゴリのカテゴリマスター
 
質問は何ですか?
 
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
関連するQ&A
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

ピックアップ

ページ先頭へ