アプリ版:「スタンプのみでお礼する」機能のリリースについて

お世話になります。
ExcelのVBAで作成しております。

下記のhtmlがある状態で(1)を変える場合は、
For Each itm In objIE.document.GetElementsByTagName("input")
If itm.ID = "entry_title" Then
itm.Value = "A"
Exit For
End If
Next
で変更できたのですが、(2)(要素)を変更するには、
どうしたらよいでしょうか?

お手数ですが、よろしくお願いいたします。



<input value="(1)" id="entry_title">(2)</input>

A 回答 (1件)

  With objIE.Document.getElementById("entry_title")


    .Value = "A"
    .NextSibling.Data = "B"    '    (1/3択)
    .NextSibling.NodeValue = "B"    '    (2/3択)
    .NextSibling.textContent = "B"    '    (3/3択)
  End With

こんな感じのことでしょうか。
三者択一です。

ご提示のループにはめるなら、
  With objIE.Document.getElementById("entry_title")

  With itm
に換えて
itm.Value = "A"
の位置に挿入します。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!