Спасибо всем кто участвовал.
Я в и-нете поковырял и нашёл одну процедурку (в каком сайте забыл, что-то вроде excelplaneta что ли, не помню). Вообщем видоизменил и получился что надо! По крайнем мере именно то, что мне надо!
А код такой (если кому пригодится)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub GetInformationFromINet()
Dim oHttp As Object
Dim strURL As String
strURL = "здесь необходимо указать адрес сайта, что то вроде http://mail.ru/"
On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
End If
On Error GoTo 0
If oHttp Is Nothing Then
MsgBox "Не удалось инициализировать объект MSXML!"
Exit Sub
End If
oHttp.Open "GET", strURL, False
oHttp.Send
Debug.Print oHttp.ResponseText
Set oHttp = Nothing
MsgBox "Данные успешно импортированы!", vbInformation
End Sub
Автор процедуры специально использовал тип данных "Object" вместо подключения к библиотеке "MSXML2" (т.к. у конечного пользователя может и не быть такой библиотеки). Проверил, работает и без подключения библиотеки. Очень простой код, но рабочий. С unicode нет проблем!
То, что предложил Михаил, в принципе примерно почти тоже самое, правда нужно было там слегка убрать лишнее.
