自動ログイン 削除
| 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 'お問い合わせ１ '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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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") 'タイトル１ 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
