Добрый день!
Пишу парсер для сайта rusprofile. Возникла сложность на этапе перехода к странице организации
В перечне тегов данной страницы нет тега с URL страницы организации ("www.rusprofile.ru/id/4539245"), при этом в структуре DOM тег с таким содержанием отображается. Из всего перечисленного делаю вывод, что данный текст является результатом выполнения скрипта.

Вопрос: можно ли каким-либо образом обработать скрипт средствами VBA, чтобы в результате получить искомый URL?

Почему-то не прикрепился адрес страницы.
Прикрепляю
http://www.rusprofile.ru/support/search.html?cx=partner-pub-2023889461799885:1217393034&cof=FORID:10&ie=UTF-8&q=7825045809

Antonariy,

Спасибо!!
Адрес я вставил свой, а что писать вместо "alert(document.forms.length)"

Код скрипта такой:
<script type="text/javascript" src=" http://www.google.ru/jsapi"></script>
<script type="text/javascript">
google.load('search', '1', {language : 'ru'});
function searchLoaded() {
var options = {};
options['adoptions'] = {'cseGoogleHosting': 'iframe'};
var customSearchControl = new google.search.CustomSearchControl(
"partner-pub-2023889461799885:1217393034"
, options);
customSearchControl.setRefinementStyle("link");
customSearchControl.setResultSetSize(google.search.Search.FILTERED_CSE_RESULTSET);
customSearchControl.setMoreAds();
var options = new google.search.DrawOptions();
options.setSearchFormRoot('cse-search-form');
customSearchControl.draw('cse', options);
historyManagement(customSearchControl);
}
function historyManagement(customSearchControl) {
if (customSearchControl.startHistoryManagement(init)) {
customSearchControl.setLinkTarget(
google.search.Search.LINK_TARGET_TOP);
}
}
function init(customSearchControl) {
var num = customSearchControl.getWebSearcher().getNumResultsPerPage();
customSearchControl.execute("7825045809");
}
google.setOnLoadCallback(searchLoaded, true);
</script>

Antonariy,
Еще раз спасибо за помощь, но все-равно не получается)

Public DocumentFactory As HTMLDocument

Public Function GetWebPage(ByVal strURL As String) As HTMLDocument
Set GetWebPage = DocumentFactory.createDocumentFromUrl(strURL, vbNullString)
Do Until GetWebPage.readyState = "complete"
DoEvents
Loop
End Function


Private Sub Form_Load()
Dim x As HTMLDocument
Set DocumentFactory = New HTMLDocument
Set x = GetWebPage(" http://www.rusprofile.ru/support/search.html?cx=partner-pub-2023889461799885:1217393034&cof=FORID:10&ie=UTF-8&q=7825045809")
Debug.Print x.frames(0).document.querySelector(".gsc-table-result tbody tr td[2] div[1] a").href - Пишет Object doesn't support this property or method
End Sub

Библиотека WinHTTP подключена

Shocker.Pro,
Прошу прощения, исправлюсь)

Antonariy,

Огромное Вам спасибо, все работает!!!))))