здравствуйти, скажите такую штуку!!! в этом блоке первая тема называется Избушка формулистов-3 и справа 4 столбца, из которые средние это - ответы и -просмотры в настаящий момент это 563 и 236769 внимание вапрос!!!!! можно эти данные вставить в таблицу эксель и что бы они там сами минялись по ходу их изминения на сайте??? я нашел строки в браузере этих данных, вот они: <td class="forum-column-replies"><span>563</span></td> <td class="forum-column-views"><span>236769</span></td>
я попробавал нажать данные - вставить из интирнета, там ввел сайт этот и окей, он мне весь сайт пиритащил в таблицу, а мне нужны цифри только, памагите как написать нужную ссылку? или вообще как это делаетса?
Делаете автообновляемый веб-запрос на отдельном (втором) листе Потом этот второй лист можно будет скрыть На первый лист, в нужные ячейки, подтягиваете значение формулами Например, формула ВПР(), которая сможет найти нужную строку в результатах запроса
Можно и конкретное значение Если много разных форумов, - проще макрос написать Не видя исходных данных (реальные ссылки на форумы), вряд ли вам кто поможет с решением Что для одного форума подойдет, - может для других не подойти
Игорь,я думал там проще, главное нужную строку выбрать надо.. вот например для данного форума как вставить макросом? можете помочь написать? а дальше я сам попробую отредактировать под другие форумы, а то меня заблакировали што у меня ник длинный, а ссылку если отправлю на форум чей-то то вабще забанят пожизненно
Sub ReadHtml()
Dim S As String, TR, Html As String
S = GetHTTPResponse("http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=list&FID=1")
TR = Split(S, "<tr")
Html = ""
For n = 1 To UBound(TR)
If InStr(1, TR(n), "Избушка формулистов-3", vbTextCompare) > 0 Then
Html = TR(n)
Exit For
End If
Next
If Html = "" Then Exit Sub
Set RegExp = CreateObject("VBScript.RegExp")
RegExp.Global = True
RegExp.IgnoreCase = True
RegExp.Pattern = "\r"
Html = RegExp.Replace(Html, "")
RegExp.Pattern = "\n"
Html = RegExp.Replace(Html, "")
RegExp.Pattern = ">\s+<"
Html = RegExp.Replace(Html, "><")
RegExp.Pattern = "<td class=""forum\-column\-replies""><span>(\d+)</span></td>" & _
"<td class=""forum\-column\-views""><span>(\d+)</span></td>"
Set oMatches = RegExp.Execute(Html)
If oMatches.Count > 0 Then
replies = Val(oMatches(0).SubMatches(0))
views = Val(oMatches(0).SubMatches(1))
End If
Set RegExp = Nothing
End Sub
Function GetHTTPResponse(ByVal sURL As String)
GetHTTPResponse = ""
On Error Resume Next
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
.Open "GET", sURL, False
.setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
.send
GetHTTPResponse = .responseText
End With
Set oXMLHTTP = Nothing
End Function