自動ログイン


Message#から前件を

日から 前を
Q&A掲示板へ

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)


Message#1 2016年5月10日(火)11時48分
From: はいほ
返事 削除 変更
ここのサイトを参考にエクセルのデーターを、ホームページのフォームに表示させるマクロを組むことができました。ありがとうございます。

次にログインボタンを押してIDとパスワードを入力し、されにログインをさせたいのですが、どのように組むと可能でしょうか。

ご教示頂けますと幸いです。
宜しくお願いします。

#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If

Sub sample()

Dim objIE As InternetExplorer
Dim timeOut As Date

'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")


'IE(InternetExplorer)を表示する
objIE.Visible = True

'指定したURLのページをIEで起動する
objIE.navigate "https://forms.business.yahoo.co.jp/webform/Inquiry/InquiryTop?inquiry_type=contact_guideline_agency_581"

'完全にページが表示されるまで待機する
timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

'お問い合わせ1
'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")


'IE(InternetExplorer)を表示する
objIE.Visible = True

'指定したURLのページをIEで起動する
objIE.navigate "https://forms.business.yahoo.co.jp/webform/Inquiry/InquiryTop?inquiry_type=contact_guideline_agency_581"

'完全にページが表示されるまで待機する
timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

'スポンサードサーチ
objIE.document.getElementsByName("inquiry_0")(0).selectedIndex = True

'デバイス
objIE.document.getElementsByName("inquiry_1")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_5")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_6.Value = Worksheets("Sheet1").Range("A1")


'タイトル1
objIE.document.forms(0).inquiry_7.Value = Worksheets("Sheet1").Range("A2")

'説明文1
objIE.document.forms(0).inquiry_8.Value = Worksheets("Sheet1").Range("A3")

'説明文2
objIE.document.forms(0).inquiry_9.Value = Worksheets("Sheet1").Range("A4")

'申告内容
objIE.document.forms(0).inquiry_11.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_12")(0).selectedIndex = 28


'お問い合わせ2

'デバイス
objIE.document.getElementsByName("inquiry_14")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_18")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_19.Value = Worksheets("Sheet1").Range("A5")


'タイトル1
objIE.document.forms(0).inquiry_20.Value = Worksheets("Sheet1").Range("A6")

'説明文1
objIE.document.forms(0).inquiry_21.Value = Worksheets("Sheet1").Range("A7")

'表示URL
objIE.document.forms(0).inquiry_22.Value = Worksheets("Sheet1").Range("A8")

'申告内容
objIE.document.forms(0).inquiry_24.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_25")(0).selectedIndex = 28


'お問い合わせ3

'デバイス
objIE.document.getElementsByName("inquiry_27")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_31")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_32.Value = Worksheets("Sheet1").Range("A9")


'タイトル1
objIE.document.forms(0).inquiry_33.Value = Worksheets("Sheet1").Range("A10")

'説明文1
objIE.document.forms(0).inquiry_34.Value = Worksheets("Sheet1").Range("A11")

'表示URL
objIE.document.forms(0).inquiry_35.Value = Worksheets("Sheet1").Range("A12")

'申告内容
objIE.document.forms(0).inquiry_37.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_38")(0).selectedIndex = 28


'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")


'IE(InternetExplorer)を表示する
objIE.Visible = True

'指定したURLのページをIEで起動する
objIE.navigate "https://forms.business.yahoo.co.jp/webform/Inquiry/InquiryTop?inquiry_type=contact_guideline_agency_581"

'完全にページが表示されるまで待機する
timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop



'スポンサードサーチ
objIE.document.getElementsByName("inquiry_0")(0).selectedIndex = True

'デバイス
objIE.document.getElementsByName("inquiry_1")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_5")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_6.Value = Worksheets("Sheet1").Range("A13")


'タイトル1
objIE.document.forms(0).inquiry_7.Value = Worksheets("Sheet1").Range("A14")

'説明文1
objIE.document.forms(0).inquiry_8.Value = Worksheets("Sheet1").Range("A15")

'説明文2
objIE.document.forms(0).inquiry_9.Value = Worksheets("Sheet1").Range("A16")

'申告内容
objIE.document.forms(0).inquiry_11.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_12")(0).selectedIndex = 28


'お問い合わせ2

'デバイス
objIE.document.getElementsByName("inquiry_14")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_18")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_19.Value = Worksheets("Sheet1").Range("A17")


'タイトル1
objIE.document.forms(0).inquiry_20.Value = Worksheets("Sheet1").Range("A18")

'説明文1
objIE.document.forms(0).inquiry_21.Value = Worksheets("Sheet1").Range("A19")

'表示URL
objIE.document.forms(0).inquiry_22.Value = Worksheets("Sheet1").Range("A20")

'申告内容
objIE.document.forms(0).inquiry_24.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_25")(0).selectedIndex = 28


'お問い合わせ3

'デバイス
objIE.document.getElementsByName("inquiry_27")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_31")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_32.Value = Worksheets("Sheet1").Range("A21")


'タイトル1
objIE.document.forms(0).inquiry_33.Value = Worksheets("Sheet1").Range("A22")

'説明文1
objIE.document.forms(0).inquiry_34.Value = Worksheets("Sheet1").Range("A23")

'表示URL
objIE.document.forms(0).inquiry_35.Value = Worksheets("Sheet1").Range("A24")

'申告内容
objIE.document.forms(0).inquiry_37.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_38")(0).selectedIndex = 28




'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")


'IE(InternetExplorer)を表示する
objIE.Visible = True

'指定したURLのページをIEで起動する
objIE.navigate "https://forms.business.yahoo.co.jp/webform/Inquiry/InquiryTop?inquiry_type=contact_guideline_agency_581"

'完全にページが表示されるまで待機する
timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop



'スポンサードサーチ
objIE.document.getElementsByName("inquiry_0")(0).selectedIndex = True

'デバイス
objIE.document.getElementsByName("inquiry_1")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_5")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_6.Value = Worksheets("Sheet1").Range("A25")


'タイトル1
objIE.document.forms(0).inquiry_7.Value = Worksheets("Sheet1").Range("A26")

'説明文1
objIE.document.forms(0).inquiry_8.Value = Worksheets("Sheet1").Range("A27")

'説明文2
objIE.document.forms(0).inquiry_9.Value = Worksheets("Sheet1").Range("A28")

'申告内容
objIE.document.forms(0).inquiry_11.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_12")(0).selectedIndex = 28


'お問い合わせ2

'デバイス
objIE.document.getElementsByName("inquiry_14")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_18")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_19.Value = Worksheets("Sheet1").Range("A29")


'タイトル1
objIE.document.forms(0).inquiry_20.Value = Worksheets("Sheet1").Range("A30")

'説明文1
objIE.document.forms(0).inquiry_21.Value = Worksheets("Sheet1").Range("A31")

'表示URL
objIE.document.forms(0).inquiry_22.Value = Worksheets("Sheet1").Range("A32")

'申告内容
objIE.document.forms(0).inquiry_24.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_25")(0).selectedIndex = 28


'お問い合わせ3

'デバイス
objIE.document.getElementsByName("inquiry_27")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_31")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_32.Value = Worksheets("Sheet1").Range("A33")


'タイトル1
objIE.document.forms(0).inquiry_33.Value = Worksheets("Sheet1").Range("A34")

'説明文1
objIE.document.forms(0).inquiry_34.Value = Worksheets("Sheet1").Range("A35")

'表示URL
objIE.document.forms(0).inquiry_35.Value = Worksheets("Sheet1").Range("A36")

'申告内容
objIE.document.forms(0).inquiry_37.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_38")(0).selectedIndex = 28


'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")


'IE(InternetExplorer)を表示する
objIE.Visible = True

'指定したURLのページをIEで起動する
objIE.navigate "https://forms.business.yahoo.co.jp/webform/Inquiry/InquiryTop?inquiry_type=contact_guideline_agency_581"

'完全にページが表示されるまで待機する
timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop



'スポンサードサーチ
objIE.document.getElementsByName("inquiry_0")(0).selectedIndex = True

'デバイス
objIE.document.getElementsByName("inquiry_1")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_5")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_6.Value = Worksheets("Sheet1").Range("B1")


'タイトル1
objIE.document.forms(0).inquiry_7.Value = Worksheets("Sheet1").Range("B2")

'説明文1
objIE.document.forms(0).inquiry_8.Value = Worksheets("Sheet1").Range("B3")

'説明文2
objIE.document.forms(0).inquiry_9.Value = Worksheets("Sheet1").Range("B4")

'申告内容
objIE.document.forms(0).inquiry_11.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_12")(0).selectedIndex = 28


'お問い合わせ2

'デバイス
objIE.document.getElementsByName("inquiry_14")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_18")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_19.Value = Worksheets("Sheet1").Range("B5")


'タイトル1
objIE.document.forms(0).inquiry_20.Value = Worksheets("Sheet1").Range("B6")

'説明文1
objIE.document.forms(0).inquiry_21.Value = Worksheets("Sheet1").Range("B7")

'表示URL
objIE.document.forms(0).inquiry_22.Value = Worksheets("Sheet1").Range("B8")

'申告内容
objIE.document.forms(0).inquiry_24.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_25")(0).selectedIndex = 28


'お問い合わせ3

'デバイス
objIE.document.getElementsByName("inquiry_27")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_31")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_32.Value = Worksheets("Sheet1").Range("B9")


'タイトル1
objIE.document.forms(0).inquiry_33.Value = Worksheets("Sheet1").Range("B10")

'説明文1
objIE.document.forms(0).inquiry_34.Value = Worksheets("Sheet1").Range("B11")

'表示URL
objIE.document.forms(0).inquiry_35.Value = Worksheets("Sheet1").Range("B12")

'申告内容
objIE.document.forms(0).inquiry_37.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_38")(0).selectedIndex = 28


'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")


'IE(InternetExplorer)を表示する
objIE.Visible = True

'指定したURLのページをIEで起動する
objIE.navigate "https://forms.business.yahoo.co.jp/webform/Inquiry/InquiryTop?inquiry_type=contact_guideline_agency_581"

'完全にページが表示されるまで待機する
timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop



'スポンサードサーチ
objIE.document.getElementsByName("inquiry_0")(0).selectedIndex = True

'デバイス
objIE.document.getElementsByName("inquiry_1")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_5")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_6.Value = Worksheets("Sheet1").Range("B13")


'タイトル1
objIE.document.forms(0).inquiry_7.Value = Worksheets("Sheet1").Range("B14")

'説明文1
objIE.document.forms(0).inquiry_8.Value = Worksheets("Sheet1").Range("B15")

'説明文2
objIE.document.forms(0).inquiry_9.Value = Worksheets("Sheet1").Range("B16")

'申告内容
objIE.document.forms(0).inquiry_11.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_12")(0).selectedIndex = 28


'お問い合わせ2

'デバイス
objIE.document.getElementsByName("inquiry_14")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_18")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_19.Value = Worksheets("Sheet1").Range("B17")


'タイトル1
objIE.document.forms(0).inquiry_20.Value = Worksheets("Sheet1").Range("B18")

'説明文1
objIE.document.forms(0).inquiry_21.Value = Worksheets("Sheet1").Range("B19")

'表示URL
objIE.document.forms(0).inquiry_22.Value = Worksheets("Sheet1").Range("B20")

'申告内容
objIE.document.forms(0).inquiry_24.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_25")(0).selectedIndex = 28


'お問い合わせ3

'デバイス
objIE.document.getElementsByName("inquiry_27")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_31")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_32.Value = Worksheets("Sheet1").Range("B21")


'タイトル1
objIE.document.forms(0).inquiry_33.Value = Worksheets("Sheet1").Range("B22")

'説明文1
objIE.document.forms(0).inquiry_34.Value = Worksheets("Sheet1").Range("B23")

'表示URL
objIE.document.forms(0).inquiry_35.Value = Worksheets("Sheet1").Range("B24")

'申告内容
objIE.document.forms(0).inquiry_37.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_38")(0).selectedIndex = 28



'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")


'IE(InternetExplorer)を表示する
objIE.Visible = True

'指定したURLのページをIEで起動する
objIE.navigate "https://forms.business.yahoo.co.jp/webform/Inquiry/InquiryTop?inquiry_type=contact_guideline_agency_581"

'完全にページが表示されるまで待機する
timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop



'スポンサードサーチ
objIE.document.getElementsByName("inquiry_0")(0).selectedIndex = True

'デバイス
objIE.document.getElementsByName("inquiry_1")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_5")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_6.Value = Worksheets("Sheet1").Range("B25")


'タイトル1
objIE.document.forms(0).inquiry_7.Value = Worksheets("Sheet1").Range("B26")

'説明文1
objIE.document.forms(0).inquiry_8.Value = Worksheets("Sheet1").Range("B27")

'説明文2
objIE.document.forms(0).inquiry_9.Value = Worksheets("Sheet1").Range("B28")

'申告内容
objIE.document.forms(0).inquiry_11.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_12")(0).selectedIndex = 28


'お問い合わせ2

'デバイス
objIE.document.getElementsByName("inquiry_14")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_18")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_19.Value = Worksheets("Sheet1").Range("B29")


'タイトル1
objIE.document.forms(0).inquiry_20.Value = Worksheets("Sheet1").Range("B30")

'説明文1
objIE.document.forms(0).inquiry_21.Value = Worksheets("Sheet1").Range("B31")

'表示URL
objIE.document.forms(0).inquiry_22.Value = Worksheets("Sheet1").Range("B32")

'申告内容
objIE.document.forms(0).inquiry_24.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_25")(0).selectedIndex = 28


'お問い合わせ3

'デバイス
objIE.document.getElementsByName("inquiry_27")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_31")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_32.Value = Worksheets("Sheet1").Range("B33")


'タイトル1
objIE.document.forms(0).inquiry_33.Value = Worksheets("Sheet1").Range("B34")

'説明文1
objIE.document.forms(0).inquiry_34.Value = Worksheets("Sheet1").Range("B35")

'表示URL
objIE.document.forms(0).inquiry_35.Value = Worksheets("Sheet1").Range("B36")

'申告内容
objIE.document.forms(0).inquiry_37.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_38")(0).selectedIndex = 28


'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")


'IE(InternetExplorer)を表示する
objIE.Visible = True

'指定したURLのページをIEで起動する
objIE.navigate "https://forms.business.yahoo.co.jp/webform/Inquiry/InquiryTop?inquiry_type=contact_guideline_agency_581"

'完全にページが表示されるまで待機する
timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop



'スポンサードサーチ
objIE.document.getElementsByName("inquiry_0")(0).selectedIndex = True

'デバイス
objIE.document.getElementsByName("inquiry_1")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_5")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_6.Value = Worksheets("Sheet1").Range("C1")


'タイトル1
objIE.document.forms(0).inquiry_7.Value = Worksheets("Sheet1").Range("C2")

'説明文1
objIE.document.forms(0).inquiry_8.Value = Worksheets("Sheet1").Range("C3")

'説明文2
objIE.document.forms(0).inquiry_9.Value = Worksheets("Sheet1").Range("C4")

'申告内容
objIE.document.forms(0).inquiry_11.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_12")(0).selectedIndex = 28


'お問い合わせ2

'デバイス
objIE.document.getElementsByName("inquiry_14")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_18")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_19.Value = Worksheets("Sheet1").Range("C5")


'タイトル1
objIE.document.forms(0).inquiry_20.Value = Worksheets("Sheet1").Range("C6")

'説明文1
objIE.document.forms(0).inquiry_21.Value = Worksheets("Sheet1").Range("C7")

'表示URL
objIE.document.forms(0).inquiry_22.Value = Worksheets("Sheet1").Range("C8")

'申告内容
objIE.document.forms(0).inquiry_24.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_25")(0).selectedIndex = 28


'お問い合わせ3

'デバイス
objIE.document.getElementsByName("inquiry_27")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_31")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_32.Value = Worksheets("Sheet1").Range("C9")


'タイトル1
objIE.document.forms(0).inquiry_33.Value = Worksheets("Sheet1").Range("C10")

'説明文1
objIE.document.forms(0).inquiry_34.Value = Worksheets("Sheet1").Range("C11")

'表示URL
objIE.document.forms(0).inquiry_35.Value = Worksheets("Sheet1").Range("C12")

'申告内容
objIE.document.forms(0).inquiry_37.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_38")(0).selectedIndex = 28




'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")


'IE(InternetExplorer)を表示する
objIE.Visible = True

'指定したURLのページをIEで起動する
objIE.navigate "https://forms.business.yahoo.co.jp/webform/Inquiry/InquiryTop?inquiry_type=contact_guideline_agency_581"

'完全にページが表示されるまで待機する
timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop



'スポンサードサーチ
objIE.document.getElementsByName("inquiry_0")(0).selectedIndex = True

'デバイス
objIE.document.getElementsByName("inquiry_1")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_5")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_6.Value = Worksheets("Sheet1").Range("C13")


'タイトル1
objIE.document.forms(0).inquiry_7.Value = Worksheets("Sheet1").Range("C14")

'説明文1
objIE.document.forms(0).inquiry_8.Value = Worksheets("Sheet1").Range("C15")

'説明文2
objIE.document.forms(0).inquiry_9.Value = Worksheets("Sheet1").Range("C16")

'申告内容
objIE.document.forms(0).inquiry_11.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_12")(0).selectedIndex = 28


'お問い合わせ2

'デバイス
objIE.document.getElementsByName("inquiry_14")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_18")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_19.Value = Worksheets("Sheet1").Range("C17")


'タイトル1
objIE.document.forms(0).inquiry_20.Value = Worksheets("Sheet1").Range("C18")

'説明文1
objIE.document.forms(0).inquiry_21.Value = Worksheets("Sheet1").Range("C19")

'表示URL
objIE.document.forms(0).inquiry_22.Value = Worksheets("Sheet1").Range("C20")

'申告内容
objIE.document.forms(0).inquiry_24.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_25")(0).selectedIndex = 28


'お問い合わせ3

'デバイス
objIE.document.getElementsByName("inquiry_27")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_31")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_32.Value = Worksheets("Sheet1").Range("C21")


'タイトル1
objIE.document.forms(0).inquiry_33.Value = Worksheets("Sheet1").Range("C22")

'説明文1
objIE.document.forms(0).inquiry_34.Value = Worksheets("Sheet1").Range("C23")

'表示URL
objIE.document.forms(0).inquiry_35.Value = Worksheets("Sheet1").Range("C24")

'申告内容
objIE.document.forms(0).inquiry_37.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_38")(0).selectedIndex = 28


'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")


'IE(InternetExplorer)を表示する
objIE.Visible = True

'指定したURLのページをIEで起動する
objIE.navigate "https://forms.business.yahoo.co.jp/webform/Inquiry/InquiryTop?inquiry_type=contact_guideline_agency_581"

'完全にページが表示されるまで待機する
timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop



'スポンサードサーチ
objIE.document.getElementsByName("inquiry_0")(0).selectedIndex = True

'デバイス
objIE.document.getElementsByName("inquiry_1")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_5")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_6.Value = Worksheets("Sheet1").Range("C25")


'タイトル1
objIE.document.forms(0).inquiry_7.Value = Worksheets("Sheet1").Range("C26")

'説明文1
objIE.document.forms(0).inquiry_8.Value = Worksheets("Sheet1").Range("C27")

'説明文2
objIE.document.forms(0).inquiry_9.Value = Worksheets("Sheet1").Range("C28")

'申告内容
objIE.document.forms(0).inquiry_11.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_12")(0).selectedIndex = 28


'お問い合わせ2

'デバイス
objIE.document.getElementsByName("inquiry_14")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_18")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_19.Value = Worksheets("Sheet1").Range("C29")


'タイトル1
objIE.document.forms(0).inquiry_20.Value = Worksheets("Sheet1").Range("C30")

'説明文1
objIE.document.forms(0).inquiry_21.Value = Worksheets("Sheet1").Range("C31")

'表示URL
objIE.document.forms(0).inquiry_22.Value = Worksheets("Sheet1").Range("C32")

'申告内容
objIE.document.forms(0).inquiry_24.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_25")(0).selectedIndex = 28


'お問い合わせ3

'デバイス
objIE.document.getElementsByName("inquiry_27")(0).selectedIndex = True


'コンテンツ不足
objIE.document.getElementsByName("inquiry_31")(0).selectedIndex = 2

'キーワード
objIE.document.forms(0).inquiry_32.Value = Worksheets("Sheet1").Range("C33")


'タイトル1
objIE.document.forms(0).inquiry_33.Value = Worksheets("Sheet1").Range("C34")

'説明文1
objIE.document.forms(0).inquiry_34.Value = Worksheets("Sheet1").Range("C35")

'表示URL
objIE.document.forms(0).inquiry_35.Value = Worksheets("Sheet1").Range("C36")

'申告内容
objIE.document.forms(0).inquiry_37.Value = "てすと"

'地域
objIE.document.getElementsByName("inquiry_38")(0).selectedIndex = 28


End Sub

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降
VBAのIE制御についてのQ&A掲示板

↑エクセルVBAのIE(InternetExplorer)操作で分からない事があればこちらの掲示板よりご質問ください^^

ExcelのVBA初心者入門

↑こちらはExcelのVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

VBAでIE(InternetExplorer)制御の準備

エクセルVBAでIE制御の応用編

こちらでは、エクセルVBAで実際に作成したIE(InternetExplorer)制御ツールをまとめています。自動ログインや情報収集など具体的に解説しています。IE(InternetExplorer)制御をされる方は参考にしてください。

【ダウンロード】IE操作に便利なツール

こちらでは、これまでに紹介したIE(InternetExplorer)操作で便利な機能をツール化しています。無償でダウンロードできますので、目的に合わせたご利用ください。

IEオブジェクトのメソッド・プロパティ

こちらでは、IE(InternetExplorer)オブジェクトのメソッド・プロパティをまとめています。

IE操作に利用されているVBA関数

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたVBA関数をまとめています。

IE操作に利用されているステートメント

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたステートメントをまとめています。ExcelのVBAで基本的な部分になりますので、しっかり理解しましょう。

IE(InternetExplorer)制御のVBAコード

こちらでは、これまでに作成したIE(InternetExplorer)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。

ExcelのVBAで作成した役立つVBAコード

こちらでは、IE(InternetExplorer)制御の利用だけでなく、Excel全般で利用できるVBAコードです。エクセルVBAで役に立つものばかりですので、ご利用ください。

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com