VBAのIE操作で困っています。
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#1 2014年12月8日(月)18時34分 From: B-COMP | 返事 削除 変更 |
| エクセル（VBA)作成で行き詰ってます。対処方法を教えていただきたいです。 セルA1に入っている文字をヤフーで検索して、その虫眼鏡キーワードを取得したいのですが、虫眼鏡キーワードが無い場合、Set objTag = objIE.Document.all("Si1").all.tags("a")で「エラー424のオブジェクトが必要です」というメッセージがでます。虫眼鏡キーワードが無い場合に「虫眼鏡キーワードがありません」というメッセージで終わるにはどうすればよろしいでしょうか？※ 「On Error GoTo myError」などの強制回避的なものは無しでお願いします。 Sub 虫眼鏡() Dim objIE As Object 'ＩＥオブジェクト参照用 Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る Dim objTag As Object Dim n As Integer Dim keyword As String objIE.Visible = True '見えるようにする 'キーワード日本語対応 Set sc = CreateObject("ScriptControl") sc.Language = "Jscript" Set js = sc.CodeObject 'キーワード代入 keyword = js.encodeURIComponent(Range("A1")) 'キーワードで検索 objIE.Navigate "http://search.yahoo.co.jp/search?p=" & keyword '手抜きで2秒待つ(オブジェクトの展開時間を待つ) Application.Wait Time:=Now + TimeValue("00:00:03") Set objTag = objIE.Document.all("Si1").all.tags("a") For n = 0 To objTag.Length - 1 Cells(5 + n, 3) = objTag(n).innerText Next n 'IEを閉じる objIE.Quit Set objIE = Nothing End Sub |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
