質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

1回答

1167閲覧

IEである表示がでたら処理を飛ばすVBA

kazupop

総合スコア31

VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2017/07/10 09:08

###前提・実現したいこと
検索がヒットしなかった場合に次の処理に移るようにしたい。

###発生している問題・エラーメッセージ
エラーメッセージは出ません。
オブジェクトはこのプロパティまたはメソッドをサポートしていません。

###該当のソースコード

html

1<section id="main_contents" style="width: 654px;"> 2 <div> 3 <p> 4 ヒットなし 5 </p> 6 </div> 7中略 </section> 8

VBA

1 Dim objIE As InternetExplorer 2 Dim objTag As Object 3 4For Each objTag In objIE.document.getElementByID("main_contents") 5 6 If InStr(objTag.outerHTML, "ヒットなし") = 0 Then 7 8 ’処理 9 10 End if 11Next

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報
Excel 2007

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

まず getElementById はシングルノードを返す関数ですので For Each で回す事は出来ません。やるのであれば

vbs

1For Each objTag In objIE.document.getElementByID("main_contents").Children

かと思います。ただ、この「ヒットなし」がユニークな文字列(他を含まない様な物)なのであれば単純に

vbs

1If InStr(objIE.document.getElementByID("main_contents").TextContent, "ヒットなし") != -1 Then 2 ' 処理 3End If

で良いかと思います。

投稿2017/07/10 09:18

mattn

総合スコア5030

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問