添付画像はシーサーブログの新規投稿フォームですが、テキストエリアにタグを入力し赤丸の部位をクリックすると「※タグの登録はありません」のところにテキストが表示される仕組みですが、色々試してもクリックできず
ご教授をお願いします
html一部抜粋-------------------------------------------------------------------------------------
<input name="myform__tag" class="inputtext w120 mr5" type="text" size="" maxlength="255" value="" placeholder="タグの追加" id="myform__tag" />
<div class="tooltip" style="display: none; z-index: 5000;"><ul class="recent_tags"></ul></div>
<input value="タグの追加" class="tag-submit btnmiddle" type="button" />
</div>
<div id="myform__tag_viewer" class="tagLists" style="width:500px;">※タグの登録はありません</div>
---------------------------------------------------------------------------------------------------
<input value="タグの追加" class="tag-submit btnmiddle" type="button" />がボタン部位です
以下、エラーなしですがクリックできません
テキストはワークシートを参照しています
Sub SSB新規投稿()
Dim objSSB As InternetExplorer
Set objSSB = CreateObject("Internetexplorer.Application")
objSSB.Visible = True
objSSB.navigate "http://blog.seesaa.jp/cms/home/index?finished=1& …
'読み込み待ち---------------------------------------------------------
Do While objSSB.Busy = True Or objSSB.readyState < READYSTATE_COMPLETE
DoEvents
Loop
'---------------------------------------------------------------------
Dim SINKI As Object
For Each SINKI In objSSB.document.getElementsByTagName("a")
If SINKI.innerText = "新規投稿" Then
SINKI.Click
Exit For
End If
Next
'読み込み待ち---------------------------------------------------------
Do While objSSB.Busy = True Or objSSB.readyState < READYSTATE_COMPLETE
DoEvents
Loop
'---------------------------------------------------------------------
Sheets("P").Select
Dim FORM As HTMLDocument
Dim TAG As Object
Set FORM = objSSB.document.getElementsByName("article__subject")(0) '記事のタイトル入力
FORM.Value = Range("A11").Value
Set FORM = objSSB.document.getElementsByName("myform__tag")(0) 'タグ入力
FORM.Value = Cells(3, 3).Value
'クリックマクロ------------------------------------------------------------
For Each TAG In objSSB.document.getElementsByTagName("input")
If InStr(TAG.outerHTML, "タグの追加") > 0 Then
TAG.Click
Exit For
End If
Next
'----------------------------------------------------------------------------
Set FORM = objSSB.document.getElementsByName("article__body")(0) '本文入力
FORM.Value = Range("A1").Value
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは
情報が断片なので、動作しない原因は他にもある可能性がありますが・・・
クリックの処理まで正しく動作しているとしても、クリックの処理で、ご提示のHTMLの1行目のinput要素が条件に合うので、これをクリックして抜けているのではないかと推測されます。
<input value="タグの追加" class="tag-submit btnmiddle" type="button" />
「タグの追加」ではなく「tag-submit btnmiddle」で一発クリアでした
簡単でしたw
ハマり込むとなかなか見えてこないものですね
答えではなくてもヒントがどストライクでした
まさに渡りに船
ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
CSSでreadonlyの機能はあり...
-
動画の上に広告をオーバーレイ...
-
javascriptで複数の表示・非表...
-
確認ダイアログを次からは表示...
-
改行をしたいが、<br>と...
-
jQueryで特定のcssプロパティの...
-
swiper
-
「ご処理進めて頂きますようお...
-
switch の範囲指定
-
エクセルで、日付を入力すると...
-
CloseとDisposeの違い
-
エクセルVBAで、MsgBox やInput...
-
VBAでループ内で使う変数名を可...
-
メルカリのメルカードで買い物...
-
Excelシート上のマクロを登録し...
-
VBの質問#if 0 then ってどう...
-
excel スクロールしても常にボ...
-
VBA エンターキーでイベントに...
-
EXCEL VBA マクロ 実行する度に...
-
ACCESS VBAでテーブル内の特定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
確認ダイアログを次からは表示...
-
CSSでreadonlyの機能はあり...
-
formのsubmitを押すとモーダル...
-
折りたたみを全て開いて別ペー...
-
動画の上に広告をオーバーレイ...
-
javascriptで複数の表示・非表...
-
フォームで「パスワード(確認...
-
2回目以降のページロード時には...
-
時間帯によってclass名を変更し...
-
特定の条件のHTML要素を一括で...
-
JavascriptのHTMLクラス表示に...
-
javascriptのエラーで質問です。
-
macかwinか判別しスタイルシー...
-
JavascriptでDom XSSの脆弱性対...
-
jQuery 画面サイズにスライド画...
-
iframe内のスクリプトを親から3...
-
GoogleMapのGeocoderがlocalhos...
-
【html.css.java】営業日カレン...
-
ポップアップのリンク先と閉じ...
-
雪が降るようなスクリプト
おすすめ情報
Formタグの頭から載せるべきでしたね、申し訳ありません。
しかし、なるほど!
ちょっと雲が晴れた感じがします。
添え字で対応できるかな?
帰ったらやってみます!