Добрый вечер всем.
Не могу скопировать данные с определенного URL макросом. Вставляется только начало страницы и конец или только текст. Что мне как раз не нужно.
Пользовался вот этим макросом из Интернета...
| Код |
|---|
Sub GetPageText() Dim sAnswer As String, IE As Object,avArr, li as long
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "Мой сайт";
While IE.busy Or (IE.readyState <> 4): DoEvents: Wend
sAnswer = IE.Document.body.innerText
sAnswer = Replace(Replace(sAnswer, Replace(Replace(sAnswer, vbCrLf, Chr(10)), vbNewLine, Chr(10)), Chr(10)), vbLf, Chr(10))
avArr = Split(sAnswer, Chr(10))
for li = 0 to Ubound(avArr)
Cells(li + 1, 1).Value = avArr(li)
Next li
IE.Quit: Set IE = Nothing
End Sub
|
А мне нужно как "дурачку". Открыть IE - перейти на определенный URL - ctrl+a, ctrl+c - перейти в Excel - ctrl+v в ячейку А1 - закрыть браузер.
Кто поможет?
