Information From Internet to Excel

Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const INTERNET_OPEN_TYPE_PROXY = 3
Private Const scUserAgent = "VB Project"
Private Const INTERNET_FLAG_RELOAD = &H80000000
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
 
Private Function OpenURL(ByVal sUrl As String) As String
Dim hOpen As Long
Dim hOpenUrl As Long
Dim bDoLoop As Boolean
Dim bRet As Boolean
Dim sReadBuffer As String * 2048
Dim lNumberOfBytesRead As Long
Dim sBuffer As String
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
bDoLoop = True
While bDoLoop
sReadBuffer = vbNullString
bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
Wend
If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
If hOpen <> 0 Then InternetCloseHandle (hOpen)
OpenURL = sBuffer
End Function

Private Function OpenURL1(ByVal sUrl As String) As String
Set TheBrowser = CreateObject("InternetExplorer.Application")
TheBrowser.Visible = True
TheBrowser.Navigate URL:=sUrl
Do
If TheBrowser.ReadyState = 4 Then
TheBrowser.Visible = False
Exit Do
Else
DoEvents
End If
Loop
Set objDoc = TheBrowser.Document
'Stop
strMyPage = objDoc.body.innerHTML
TheBrowser.Quit
Set objDoc = Nothing
Set ie = Nothing
OpenURL1 = strMyPage
End Function

Sub Считываем_с_Internet_Explorer()
 
sUrl = "http://www.yandex.ru/"
OpenURL sUrl
End Sub

Sub Main()
Dim sUrl As String
sUrl = "http://www.yandex.ru"
ActiveDocument.Range.Text = OpenURL(sUrl)
End Sub

Sub Считываем_с_Internet_Explorer()
 
If Tasks.Exists(Name:="Windows Internet Explorer") = False Then Beep 'Exit Sub
 
Dim sUrl As String
sUrl = "http://www.yandex.ru"
ActiveDocument.Range.Text = OpenURL(sUrl)
 
End Sub

While bDoLoop
sReadBuffer = vbNullString
bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
Wend

    Application.ScreenUpdating = True
    Application.ScreenUpdating = False