Копировать данные ячеек в input-поля открытой страниц сайта. - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать данные ячеек в input-поля открытой страниц сайта. (Макросы/Sub)

Копировать данные ячеек в input-поля открытой страниц сайта.

ЗахаровСергей

Дата: Четверг, 02.04.2015, 08:24 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003

Цитата KSV, 01.04.2015 в 23:47, в сообщении № 20

так без заморочками - это как?

Видно торопился, печатал и не заметил как допустил ошибку. Естественно подразумевается "с заморочками".

Цитата KSV, 01.04.2015 в 23:47, в сообщении № 20

(у меня это работает, но на "простом" примере, т.е. я просто создал страничку с твоим кодом и успешно эмулировал клик на кнопке "go". адрес странички могу написать - сам попробуешь)

Если не сложно, скинь.

Цитата KSV, 01.04.2015 в 23:47, в сообщении № 20

но для этого тебе нужно показать ее предка, которого можно идентифицировать...

Этого предка я найти не могу. Всё что в хедере на веб странице расположено внутри <script> </script>, нет ничего похожего на "fl" и "go". Где его искать (предка) не знаю.

Ответить

KSV

Дата: Четверг, 02.04.2015, 10:48 | Сообщение № 22

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

вот, но это врядли чем тебе поможет (только чтобы убедиться, что код рабочий)

чтобы двигаться дальше, нужно понять, в чем именно у тебя проблема? (не можешь получить объект go, или go успешно получаешь, клик эмулируешь, но войти не можешь, например потому, что не в те поля пишешь логин и пароль)
не видя html-код, можно только гадать...
1. в твоем коде Set he = WebBrowser.document.body.all("fl")("go") выдает ошибку?
2. если нет, вставь после нее MsgBox he.outerhtml и напиши, что выдаст.

Цитата ЗахаровСергей, 02.04.2015 в 08:24, в сообщении № 21

нет ничего похожего на "fl" и "go"

не нужно искать похожее на fl и go, просто покажи тэги (полностью сохраняя структуру), в которые заключена твоя ссылка <a title="" class="menu_blue" ... onclick="document.fl.go.click()">
[p.s.]хотя, конечно, лучше увидеть полный html-код этой страницы, а потом уже решать, как действовать...

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

doober

Дата: Четверг, 02.04.2015, 12:19 | Сообщение № 23

Группа: Друзья

Ранг: Ветеран

Сообщений: 947

Репутация: 323 ±

Замечаний: 0% ±

Excel 2010

Цитата

Где его искать (предка) не знаю.

Скрипт создает фрейм с формой отправки.
Будет ссылка-будет решение.
Без ссылки на этом ресурсе помогают.

Ответить

ЗахаровСергей

Дата: Четверг, 02.04.2015, 14:59 | Сообщение № 24

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003

Цитата doober, 02.04.2015 в 12:19, в сообщении № 23

Без ссылки на этом ресурсе помогают.

Я сначала подумал, что там за деньги помогают. Наверное, без эксрасенсов никак.

Цитата KSV, 02.04.2015 в 10:48, в сообщении № 22

вот, но это врядли чем тебе поможет (только чтобы убедиться, что код рабочий)

Нажимаю "открыть спойлер" - ничего не происходит.

Цитата KSV, 02.04.2015 в 10:48, в сообщении № 22

1. в твоем коде Set he = WebBrowser.document.body.all("fl")("go") выдает ошибку?

Пишет: Run-time error 91:
Object variable or With block variable not set.
Нажимаю Debug и желтым подсвечивается именно эта строка: Set he = WebBrowser.Document.body.all("fl")("go")

А если писать так:
[vba]

Код

Set he = WebBrowser.Document.body.all("fl")
Set he = WebBrowser.Document.body.all("go")
he.Click

[/vba]
то ошибка таже самая, но жёлтым уже подсвечивается he.Click

Если так: [vba]

Код

Set he = WebBrowser.Document.body.all("fl")
Set he = WebBrowser.Document.body.all("go")
MsgBox he.outerhtml
he.Click

[/vba]
то подсвечивается: MsgBox he.outerhtml

Ответить

KSV

Дата: Четверг, 02.04.2015, 18:29 | Сообщение № 25

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

ну, понятно. ты не можешь получить кнопку go.
нужно видеть полный html-код страницы, иначе сказать сложно...
"в вакууме" все работает (страница сделана из предоставленного тобой кода, только стили добавил, чтоб визуально было видно форму и кнопку)

Цитата ЗахаровСергей, 02.04.2015 в 14:59, в сообщении № 24

Нажимаю "открыть спойлер" - ничего не происходит.

как-то ты все "неправильно" делаешь, что у тебя даже спойлер не открывается...

вот, без спойлера
[vba]

Код

Private Sub Test()
     Dim he  As Object

     With CreateObject("InternetExplorer.Application")
         .Visible = True
         .Navigate "http://sagittarius.pro/test_fl.go"
         Do While .ReadyState <> 4
             DoEvents
         Loop

         Set he = .document.body.all("fl")("go")
         he.Click
     End With
End Sub

[/vba]

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

ЗахаровСергей

Дата: Воскресенье, 05.04.2015, 17:13 | Сообщение № 26

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003

Цитата KSV, 02.04.2015 в 18:29, в сообщении № 25

вот, без спойлера

KSV, да так у меня работает.

Тут по ходу дела ещё вопросик назрел: когда на веб-странице нужно данные в поля input вводить - с этим всё пока ясно, а вот когда в поле

нужно ввести информацию, то здесь уже не получается. Конкретно вот здесь: <a class="link" target="_blank" href="http://u.to/iwwV" title="http://kad.arbitr.ru/" rel="nofollow">http://kad.arbitr.ru/</a> <br /> [vba]<div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');"><textarea value="" placeholder="название, ИНН или ОГРН"></textarea></div></div>[/vba]</span></div>
<script type="text/javascript">$('div.msg_t:last').html($('div.msg_t:last').html().replace(/\[spoiler\]/ig,'<div class="spoilerMessage"><a href="javascript://" onclick="$(\'.spoiler_139658\').slideToggle(\'normal\');">[ Spoiler ]</a><br><span class="spoiler_139658" style="display:none;padding-top:5px">')); tags();</script>
 
 

<div style="display:none;" class="FiOtv"><span class="mes"><span class="ucoz-forum-post" id="ucoz-forum-post-139658" edit-url=""><div class="bbQuoteBlock"><div class="bbQuoteName" style="padding-left:5px;font-size:7pt"><b>Цитата</b> <span class="qName">KSV, <a class="link" href="http://www.excelworld.ru/forum/10-16555-139303-16-1427988548" rel="nofollow" target="_blank">02.04.2015 в 18:29, в сообщении № 25</a></span></div><div class="quoteMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">вот, без спойлера </div></div> <br /> KSV, да так у меня работает. <br /><br /> Тут по ходу дела ещё вопросик назрел: когда на веб-странице нужно данные в поля input вводить - с этим всё пока ясно, а вот когда в поле <textarea> нужно ввести информацию, то здесь уже не получается. Конкретно вот здесь: <a class="link" target="_blank" href="http://u.to/iwwV" title="http://kad.arbitr.ru/" rel="nofollow">http://kad.arbitr.ru/</a> <br /> [vba]<div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');"><textarea value="" placeholder="название, ИНН или ОГРН"></textarea></div></div>[/vba]</span></span><span class="name"><a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-13945', 'up13945', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;">ЗахаровСергей</a></span></div>

<br><br><div class="edited">Сообщение отредактировал <span class="editedBy">Serge_007</span> - <span class="editedTime">Понедельник, 06.04.2015, 08:12</span></div></td></tr>
<tr><td class="postBottom" align="center"> </td><td class="postBottom">
 <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tbody><tr><td><a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-13945', 'up13945', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;"><img alt="" style="margin:0;padding:0;border:0;" src="/button/p_profile.gif" title="Профиль пользователя" /></a>    </td><td style="padding-right: 15px;" align="right">

<script type="text/javascript"> 
function checkajax139658(){ 
forms=document.getElementsByTagName('form'); 
for(f=0;f<forms.length;f++){ 
if(forms[f].id=='frm981'){ 
if(repval=='minus'){document.getElementById('a1').checked='true';
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=null; 
clearInterval(ajaxtime);} 
else{document.getElementById('a2').checked='true';
forms[f].reason.value='СПАСИБО' 
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=setTimeout(function() {window.location.reload();}, 1000);
clearInterval(ajaxtime);}}}} 
</script>

</td><td align="right" nowrap="nowrap" width="2%"><a href="#top"><img style="border: medium none;" alt="" src="http://excelworld.ru/button/p_down.gif"></a><a class="goOnTop" href="javascript:scroll(0,0);"><img alt="" style="margin:0;padding:0;border:0;" src="/button/p_up.gif" title="Вверх" /></a> </td></tr> </tbody></table></td></tr></tbody></table> <a class="postUser" href="javascript://" rel="nofollow" onclick="emoticon('ЗахаровСергей,');return false;">Ответить</a>

<div style="display: none;"><div class="themeo"><fieldset><legend>Сообщение</legend><span class="ucoz-forum-post" id="ucoz-forum-post-139658" edit-url=""><div class="bbQuoteBlock"><div class="bbQuoteName" style="padding-left:5px;font-size:7pt"><b>Цитата</b> <span class="qName">KSV, <a class="link" href="http://www.excelworld.ru/forum/10-16555-139303-16-1427988548" rel="nofollow" target="_blank">02.04.2015 в 18:29, в сообщении № 25</a></span></div><div class="quoteMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">вот, без спойлера </div></div> <br /> KSV, да так у меня работает. <br /><br /> Тут по ходу дела ещё вопросик назрел: когда на веб-странице нужно данные в поля input вводить - с этим всё пока ясно, а вот когда в поле <textarea> нужно ввести информацию, то здесь уже не получается. Конкретно вот здесь: <a class="link" target="_blank" href="http://u.to/iwwV" title="http://kad.arbitr.ru/" rel="nofollow">http://kad.arbitr.ru/</a> <br /> [vba]<div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');"><textarea value="" placeholder="название, ИНН или ОГРН"></textarea></div></div>[/vba]</span></fieldset><hr><fieldset>Автор - <a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-13945', 'up13945', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;"><b>ЗахаровСергей</b></a><br>Дата добавления - <b>05.04.2015</b> в <b>17:13</b></fieldset></div></div></td></tr><tr id="post139661"><td class="postRest1"><table class="postTable" border="0" cellpadding="2" cellspacing="1" width="100%"> 
 <tbody><tr><td class="postTdTop" align="center" width="25%">
 <a class="postUser" href="javascript://" rel="nofollow" onclick="emoticon('[b]doober[/b], ');return false;">
 doober</a></td><td class="postTdTop">
 Дата: Воскресенье, 05.04.2015, 18:00 | <span style="color: rgb(0, 0, 205);"><i>
 Сообщение № <a rel="nofollow" name="139661" class="postNumberLink" href="javascript:;" onclick="prompt('Прямая ссылка к сообщению', 'http://www.excelworld.ru/forum/10-16555-139661-16-1428246022'); return false;">27</a></i></span></td></tr> <tr><td class="postTdInfo" valign="top">
 <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tbody><tr> 
 <td style="width:0%;" valign="top">
 <img title="doober" class="userAvatar" src="/avatar/06/423061.png" border="0">
 </td> 
 <td>
 <div class="postRankName">
 <span style="font-size: 8pt;">Группа: <b>Друзья</b></div>
 <div class="postRankIco"></div> <div class="postUserGroup">
 <span style="font-size: 8pt;">Ранг: <b>Ветеран</b></div>

<div class="numposts"><span style="font-size: 8pt;">Сообщений: </span><span class="unp"><span style="font-size: 8pt;"><b>947</b></span></span></div> 
 
 
 <div class="reputation"><font color="#006400">
 <span style="font-size: 8pt;"> Репутация: </span></font><a title="Смотреть историю репутации" class="repHistory" href="javascript:;" rel="nofollow" onclick="new _uWnd('Rh', ' ', -400, 250, { closeonesc:1, maxh:300, minh:100 }, { url:'/index/9-5710'}); return false;"> 
 <span style="font-size: 8pt;"><b>323</b></span></a> <a class="reputationDo" title="Изменить репутацию" href=""> 
 <b>±</b></span></a>
 
  
 <div class="statusBlock"><span style="font-size: 8pt;">Замечаний:<a class="banPercent" title="Смотреть историю замечаний" href="javascript:;" rel="nofollow" onclick="new _uWnd('Bh',' ',400,250,{autosize:1,closeonesc:1,maxh:300,minh:100},{url:'/index/21-5710'});return false;">
 0%</a>  <a title="Изменить уровень замечаний" class="banDo" href="">±</a> <br><i>
 <span class="statusOffline"><img src=http://www.excelworld.ru/Off.gif ></span></i><br>Excel 2010 </span></div>   </div></div></td> </tr> </tbody></table> </td><td class="posttdMessage" valign="top">
 
 
 <div class="msg_t"><span class="ucoz-forum-post" id="ucoz-forum-post-139661" edit-url="">Там все просто <br /> [vba]<div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');"> <br />     For Each he In WebBrowser.Document.getElementsByTagName("textarea") <br />         placeholder = he.getAttribute("placeholder") <br />         If placeholder = "название, ИНН или ОГРН" Then <br />             he.setAttribute "value", "Надо всета-ки почитать азы работы с DOM" <br />         End If <br />     Next</div></div>[/vba]</span></div>
<script type="text/javascript">$('div.msg_t:last').html($('div.msg_t:last').html().replace(/\[spoiler\]/ig,'<div class="spoilerMessage"><a href="javascript://" onclick="$(\'.spoiler_139661\').slideToggle(\'normal\');">[ Spoiler ]</a><br><span class="spoiler_139661" style="display:none;padding-top:5px">')); tags();</script>
 
 

<div style="display:none;" class="FiOtv"><span class="mes"><span class="ucoz-forum-post" id="ucoz-forum-post-139661" edit-url="">Там все просто <br /> [vba]<div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');"> <br />     For Each he In WebBrowser.Document.getElementsByTagName("textarea") <br />         placeholder = he.getAttribute("placeholder") <br />         If placeholder = "название, ИНН или ОГРН" Then <br />             he.setAttribute "value", "Надо всета-ки почитать азы работы с DOM" <br />         End If <br />     Next</div></div>[/vba]</span></span><span class="name"><a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-5710', 'up5710', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;">doober</a></span></div>

<script type="text/javascript"> 
function checkajax139661(){ 
forms=document.getElementsByTagName('form'); 
for(f=0;f<forms.length;f++){ 
if(forms[f].id=='frm981'){ 
if(repval=='minus'){document.getElementById('a1').checked='true';
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=null; 
clearInterval(ajaxtime);} 
else{document.getElementById('a2').checked='true';
forms[f].reason.value='СПАСИБО' 
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=setTimeout(function() {window.location.reload();}, 1000);
clearInterval(ajaxtime);}}}} 
</script>

<div style="display: none;"><div class="themeo"><fieldset><legend>Сообщение</legend><span class="ucoz-forum-post" id="ucoz-forum-post-139661" edit-url="">Там все просто <br /> [vba]<div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');"> <br />     For Each he In WebBrowser.Document.getElementsByTagName("textarea") <br />         placeholder = he.getAttribute("placeholder") <br />         If placeholder = "название, ИНН или ОГРН" Then <br />             he.setAttribute "value", "Надо всета-ки почитать азы работы с DOM" <br />         End If <br />     Next</div></div>[/vba]</span></fieldset><hr><fieldset>Автор - <a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-5710', 'up5710', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;"><b>doober</b></a><br>Дата добавления - <b>05.04.2015</b> в <b>18:00</b></fieldset></div></div></td></tr><tr id="post139664"><td class="postRest2"><table class="postTable" border="0" cellpadding="2" cellspacing="1" width="100%"> 
 <tbody><tr><td class="postTdTop" align="center" width="25%">
 <a class="postUser" href="javascript://" rel="nofollow" onclick="emoticon('[b]ЗахаровСергей[/b], ');return false;">
 ЗахаровСергей</a></td><td class="postTdTop">
 Дата: Воскресенье, 05.04.2015, 18:55 | <span style="color: rgb(0, 0, 205);"><i>
 Сообщение № <a rel="nofollow" name="139664" class="postNumberLink" href="javascript:;" onclick="prompt('Прямая ссылка к сообщению', 'http://www.excelworld.ru/forum/10-16555-139664-16-1428249331'); return false;">28</a></i></span></td></tr> <tr><td class="postTdInfo" valign="top">
 <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tbody><tr> 
 <td style="width:0%;" valign="top">
 </td> 
 <td>
 <div class="postRankName">
 <span style="font-size: 8pt;">Группа: <b>Пользователи</b></div>
 <div class="postRankIco"></div> <div class="postUserGroup">
 <span style="font-size: 8pt;">Ранг: <b>Новичок</b></div>

<div class="numposts"><span style="font-size: 8pt;">Сообщений: </span><span class="unp"><span style="font-size: 8pt;"><b>14</b></span></span></div> 
 
 
 <div class="reputation"><font color="#006400">
 <span style="font-size: 8pt;"> Репутация: </span></font><a title="Смотреть историю репутации" class="repHistory" href="javascript:;" rel="nofollow" onclick="new _uWnd('Rh', ' ', -400, 250, { closeonesc:1, maxh:300, minh:100 }, { url:'/index/9-13945'}); return false;"> 
 <span style="font-size: 8pt;"><b>0</b></span></a> <a class="reputationDo" title="Изменить репутацию" href=""> 
 <b>±</b></span></a>
 
  
 <div class="statusBlock"><span style="font-size: 8pt;">Замечаний:<a class="banPercent" title="Смотреть историю замечаний" href="javascript:;" rel="nofollow" onclick="new _uWnd('Bh',' ',400,250,{autosize:1,closeonesc:1,maxh:300,minh:100},{url:'/index/21-13945'});return false;">
 20%</a>  <a title="Изменить уровень замечаний" class="banDo" href="">±</a> <br><i>
 <span class="statusOffline"><img src=http://www.excelworld.ru/Off.gif ></span></i><br>Excel 2003 </span></div>   </div></div></td> </tr> </tbody></table> </td><td class="posttdMessage" valign="top">
 
 
 <div class="msg_t"><span class="ucoz-forum-post" id="ucoz-forum-post-139664" edit-url=""><div class="bbQuoteBlock"><div class="bbQuoteName" style="padding-left:5px;font-size:7pt"><b>Цитата</b> <span class="qName">doober, <a class="link" href="http://www.excelworld.ru/forum/10-16555-139661-16-1428246022" rel="nofollow" target="_blank">05.04.2015 в 18:00, в сообщении № 27</a></span></div><div class="quoteMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">Надо всета-ки почитать азы работы с DOM</div></div> <br /><br /> Полностью согласен. Спасибо огромное!!! А то всё изучаю методом научного тыка. Если бы ещё ссылочку на "азы работы с DOM" (с более ли менее понятным объяснением), то моей радости не будет предела.</span></div>
<script type="text/javascript">$('div.msg_t:last').html($('div.msg_t:last').html().replace(/\[spoiler\]/ig,'<div class="spoilerMessage"><a href="javascript://" onclick="$(\'.spoiler_139664\').slideToggle(\'normal\');">[ Spoiler ]</a><br><span class="spoiler_139664" style="display:none;padding-top:5px">')); tags();</script>
 
 

<div style="display:none;" class="FiOtv"><span class="mes"><span class="ucoz-forum-post" id="ucoz-forum-post-139664" edit-url=""><div class="bbQuoteBlock"><div class="bbQuoteName" style="padding-left:5px;font-size:7pt"><b>Цитата</b> <span class="qName">doober, <a class="link" href="http://www.excelworld.ru/forum/10-16555-139661-16-1428246022" rel="nofollow" target="_blank">05.04.2015 в 18:00, в сообщении № 27</a></span></div><div class="quoteMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">Надо всета-ки почитать азы работы с DOM</div></div> <br /><br /> Полностью согласен. Спасибо огромное!!! А то всё изучаю методом научного тыка. Если бы ещё ссылочку на "азы работы с DOM" (с более ли менее понятным объяснением), то моей радости не будет предела.</span></span><span class="name"><a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-13945', 'up13945', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;">ЗахаровСергей</a></span></div>

</td></tr>
<tr><td class="postBottom" align="center"> </td><td class="postBottom">
 <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tbody><tr><td><a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-13945', 'up13945', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;"><img alt="" style="margin:0;padding:0;border:0;" src="/button/p_profile.gif" title="Профиль пользователя" /></a>    </td><td style="padding-right: 15px;" align="right">

<script type="text/javascript"> 
function checkajax139664(){ 
forms=document.getElementsByTagName('form'); 
for(f=0;f<forms.length;f++){ 
if(forms[f].id=='frm981'){ 
if(repval=='minus'){document.getElementById('a1').checked='true';
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=null; 
clearInterval(ajaxtime);} 
else{document.getElementById('a2').checked='true';
forms[f].reason.value='СПАСИБО' 
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=setTimeout(function() {window.location.reload();}, 1000);
clearInterval(ajaxtime);}}}} 
</script>

<div style="display: none;"><div class="themeo"><fieldset><legend>Сообщение</legend><span class="ucoz-forum-post" id="ucoz-forum-post-139664" edit-url=""><div class="bbQuoteBlock"><div class="bbQuoteName" style="padding-left:5px;font-size:7pt"><b>Цитата</b> <span class="qName">doober, <a class="link" href="http://www.excelworld.ru/forum/10-16555-139661-16-1428246022" rel="nofollow" target="_blank">05.04.2015 в 18:00, в сообщении № 27</a></span></div><div class="quoteMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">Надо всета-ки почитать азы работы с DOM</div></div> <br /><br /> Полностью согласен. Спасибо огромное!!! А то всё изучаю методом научного тыка. Если бы ещё ссылочку на "азы работы с DOM" (с более ли менее понятным объяснением), то моей радости не будет предела.</span></fieldset><hr><fieldset>Автор - <a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-13945', 'up13945', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;"><b>ЗахаровСергей</b></a><br>Дата добавления - <b>05.04.2015</b> в <b>18:55</b></fieldset></div></div></td></tr><tr id="post139687"><td class="postRest1"><table class="postTable" border="0" cellpadding="2" cellspacing="1" width="100%"> 
 <tbody><tr><td class="postTdTop" align="center" width="25%">
 <a class="postUser" href="javascript://" rel="nofollow" onclick="emoticon('[b]KSV[/b], ');return false;">
 KSV</a></td><td class="postTdTop">
 Дата: Воскресенье, 05.04.2015, 22:27 | <span style="color: rgb(0, 0, 205);"><i>
 Сообщение № <a rel="nofollow" name="139687" class="postNumberLink" href="javascript:;" onclick="prompt('Прямая ссылка к сообщению', 'http://www.excelworld.ru/forum/10-16555-139687-16-1428262030'); return false;">29</a></i></span></td></tr> <tr><td class="postTdInfo" valign="top">
 <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tbody><tr> 
 <td style="width:0%;" valign="top">
 <img title="KSV" class="userAvatar" src="/avatar/18/765067.png" border="0">
 </td> 
 <td>
 <div class="postRankName">
 <span style="font-size: 8pt;">Группа: <b>Друзья</b></div>
 <div class="postRankIco"></div> <div class="postUserGroup">
 <span style="font-size: 8pt;">Ранг: <b>Ветеран</b></div>

<div class="numposts"><span style="font-size: 8pt;">Сообщений: </span><span class="unp"><span style="font-size: 8pt;"><b>770</b></span></span></div> 
 
 
 <div class="reputation"><font color="#006400">
 <span style="font-size: 8pt;"> Репутация: </span></font><a title="Смотреть историю репутации" class="repHistory" href="javascript:;" rel="nofollow" onclick="new _uWnd('Rh', ' ', -400, 250, { closeonesc:1, maxh:300, minh:100 }, { url:'/index/9-13829'}); return false;"> 
 <span style="font-size: 8pt;"><b>255</b></span></a> <a class="reputationDo" title="Изменить репутацию" href=""> 
 <b>±</b></span></a>
 
  
 <div class="statusBlock"><span style="font-size: 8pt;">Замечаний:<a class="banPercent" title="Смотреть историю замечаний" href="javascript:;" rel="nofollow" onclick="new _uWnd('Bh',' ',400,250,{autosize:1,closeonesc:1,maxh:300,minh:100},{url:'/index/21-13829'});return false;">
 0%</a>  <a title="Изменить уровень замечаний" class="banDo" href="">±</a> <br><i>
 <span class="statusOffline"><img src=http://www.excelworld.ru/Off.gif ></span></i><br>Excel 2013 </span></div>   </div></div></td> </tr> </tbody></table> </td><td class="posttdMessage" valign="top">
 
 
 <div class="msg_t"><span class="ucoz-forum-post" id="ucoz-forum-post-139687" edit-url=""><b>doober</b>, я думаю, ему было нужно немного другое... <br /> вот это: <br /> [vba]<div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">    With WebBrowser.Document <br />         ' textarea получаем напрямую (по ID его предка), не гоняя сравнения в цикле <br />         Set he = .body.all("sug-participants").getElementsByTagName("textarea")(0) <br />         he.Focus ' установка фокуса, в поле ввода, нужна для корректного срабатывания фильтра <br />         he.Value = "ООО ""Победитель""" ' тот, кого ищем <br />         .getElementsByTagName("button")(0).Click ' эмитация клика на кнопке "Найти" <br />     End With</div></div>[/vba]</span></div>
<script type="text/javascript">$('div.msg_t:last').html($('div.msg_t:last').html().replace(/\[spoiler\]/ig,'<div class="spoilerMessage"><a href="javascript://" onclick="$(\'.spoiler_139687\').slideToggle(\'normal\');">[ Spoiler ]</a><br><span class="spoiler_139687" style="display:none;padding-top:5px">')); tags();</script>
 
 

<div style="display:none;" class="FiOtv"><span class="mes"><span class="ucoz-forum-post" id="ucoz-forum-post-139687" edit-url=""><b>doober</b>, я думаю, ему было нужно немного другое... <br /> вот это: <br /> [vba]<div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">    With WebBrowser.Document <br />         ' textarea получаем напрямую (по ID его предка), не гоняя сравнения в цикле <br />         Set he = .body.all("sug-participants").getElementsByTagName("textarea")(0) <br />         he.Focus ' установка фокуса, в поле ввода, нужна для корректного срабатывания фильтра <br />         he.Value = "ООО ""Победитель""" ' тот, кого ищем <br />         .getElementsByTagName("button")(0).Click ' эмитация клика на кнопке "Найти" <br />     End With</div></div>[/vba]</span></span><span class="name"><a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-13829', 'up13829', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;">KSV</a></span></div>

<br><hr class="signatureHr" align="left" size="1" width="150"><span class="signatureView"><a class="link" href="mailto:ksv.vba@gmail.com">KSV.VBA@gmail.com</a> <br /> Яндекс.Деньги: 410011921213333</span>
</td></tr>
<tr><td class="postBottom" align="center"> </td><td class="postBottom">
 <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tbody><tr><td><a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-13829', 'up13829', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;"><img alt="" style="margin:0;padding:0;border:0;" src="/button/p_profile.gif" title="Профиль пользователя" /></a>  <a href="javascript:;" rel="nofollow" onclick="window.top.location.href='mai'+'lto:'+'ksv'+'.vba@'+'gmail.com';return false;"><img alt="" style="margin:0;padding:0;border:0;" src="/button/p_email.gif" title="E-mail адрес" /></a>  </td><td style="padding-right: 15px;" align="right">

<script type="text/javascript"> 
function checkajax139687(){ 
forms=document.getElementsByTagName('form'); 
for(f=0;f<forms.length;f++){ 
if(forms[f].id=='frm981'){ 
if(repval=='minus'){document.getElementById('a1').checked='true';
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=null; 
clearInterval(ajaxtime);} 
else{document.getElementById('a2').checked='true';
forms[f].reason.value='СПАСИБО' 
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=setTimeout(function() {window.location.reload();}, 1000);
clearInterval(ajaxtime);}}}} 
</script>

<div style="display: none;"><div class="themeo"><fieldset><legend>Сообщение</legend><span class="ucoz-forum-post" id="ucoz-forum-post-139687" edit-url=""><b>doober</b>, я думаю, ему было нужно немного другое... <br /> вот это: <br /> [vba]<div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">    With WebBrowser.Document <br />         ' textarea получаем напрямую (по ID его предка), не гоняя сравнения в цикле <br />         Set he = .body.all("sug-participants").getElementsByTagName("textarea")(0) <br />         he.Focus ' установка фокуса, в поле ввода, нужна для корректного срабатывания фильтра <br />         he.Value = "ООО ""Победитель""" ' тот, кого ищем <br />         .getElementsByTagName("button")(0).Click ' эмитация клика на кнопке "Найти" <br />     End With</div></div>[/vba]</span></fieldset><hr><fieldset>Автор - <a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-13829', 'up13829', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;"><b>KSV</b></a><br>Дата добавления - <b>05.04.2015</b> в <b>22:27</b></fieldset></div></div></td></tr><tr id="post139690"><td class="postRest2"><table class="postTable" border="0" cellpadding="2" cellspacing="1" width="100%"> 
 <tbody><tr><td class="postTdTop" align="center" width="25%">
 <a class="postUser" href="javascript://" rel="nofollow" onclick="emoticon('[b]doober[/b], ');return false;">
 doober</a></td><td class="postTdTop">
 Дата: Воскресенье, 05.04.2015, 23:45 | <span style="color: rgb(0, 0, 205);"><i>
 Сообщение № <a rel="nofollow" name="139690" class="postNumberLink" href="javascript:;" onclick="prompt('Прямая ссылка к сообщению', 'http://www.excelworld.ru/forum/10-16555-139690-16-1428266732'); return false;">30</a></i></span></td></tr> <tr><td class="postTdInfo" valign="top">
 <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tbody><tr> 
 <td style="width:0%;" valign="top">
 <img title="doober" class="userAvatar" src="/avatar/06/423061.png" border="0">
 </td> 
 <td>
 <div class="postRankName">
 <span style="font-size: 8pt;">Группа: <b>Друзья</b></div>
 <div class="postRankIco"></div> <div class="postUserGroup">
 <span style="font-size: 8pt;">Ранг: <b>Ветеран</b></div>

<div class="numposts"><span style="font-size: 8pt;">Сообщений: </span><span class="unp"><span style="font-size: 8pt;"><b>947</b></span></span></div> 
 
 
 <div class="reputation"><font color="#006400">
 <span style="font-size: 8pt;"> Репутация: </span></font><a title="Смотреть историю репутации" class="repHistory" href="javascript:;" rel="nofollow" onclick="new _uWnd('Rh', ' ', -400, 250, { closeonesc:1, maxh:300, minh:100 }, { url:'/index/9-5710'}); return false;"> 
 <span style="font-size: 8pt;"><b>323</b></span></a> <a class="reputationDo" title="Изменить репутацию" href=""> 
 <b>±</b></span></a>
 
  
 <div class="statusBlock"><span style="font-size: 8pt;">Замечаний:<a class="banPercent" title="Смотреть историю замечаний" href="javascript:;" rel="nofollow" onclick="new _uWnd('Bh',' ',400,250,{autosize:1,closeonesc:1,maxh:300,minh:100},{url:'/index/21-5710'});return false;">
 0%</a>  <a title="Изменить уровень замечаний" class="banDo" href="">±</a> <br><i>
 <span class="statusOffline"><img src=http://www.excelworld.ru/Off.gif ></span></i><br>Excel 2010 </span></div>   </div></div></td> </tr> </tbody></table> </td><td class="posttdMessage" valign="top">
 
 
 <div class="msg_t"><span class="ucoz-forum-post" id="ucoz-forum-post-139690" edit-url="">KSV ,какая задача таков и ответ. <br /> Там все элементарно достается POST запросом и без браузера. <br /> Запрос отправляется в формате JSON.</span></div>
<script type="text/javascript">$('div.msg_t:last').html($('div.msg_t:last').html().replace(/\[spoiler\]/ig,'<div class="spoilerMessage"><a href="javascript://" onclick="$(\'.spoiler_139690\').slideToggle(\'normal\');">[ Spoiler ]</a><br><span class="spoiler_139690" style="display:none;padding-top:5px">')); tags();</script>
 
 

<div style="display:none;" class="FiOtv"><span class="mes"><span class="ucoz-forum-post" id="ucoz-forum-post-139690" edit-url="">KSV ,какая задача таков и ответ. <br /> Там все элементарно достается POST запросом и без браузера. <br /> Запрос отправляется в формате JSON.</span></span><span class="name"><a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-5710', 'up5710', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;">doober</a></span></div>

<script type="text/javascript"> 
function checkajax139690(){ 
forms=document.getElementsByTagName('form'); 
for(f=0;f<forms.length;f++){ 
if(forms[f].id=='frm981'){ 
if(repval=='minus'){document.getElementById('a1').checked='true';
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=null; 
clearInterval(ajaxtime);} 
else{document.getElementById('a2').checked='true';
forms[f].reason.value='СПАСИБО' 
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=setTimeout(function() {window.location.reload();}, 1000);
clearInterval(ajaxtime);}}}} 
</script>

<div style="display: none;"><div class="themeo"><fieldset><legend>Сообщение</legend><span class="ucoz-forum-post" id="ucoz-forum-post-139690" edit-url="">KSV ,какая задача таков и ответ. <br /> Там все элементарно достается POST запросом и без браузера. <br /> Запрос отправляется в формате JSON.</span></fieldset><hr><fieldset>Автор - <a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-5710', 'up5710', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;"><b>doober</b></a><br>Дата добавления - <b>05.04.2015</b> в <b>23:45</b></fieldset></div></div></td></tr><tr id="post140302"><td class="postRest1"><table class="postTable" border="0" cellpadding="2" cellspacing="1" width="100%"> 
 <tbody><tr><td class="postTdTop" align="center" width="25%">
 <a class="postUser" href="javascript://" rel="nofollow" onclick="emoticon('[b]ЗахаровСергей[/b], ');return false;">
 ЗахаровСергей</a></td><td class="postTdTop">
 Дата: Пятница, 10.04.2015, 14:36 | <span style="color: rgb(0, 0, 205);"><i>
 Сообщение № <a rel="nofollow" name="140302" class="postNumberLink" href="javascript:;" onclick="prompt('Прямая ссылка к сообщению', 'http://www.excelworld.ru/forum/10-16555-140302-16-1428665811'); return false;">31</a></i></span></td></tr> <tr><td class="postTdInfo" valign="top">
 <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tbody><tr> 
 <td style="width:0%;" valign="top">
 </td> 
 <td>
 <div class="postRankName">
 <span style="font-size: 8pt;">Группа: <b>Пользователи</b></div>
 <div class="postRankIco"></div> <div class="postUserGroup">
 <span style="font-size: 8pt;">Ранг: <b>Новичок</b></div>

<div class="numposts"><span style="font-size: 8pt;">Сообщений: </span><span class="unp"><span style="font-size: 8pt;"><b>14</b></span></span></div> 
 
 
 <div class="reputation"><font color="#006400">
 <span style="font-size: 8pt;"> Репутация: </span></font><a title="Смотреть историю репутации" class="repHistory" href="javascript:;" rel="nofollow" onclick="new _uWnd('Rh', ' ', -400, 250, { closeonesc:1, maxh:300, minh:100 }, { url:'/index/9-13945'}); return false;"> 
 <span style="font-size: 8pt;"><b>0</b></span></a> <a class="reputationDo" title="Изменить репутацию" href=""> 
 <b>±</b></span></a>
 
  
 <div class="statusBlock"><span style="font-size: 8pt;">Замечаний:<a class="banPercent" title="Смотреть историю замечаний" href="javascript:;" rel="nofollow" onclick="new _uWnd('Bh',' ',400,250,{autosize:1,closeonesc:1,maxh:300,minh:100},{url:'/index/21-13945'});return false;">
 20%</a>  <a title="Изменить уровень замечаний" class="banDo" href="">±</a> <br><i>
 <span class="statusOffline"><img src=http://www.excelworld.ru/Off.gif ></span></i><br>Excel 2003 </span></div>   </div></div></td> </tr> </tbody></table> </td><td class="posttdMessage" valign="top">
 
 
 <div class="msg_t"><span class="ucoz-forum-post" id="ucoz-forum-post-140302" edit-url="">Всё работает, спасибо. <br /><br /> А вот по прошлому вопросу пришлось сделать так: <br /><br /> [vba]<div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">Dim WebBrowser As Object <br /> Set WebBrowser = CreateObject("InternetExplorer.Application") <br /> WebBrowser.Visible = True <br /> WebBrowser.Navigate "https:ляляля" <br /> Do While Not (WebBrowser.ReadyState = 4) <br /> DoEvents <br /> Loop <br /><br /> Set he = WebBrowser.Document.body.all("Name") <br />     he.SetAttribute "value", "логин" <br /> Set he = WebBrowser.Document.body.all("Password") <br />     he.SetAttribute "value", "11111111" <br /> Set he = WebBrowser.Document.body.all("submit") <br />     he.Focus <br />     he.Click <br /><br /> If Application.Wait(Now + TimeValue("0:00:10")) Then <br /> ' Здесь я сам кликаю по этой ссылке, а потом в value вставляются данные из ячеек <br /> End If <br /><br />          <br /> Set he = .Document.body.all("votvot1") <br />     he.setAttribute "value", Range("B2") <br /> Set he = .Document.body.all("votvot2") <br />     he.setAttribute "value", Range("B3") <br /> Set he = .Document.body.all("votvot3") <br />     he.setAttribute "value", Range("B4")</div></div>[/vba]</span></div>
<script type="text/javascript">$('div.msg_t:last').html($('div.msg_t:last').html().replace(/\[spoiler\]/ig,'<div class="spoilerMessage"><a href="javascript://" onclick="$(\'.spoiler_140302\').slideToggle(\'normal\');">[ Spoiler ]</a><br><span class="spoiler_140302" style="display:none;padding-top:5px">')); tags();</script>
 
 

<div style="display:none;" class="FiOtv"><span class="mes"><span class="ucoz-forum-post" id="ucoz-forum-post-140302" edit-url="">Всё работает, спасибо. <br /><br /> А вот по прошлому вопросу пришлось сделать так: <br /><br /> [vba]<div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">Dim WebBrowser As Object <br /> Set WebBrowser = CreateObject("InternetExplorer.Application") <br /> WebBrowser.Visible = True <br /> WebBrowser.Navigate "https:ляляля" <br /> Do While Not (WebBrowser.ReadyState = 4) <br /> DoEvents <br /> Loop <br /><br /> Set he = WebBrowser.Document.body.all("Name") <br />     he.SetAttribute "value", "логин" <br /> Set he = WebBrowser.Document.body.all("Password") <br />     he.SetAttribute "value", "11111111" <br /> Set he = WebBrowser.Document.body.all("submit") <br />     he.Focus <br />     he.Click <br /><br /> If Application.Wait(Now + TimeValue("0:00:10")) Then <br /> ' Здесь я сам кликаю по этой ссылке, а потом в value вставляются данные из ячеек <br /> End If <br /><br />          <br /> Set he = .Document.body.all("votvot1") <br />     he.setAttribute "value", Range("B2") <br /> Set he = .Document.body.all("votvot2") <br />     he.setAttribute "value", Range("B3") <br /> Set he = .Document.body.all("votvot3") <br />     he.setAttribute "value", Range("B4")</div></div>[/vba]</span></span><span class="name"><a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-13945', 'up13945', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;">ЗахаровСергей</a></span></div>

<script type="text/javascript"> 
function checkajax140302(){ 
forms=document.getElementsByTagName('form'); 
for(f=0;f<forms.length;f++){ 
if(forms[f].id=='frm981'){ 
if(repval=='minus'){document.getElementById('a1').checked='true';
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=null; 
clearInterval(ajaxtime);} 
else{document.getElementById('a2').checked='true';
forms[f].reason.value='СПАСИБО' 
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=setTimeout(function() {window.location.reload();}, 1000);
clearInterval(ajaxtime);}}}} 
</script>

<div style="display: none;"><div class="themeo"><fieldset><legend>Сообщение</legend><span class="ucoz-forum-post" id="ucoz-forum-post-140302" edit-url="">Всё работает, спасибо. <br /><br /> А вот по прошлому вопросу пришлось сделать так: <br /><br /> [vba]<div class="bbCodeBlock"><div class="bbCodeName" style="padding-left:5px;font-weight:bold;font-size:7pt">Код</div><div class="codeMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">Dim WebBrowser As Object <br /> Set WebBrowser = CreateObject("InternetExplorer.Application") <br /> WebBrowser.Visible = True <br /> WebBrowser.Navigate "https:ляляля" <br /> Do While Not (WebBrowser.ReadyState = 4) <br /> DoEvents <br /> Loop <br /><br /> Set he = WebBrowser.Document.body.all("Name") <br />     he.SetAttribute "value", "логин" <br /> Set he = WebBrowser.Document.body.all("Password") <br />     he.SetAttribute "value", "11111111" <br /> Set he = WebBrowser.Document.body.all("submit") <br />     he.Focus <br />     he.Click <br /><br /> If Application.Wait(Now + TimeValue("0:00:10")) Then <br /> ' Здесь я сам кликаю по этой ссылке, а потом в value вставляются данные из ячеек <br /> End If <br /><br />          <br /> Set he = .Document.body.all("votvot1") <br />     he.setAttribute "value", Range("B2") <br /> Set he = .Document.body.all("votvot2") <br />     he.setAttribute "value", Range("B3") <br /> Set he = .Document.body.all("votvot3") <br />     he.setAttribute "value", Range("B4")</div></div>[/vba]</span></fieldset><hr><fieldset>Автор - <a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-13945', 'up13945', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;"><b>ЗахаровСергей</b></a><br>Дата добавления - <b>10.04.2015</b> в <b>14:36</b></fieldset></div></div></td></tr><tr id="post140324"><td class="postRest2"><table class="postTable" border="0" cellpadding="2" cellspacing="1" width="100%"> 
 <tbody><tr><td class="postTdTop" align="center" width="25%">
 <a class="postUser" href="javascript://" rel="nofollow" onclick="emoticon('[b]doober[/b], ');return false;">
 doober</a></td><td class="postTdTop">
 Дата: Пятница, 10.04.2015, 16:12 | <span style="color: rgb(0, 0, 205);"><i>
 Сообщение № <a rel="nofollow" name="140324" class="postNumberLink" href="javascript:;" onclick="prompt('Прямая ссылка к сообщению', 'http://www.excelworld.ru/forum/10-16555-140324-16-1428671577'); return false;">32</a></i></span></td></tr> <tr><td class="postTdInfo" valign="top">
 <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tbody><tr> 
 <td style="width:0%;" valign="top">
 <img title="doober" class="userAvatar" src="/avatar/06/423061.png" border="0">
 </td> 
 <td>
 <div class="postRankName">
 <span style="font-size: 8pt;">Группа: <b>Друзья</b></div>
 <div class="postRankIco"></div> <div class="postUserGroup">
 <span style="font-size: 8pt;">Ранг: <b>Ветеран</b></div>

<div class="numposts"><span style="font-size: 8pt;">Сообщений: </span><span class="unp"><span style="font-size: 8pt;"><b>947</b></span></span></div> 
 
 
 <div class="reputation"><font color="#006400">
 <span style="font-size: 8pt;"> Репутация: </span></font><a title="Смотреть историю репутации" class="repHistory" href="javascript:;" rel="nofollow" onclick="new _uWnd('Rh', ' ', -400, 250, { closeonesc:1, maxh:300, minh:100 }, { url:'/index/9-5710'}); return false;"> 
 <span style="font-size: 8pt;"><b>323</b></span></a> <a class="reputationDo" title="Изменить репутацию" href=""> 
 <b>±</b></span></a>
 
  
 <div class="statusBlock"><span style="font-size: 8pt;">Замечаний:<a class="banPercent" title="Смотреть историю замечаний" href="javascript:;" rel="nofollow" onclick="new _uWnd('Bh',' ',400,250,{autosize:1,closeonesc:1,maxh:300,minh:100},{url:'/index/21-5710'});return false;">
 0%</a>  <a title="Изменить уровень замечаний" class="banDo" href="">±</a> <br><i>
 <span class="statusOffline"><img src=http://www.excelworld.ru/Off.gif ></span></i><br>Excel 2010 </span></div>   </div></div></td> </tr> </tbody></table> </td><td class="posttdMessage" valign="top">
 
 
 <div class="msg_t"><span class="ucoz-forum-post" id="ucoz-forum-post-140324" edit-url=""><div class="bbQuoteBlock"><div class="bbQuoteName" style="padding-left:5px;font-size:7pt"><b>Цитата</b></div><div class="quoteMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">Тут по ходу дела ещё вопросик назрел:</div></div> <br /> А не выучить ли мне <a class="link" href="http://u.to/4sf8Cg" title="https://ru.wikipedia.org/wiki/Document_Object_Model" rel="nofollow" target="_blank">DOM</a> <br /> Угадал?</span></div>
<script type="text/javascript">$('div.msg_t:last').html($('div.msg_t:last').html().replace(/\[spoiler\]/ig,'<div class="spoilerMessage"><a href="javascript://" onclick="$(\'.spoiler_140324\').slideToggle(\'normal\');">[ Spoiler ]</a><br><span class="spoiler_140324" style="display:none;padding-top:5px">')); tags();</script>
 
 

<div style="display:none;" class="FiOtv"><span class="mes"><span class="ucoz-forum-post" id="ucoz-forum-post-140324" edit-url=""><div class="bbQuoteBlock"><div class="bbQuoteName" style="padding-left:5px;font-size:7pt"><b>Цитата</b></div><div class="quoteMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">Тут по ходу дела ещё вопросик назрел:</div></div> <br /> А не выучить ли мне <a class="link" href="http://u.to/4sf8Cg" title="https://ru.wikipedia.org/wiki/Document_Object_Model" rel="nofollow" target="_blank">DOM</a> <br /> Угадал?</span></span><span class="name"><a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-5710', 'up5710', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;">doober</a></span></div>

<script type="text/javascript"> 
function checkajax140324(){ 
forms=document.getElementsByTagName('form'); 
for(f=0;f<forms.length;f++){ 
if(forms[f].id=='frm981'){ 
if(repval=='minus'){document.getElementById('a1').checked='true';
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=null; 
clearInterval(ajaxtime);} 
else{document.getElementById('a2').checked='true';
forms[f].reason.value='СПАСИБО' 
document.getElementById('submfrm981').click(); 
document.getElementById('sbt981').onclick=setTimeout(function() {window.location.reload();}, 1000);
clearInterval(ajaxtime);}}}} 
</script>

<div style="display: none;"><div class="themeo"><fieldset><legend>Сообщение</legend><span class="ucoz-forum-post" id="ucoz-forum-post-140324" edit-url=""><div class="bbQuoteBlock"><div class="bbQuoteName" style="padding-left:5px;font-size:7pt"><b>Цитата</b></div><div class="quoteMessage" style="border:1px inset;max-height:200px;overflow:auto;height:expression(this.scrollHeight<5?this.style.height:scrollHeight>200?'200px':''+(this.scrollHeight+5)+'px');">Тут по ходу дела ещё вопросик назрел:</div></div> <br /> А не выучить ли мне <a class="link" href="http://u.to/4sf8Cg" title="https://ru.wikipedia.org/wiki/Document_Object_Model" rel="nofollow" target="_blank">DOM</a> <br /> Угадал?</span></fieldset><hr><fieldset>Автор - <a href="javascript:;" rel="nofollow" onclick="window.open('/index/8-5710', 'up5710', 'scrollbars=1,top=0,left=0,resizable=1,width=700,height=375'); return false;"><b>doober</b></a><br>Дата добавления - <b>10.04.2015</b> в <b>16:12</b></fieldset></div></div></td></tr></table></div></div><div class="gDivBottomLeft"></div><div class="gDivBottomCenter"></div><div class="gDivBottomRight"></div>
		<table class="ThrBotTbl" border="0" width="100%" cellspacing="0" cellpadding="0">
			<tr class="ThrBotRow1"><td colspan="2" class="bottomPathBar ThrBotCl11" style="padding-top:2px;">
	<table class="ThrForumBarTbl" border="0" width="100%" cellspacing="0" cellpadding="0">
		<tr class="ThrForumBarRow1">
			<td class="forumNamesBar ThrForumBarCl11" style="padding-top:3px;padding-bottom:5px;">
				<a class="forumBar" href="/forum/">Мир MS Excel</a>  » <a class="forumBar" href="/forum/1">Вопросы и решения</a> » <a class="forumBar" href="/forum/10">Вопросы по VBA</a> » <a class="forumBarA" href="/forum/10-16555-1">Копировать данные ячеек в input-поля открытой страниц сайта.</a> <span class="thDescr">(Макросы/Sub)</span></td><td class="ThrForumBarCl12" >
	
	<script>
	function check_search(s) {
		if ($(s).find('input[type="text"]').val().length< 3) {
			_uWnd.alert('Вы ввели слишком короткий поисковой запрос.','',{w:230,h:80,tm:3000})
			return;
		}
		$(s).submit();
	}
	</script>
	<form id="thread_search_form" onsubmit="check_search(this);return false;" action="/forum/10-16555" method="GET">
		<input class="fastNav" type="submit" value="Ok" id="thread_search_button"><input type="text" name="s" value="" placeholder="Поиск по теме" id="thread_search_field"/>
	</form>
			</td></tr>
	</table></td></tr>
			<tr class="ThrBotRow2"><td class="ThrBotCl21" width="50%">
	<ul class="switches switchesTbl forum-pages">
		<li class="pagesInfo">Страница <span class="curPage">2</span> из <span class="numPages">2</span></li>
		<li class="switch switch-back"><a class="switchBack" href="/forum/10-16555-1" title="Предыдущая">«</a></li> <li class="switch"><a class="switchDigit" href="/forum/10-16555-1">1</a></li>
	<li class="switchActive">2</li> 
	</ul></td><td class="ThrBotCl22" align="right" nowrap="nowrap"><form name="navigation" style="margin:0px"><table class="navigationTbl" border="0" cellspacing="0" cellpadding="0"><tr class="navigationRow1"><td class="fFastNavTd navigationCl11" >
		<select class="fastNav" name="fastnav"><option class="fastNavMain" value="0">Главная страница форума</option><option class="fastNavCat"   value="1">Вопросы и решения</option><option class="fastNavForum" value="2">     Вопросы по Excel</option><option class="fastNavForum" value="27">         Вопросы по Power-надстройкам</option><option class="fastNavForum" value="14">         Вопросы по Excel для Mac</option><option class="fastNavForumA" value="10" selected>     Вопросы по VBA</option><option class="fastNavForum" value="15">         Вопросы по VB, VBS, VB.net</option><option class="fastNavForum" value="4">     Excel и другие приложения</option><option class="fastNavForum" value="23">         Google Docs</option><option class="fastNavForum" value="16">         Word</option><option class="fastNavForum" value="17">         Access</option><option class="fastNavForum" value="19">         Outlook</option><option class="fastNavForum" value="22">         Open Office</option><option class="fastNavForum" value="18">         Power Point</option><option class="fastNavForum" value="24">         1С</option><option class="fastNavForum" value="25">         AutoCad</option><option class="fastNavForum" value="20">         Visio</option><option class="fastNavForum" value="21">         Share Point</option><option class="fastNavForum" value="3">     Готовые решения</option><option class="fastNavCat"   value="8">Работа и общение</option><option class="fastNavForum" value="5">     Неформальное общение</option><option class="fastNavForum" value="6">     Работа / Фриланс</option><option class="fastNavForum" value="7">     Мозговой штурм</option><option class="fastNavCat"   value="11">Работа форума и сайта</option><option class="fastNavForum" value="12">     Вопросы по работе форума и сайта</option><option class="fastNavForum" value="13">     Объявления администрации</option></select>
		<input class="fastNav" type="button" value="Ok" onclick="top.location.href='/forum/'+(document.navigation.fastnav.value!='0'?document.navigation.fastnav.value:'');" />
		</td></tr></table></form></td></tr>
			<tr class="ThrBotRow3"><td class="ThrBotCl31"><div class="fFastLogin" style="padding-top:5px;padding-bottom:5px;"><input class="fastLogBt" type="button" value="Быстрый вход" onclick="loginPopupForm();" /></div></td><td class="ThrBotCl32" align="right" nowrap="nowrap"><form method="post" action="/forum/" style="margin:0px"><table class="FastSearchTbl" border="0" cellspacing="0" cellpadding="0"><tr class="FastSearchRow1"><td class="fFastSearchTd FastSearchCl11" >Поиск: <input class="fastSearch" type="text" style="width:150px" name="kw" placeholder="keyword" size="20" maxlength="60" /><input class="fastSearch" type="submit" value="Ok" /></td></tr></table><input type="hidden" name="a" value="6" /></form></td></tr>
		</table>
		<br><h3 id="top"></h3>
 
 <script type="text/javascript">
document.onkeypress=function(event){
event=event||window.event
if(event.keyCode=='13'||event.keyCode=='10'){$('#sbm').trigger("click")}
}
</script>
 
 <script type="text/javascript"> 
 $('a.threadLink:visited').prepend('<div style="background:#ffcccc; border:2px solid #de9191; margin:2px 4px; float:left; font-size:10px; font-weight:bold; color:#666; width:120px; -moz-border-radius:5px; -webkit-border-radius:5px; border-radius:5px;" align="center">Тема просмотрена</div>'); 
 </script>
 
 <script type="text/javascript" language="javascript"> 
e=document.getElementsByTagName("TD"); 
for(k=15; k<e.length;k++) { 
if(e[k].className=='posttdMessage') { 
s=e[k].innerHTML; 
while (s.indexOf('[p.s.]') != -1){ 
s=s.replace('[p.s.]','<fieldset><legend><font style="font-size: 10px; font-family: Verdana; color: red;">P.S.</font></legend><font style="font-size: 11px; font-family: Verdana; color: red;">'); s=s.replace('[/p.s.]','</font></fieldset>'); 
e[k].innerHTML=s; 
} 
} } 
</script>
 
 
 <script>document.getElementById('allSmiles').parentNode.parentNode.parentNode.onmouseover='';</script>
 
<script type="text/javascript">
 $(document).ready(function(){$('.qName a').attr('target', '_self');});
function Ins(a,b,u,v, id){
if(b!=""){a=a.replace(/[\[\]]/g,"|");paste('[quote='+a+', [url=http://'+location.host+'/forum/'+u+']'+v+'[/url];'+id+']'+b+'[/quote]\n',0);}
else{_uWnd.messageBox('На форуме ЗАПРЕЩЕНО излишнее цитирование (цитирование поста целиком, например) - пункт 5j Правил форума','Внимание!','','',{w:330,h:120,tm:3000});}}
</script>
 
<script type="text/javascript"> 
$('span.forumViewed').each(function (i, g) { 
 $.get($(this).parent().find('a.forum').attr('href'), function (data) { 
 g.innerHTML = '[' + $('td.forumOnlineBar:first', data).html().replace('Гость', '') + ']'; 
 }); 
}); 
</script>
 
 
 
 
 <script type="text/javascript">
 var input = document.getElementById('frF4'),
 parent = input.parentNode,
 select = document.createElement('SELECT');
 
 select.id = input.id;
 select.name = input.name;
 select.options[0] = new Option('Макросы/Sub');
 select.options[1] = new Option('Функции/Function');
 select.options[2] = new Option('Иное/Other');

parent.insertBefore(select, input);
 parent.removeChild(input);
 
 
 function thread_Name(){
 alert('Название темы должно отражать суть проблемы\n\nТемы c названиями\n«ХЕЛП!», «МАКРОС», «РЕШИТЬ ЗАДАЧУ», «ПОМОГИТЕ!», «СРОЧНО!»\nи аналогичными, будут ЗАКРЫВАТЬСЯ или УДАЛЯТЬСЯ\n\nПеред созданием темы ОБЯЗАТЕЛЬНО прочитайте правила форума\n\n');
};

$('#frF3').change(function(e){
 thread_Name();
});
 </script>
 
 
 
 
 
 
 <script type="text/javascript">
 function file_upload(){
 var input = $("#fln1")[0];
 if(input.files[0].size > 512000){
 alert('Выбранный файл не будет приложен к этому сообщению, так как его размер превышает допустимый\n\nМаксимальный размер файла-примера - 500 Кб\n\nПрикладывать к сообщению можно ТОЛЬКО файлы Excel-форматов, желательно - .XLS (97-2003) \n\nФайлы других форматов - только как приложение к файлу-примеру');
 return false;
 }
 return true;
};

$('#fln1').change(function(e){
 file_upload();
});
</script>
 
 
 
 <script type="text/javascript"> 
// Select Code from phpBB3 to uCoz ~ http://www.ucozka.ru/ 
function selectCode(a){ 
var e=a.parentNode.parentNode.getElementsByTagName('code')[0]; 
if(window.getSelection){ 
var s=window.getSelection(); 
if(s.setBaseAndExtent){ 
s.setBaseAndExtent(e,0,e,e.innerText.length-1); 
}else{ 
var r=document.createRange(); 
r.selectNodeContents(e); 
s.removeAllRanges(); 
s.addRange(r);} 
}else if(document.getSelection){ 
var s=document.getSelection(); 
var r=document.createRange(); 
r.selectNodeContents(e); 
s.removeAllRanges(); 
s.addRange(r); 
}else if(document.selection){ 
var r=document.body.createTextRange(); 
r.moveToElementText(e); 
r.select();}} 
// Замена Code на Выделить всё... 
codediv=document.getElementsByTagName('div'); 
for(i=0;i<codediv.length;i++){ 
if(codediv[i].className=="bbCodeBlock"){ 
s=codediv[i].innerHTML; 
s=s.replace(/>Code</g,'>Код: <a href="#" onclick="selectCode(this);return false;">Выделить всё<\/a><').replace('','<code>').replace('','<\/code>'); 
codediv[i].innerHTML=s;}} 
</script>
 
 
 <script type="text/javascript" language="javascript"> 
e=document.getElementsByTagName("TD"); 
for(k=15; k<e.length;k++) { 
if(e[k].className=='posttdMessage') { 
s=e[k].innerHTML; 
while (s.indexOf('[sup]') != -1){ 
 s=s.replace('[sup]','<SUP>'); s=s.replace('[/sup]','</SUP>'); 
e[k].innerHTML=s; } } } 
</script> 
<script type="text/javascript" language="javascript"> 
e=document.getElementsByTagName("TD"); 
for(k=15; k<e.length;k++) { 
if(e[k].className=='posttdMessage') { 
s=e[k].innerHTML; 
while (s.indexOf('[sub]') != -1){ 
 s=s.replace('[sub]','<SUB>'); s=s.replace('[/sub]','</SUB>'); 
e[k].innerHTML=s; } } } 
</script>
 
 
 
<script type="text/javascript"> 
$(document).ready(function () {

}); 
</script>
  
 

<span id="hih" style="display:none"></span>
<script type="text/javascript"> 
$(document).ready(function () { 
var a = "<a href=javascript:// onclick=\"new _uWnd('ajax','Пользователи, посетившие сайт за текущий день','1200','290',{autosize:0,modal: true,close:true,header:true,nomove: false,fixed:true},{url:'/index/62-2'})\">[Полный список]</a>";
$('#hih').load('/index/62-2 li',function(){$(".gTableBody1:last").append('<b>'+$("#hih a").size()+'</b>')});
$('.gTableBody1:last').append("<br><b>Всего посетило зарегистрированных:</b> "); 
});
</script>
 
 
 
 
 <script type="text/javascript"> 
 url_now = location.href.split('/')[4].split('?')[0].split('#')[0].split('-'); 
 url_true = $('a.forumBarA:first').attr('href').split('/')[4].split('-'); 
 if (url_now.length == 3 && url_now[2] != url_true[2]) { 
 $.get($('a.forumBarA:first').attr('href'), function(data) { 
 author = $('td.postTdTop:first a', data); 
 $('td.postTdTop a[text="' + author.text() + '"]').parent().parent().next().find('td:first').each(function() { 
 if ($(this).find('img.userAvatar').length != 0) { 
 $(this).find('img.userAvatar').after('
<b style="color: red;">Автор темы</b>'); 
 } else { 
 $(this).prepend('<b style="color: red;">Автор темы</b>
'); 
 } 
 }); 
 }); 
 } else { 
 author = $('td.postTdTop:first a'); 
 $('td.postTdTop a[text="' + author.text() + '"]').parent().parent().next().find('td:first').each(function() { 
 if ($(this).find('img.userAvatar').length != 0) { 
 $(this).find('img.userAvatar').after('
<b style="color: red;">Автор темы</b>'); 
 } else { 
 $(this).prepend('<b style="color: red;">Автор темы</b>
'); 
 } 
 }); 
 } 
 </script> 
 
 
 
 <script type="text/javascript">
 $(document).ready(function(){
 /*Start DocumentReady*/
 $('div.bbQuoteName').each(function(){
 $(this).html($(this).html().replace(/<b>Quote<\/b>/i,'<b>Цитата <\/b>').replace(':<\/b> (',',').replace(')',' писал(а)):'));
 });
 /*End DocumentReady*/
 });
 </script>
 
 <script type="text/javascript">
$(document).ready(function(){
/*Start DocumentReady*/
$('div.bbCodeName').each(function(){
$(this).html($(this).html().replace('Code','<b>Формула:<\/b>'))
});
/*End DocumentReady*/
});
</script>

<script type="text/javascript" src="http://www.excelworld.ru/script_vbacode.js"></script>
  
 
 
<script type="text/javascript" src="../jquery.formulaExcelHighlighter.init.js"></script>

<script language="javascript">
$('.codeMessage').before('<img src="/Ribbon/images/Eng16x16.png" onclick="switchlang()" title="Перевод / Translate" height="16" width="16" class="cSwitchImage" style="float: left;margin: 4px 3px 0;"">')
var crlang=/(?:^|; )crlang=(\d)/.exec(document.cookie)
if (!crlang){
crlang=1
}else{
crlang=!parseInt(crlang[1])
}
switchlang()
</script>
 
 
 
 <style type="text/css"> 
/* подвал (листы) */
#sheets {
 /*clear:left;*/
 padding:0 0 6px 36px;
 font-family:Calibri,Arial,Helvetica,sans-serif;
 font-size:11pt;
 min-width: 1024px;
 line-height:15px;
 height:16px;
 border-top:1px solid #A6ACB3;
 background-color:#DCE2E8;
}
#sheets ul{
 list-style:none;
 margin:0;
}

#sheets li{
 float:left;
 margin:0 0 0 -11px;
 background:url(/Ribbon/images/sheet_left.png) no-repeat left top;
 padding:0;
 position: relative;
}

#sheets a {
 display:block;
 background:url(/Ribbon/images/sheet_right.png) no-repeat right top;
 margin:0 0 0 10px;
 padding:0 20px 0 0;
 text-decoration:none;
 color:#3B3B3B;
 position:relative;
}

#sheets .current {
 background-image:url(/Ribbon/images/sheet_left_on.png);
 z-index:10;
 margin-top:-1px;
 height:16px;
}

#sheets .current a {
 background-image:url(/Ribbon/images/sheet_right_on.png);
 z-index:20;
 font-weight: bold;
 height:16px;
 padding-top:1px;
}
 
 </style>

</div></div>
<div style="float:left;background:url(/Ribbon/images/sh_bg.gif) repeat-x top;padding:0 13px 0 1px;border-top:1px solid #A6ACB3;">
 <a href=""><img src="/Ribbon/images/sh_01.gif" alt="" width="5" height="7" style="border:0;margin:3px 4px 3px 5px;"></a>
 <a href=""><img src="/Ribbon/images/sh_02.gif" alt="" width="5" height="7" style="border:0;margin:3px 4px 3px 5px;"></a>
 <a href=""><img src="/Ribbon/images/sh_03.gif" alt="" width="5" height="7" style="border:0;margin:3px 4px 3px 5px;"></a>
 <a href=""><img src="/Ribbon/images/sh_04.gif" alt="" width="5" height="7" style="border:0;margin:3px 4px 3px 5px;"></a>
</div>
<div id="sheets">
<ul>
 <li id="sheet1"><a href="http://www.excelworld.ru/">Главная</a></li>
 <li id="sheet2"><a href="http://excelworld.ru/publ/">Excel</a></li>
 <li id="sheet3"><a href="http://excelworld.ru/board/">Готовые решения</a></li>
 <li id="sheet4"><a href="http://www.excelworld.ru/forum/">Форумы</a></li>
 <li id="sheet5"><a href="http://excelworld.ru/load/">Библиотека</a></li>
 <li id="sheet6"><a href="http://excelworld.ru/video/">Видео</a></li>
 <li id="sheet7"><a href="http://excelworld.ru/stuff/">Справочники</a></li>
 <li id="sheet8"><a href="http://excelworld.ru/dir/">Разработчик</a></li>
</ul>
</div>

<script id="top100Counter" type="text/javascript" src="//counter.rambler.ru/top100.jcn?2331776"></script>
<noscript>
<a href="//top100.rambler.ru/navi/2331776/">
<img src="//counter.rambler.ru/top100.cnt?2331776" alt="Rambler's Top100" border="0">
</a>

</noscript>

<script language="javascript"></script>
<script language="javascript1.1"></script>
<script language="javascript1.2"></script>
<script language="javascript1.3"></script><script language="javascript" type="text/javascript"></script>
<noscript><a target="_top" href="http://top.mail.ru/jump?from=1976642">
<img src="http://d9.c2.be.a1.top.mail.ru/counter?js=na;id=1976642;t=130" alt="Рейтинг@Mail.ru" border="0" height="31" width="88"></a></noscript>
<script language="javascript" type="text/javascript"></script>

 
 
<script type="text/javascript">
document.write("<a href='http://www.liveinternet.ru/click' "+
"target=_blank><img src='//counter.yadro.ru/hit?t54.11;r"+
escape(document.referrer)+((typeof(screen)=="undefined")?"":
";s"+screen.width+"*"+screen.height+"*"+(screen.colorDepth?
screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
";"+Math.random()+
"' alt='' title='LiveInternet: показано число просмотров и"+
" посетителей за 24 часа' "+
"border='0' width='88' height='31'><\/a>")
//</script>
 
 
<a href="https://metrika.yandex.ru/stat/?id=19479094&from=informer"
target="_blank" rel="nofollow"><img src="https://informer.yandex.ru/informer/19479094/3_1_FFFFFFFF_EFEFEFFF_0_pageviews"
style="width:88px; height:31px; border:0;" alt="Яндекс.Метрика" title="Яндекс.Метрика: данные за сегодня (просмотры, визиты и уникальные посетители)" class="ym-advanced-informer" data-cid="19479094" data-lang="ru" /></a>

<script type="text/javascript" >
 (function(m,e,t,r,i,k,a){m[i]=m[i]||function(){(m[i].a=m[i].a||[]).push(arguments)};
 m[i].l=1*new Date();k=e.createElement(t),a=e.getElementsByTagName(t)[0],k.async=1,k.src=r,a.parentNode.insertBefore(k,a)})
 (window, document, "script", "https://mc.yandex.ru/metrika/tag.js", "ym");

ym(19479094, "init", {
 clickmap:true,
 trackLinks:true,
 accurateTrackBounce:true
 });
</script>
<noscript><div><img src="https://mc.yandex.ru/watch/19479094" style="position:absolute; left:-9999px;" alt="" /></div></noscript>

 
 <a href="//yandex.ru/cy?base=0&host=http://www.excelworld.ru"><img src="//www.yandex.ru/cycounter?http://www.excelworld.ru" width="88" height="31" alt="Яндекс цитирования" border="0" /></a>

</td></tr>
</tbody></table>
 <script type="text/javascript"> /*
 $('.tips').click(function(){ 
 if($('.tops').css('marginTop') == '-120px' ){ 
 $('.tops').animate({'marginTop':'0px'}); 
 $(this).attr('style','position:absolute; top:2px; right:4px; height:32px; width:32px; border:none; background:url(//ucodes.ru/engine/img/12.png) no-repeat;'); 
 } else { 
 $('.tops').animate({'marginTop':'-120'}); 
 $(this).attr('style',''); 
 $(this).css('background','url(//ucodes.ru/engine/img/11.png) top'); 
 } 
 }); 
 */</script>
 
 <script type="text/javascript">
function openchat(){new _uWnd('chat','Мини-чат',300,100,{align:0,shadow:0,close:1,autosize:1,maxh:500,minh:100,resize:0}, $("#chat").html() )}
</script>
<div style="display:none;" id="chat"><iframe id="mchatIfm2" style="width:100%;height:300px" frameborder="0" scrolling="auto" hspace="0" vspace="0" allowtransparency="true" src="/mchat/"></iframe>
<script>
	function sbtFrmMC991(f) {
		document.querySelector('#mchatBtn').style.display = 'none';
		document.querySelector('#mchatAjax').style.display = '';
		_uPostForm('MCaddFrm', {type:'POST', url:'/mchat/?712854420.26285', } );
	}

function countMessLength() {
		var message = document.querySelector('#MCaddFrm').mcmessage.value;
		var rst = 200 - message.length;
		if (rst < 0) {
			rst = 0;
			message = message.substr(0, 200);
		}
		document.querySelector('#jeuwu28').innerHTML = rst;
	}

var tID7174 = -1;
	var tAct7174 = false;

</td></tr></table>

<table border="0" cellpadding="1" cellspacing="1" width="100%">
<tr><td></td><td align="right">
	<div class="recaptcha-wrapper wait-loader compact"  >
		<div id="recaptcha_mchat_6LfcTCwaAA" class="g-recaptcha" data-sitekey="6LfcTCwaAAAAAFeu9lN8W76rGbvg_EmGBA05vRF3" data-theme="light" data-size="compact" ></div>
		<span data-reset onclick="reReset(this )"></span>
	</div><script type="text/javascript">
		if (window.grecaptcha) {
			$('.g-recaptcha').each(function (index, element) {
				
		if ($(element).is(':empty') && grecaptcha.render) {
			grecaptcha.render(element, {
				sitekey:element.getAttribute('data-sitekey'),
				theme:element.getAttribute('data-theme'),
				size:element.getAttribute('data-size')
			});
		}
	
			});
		}
	</script></td></tr>
</table>

200