доступ к IFRAME в VBA - PullRequest
       3

доступ к IFRAME в VBA

0 голосов
/ 10 января 2020

Я пытаюсь сделать следующее. Нажмите на Iframe и затем введите текст в него, используя VBA

enter image description here

, поэтому в основном я пытаюсь просто добавить текст, похожий на изображение выше.

ниже код

appIE.document.frames("ctl00_PlaceHolderMain_ctl00_e522acff_b38a_4e8d_9c7f_484deb53633e_contentIframe").document.querySelector ("RADEDITORSTYLESHEET0").Click
SendKeys "testing"






<div id="ctl00_PlaceHolderMain_ctl00_e522acff_b38a_4e8d_9c7f_484deb53633eCenter" class="reContent" style="height: 15.1667em;">
                                <label for="ctl00_PlaceHolderMain_ctl00_e522acff_b38a_4e8d_9c7f_484deb53633eContentHiddenTextarea" style="display:none;">RadEditor hidden textarea</label><textarea id="ctl00_PlaceHolderMain_ctl00_e522acff_b38a_4e8d_9c7f_484deb53633eContentHiddenTextarea" name="ctl00$PlaceHolderMain$ctl00$e522acff_b38a_4e8d_9c7f_484deb53633e" rows="4" cols="20" style="display:none;"></textarea>
                            <iframe frameborder="0" src="javascript:'<html></html>';" id="ctl00_PlaceHolderMain_ctl00_e522acff_b38a_4e8d_9c7f_484deb53633e_contentIframe" title="Rich text editor with ID ctl00_PlaceHolderMain_ctl00_e522acff_b38a_4e8d_9c7f_484deb53633e" style="width: 100%; height: 100%; margin: 0px; padding: 0px;">Your browser does not support inline frames or is currently configured not to display inline frames.</iframe></div>

1 Ответ

0 голосов
/ 10 января 2020

Я бы сделал что-то подобное, но не предлагал это как ответ, поскольку не могу получить доступ к веб-странице, чтобы попробовать / проверить.

Dim f As MSHTML.HTMLFrameElement
Dim e As MSHTML.IHTMLElement

Set f = appIE.document.frames("ctl00_PlaceHolderMain_ctl00_e522acff_b38a_4e8d_9c7f_484deb53633e_contentIframe")
Set e = f.querySelector("RADEDITORSTYLESHEET0")
e.document.innerHTML = "testing"
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...