VBA - необходимо прочитать содержимое файла на сервере

[Sergey_Rozhkov]

Здравствуйте.
Мне необходимо с помощью vba прочитать файл на сервере.
Например, прочитать инфу из файла, находящегося по адресу "http://mysite.com/1.txt" (это пример ссылки!).
Попробовал сделать по аналогии с http://r3code.livejournal.com/125605.html
(получение текущего курса валют), но там посылается xml-запрос и, естественно, создаются соответствующие объекты, которые в моем случае не нужны. Поисковики выдают кучу примеров для VB, а не для vba. Помогите пожалуйста работающим примером!

[doober]

Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Function DownLoadFile(FromName, ToName) As Boolean
    DownLoadFile = URLDownloadToFile(0, FromName, ToName, 0, 0) = 0
End Function

Sub Main()
    link = "http://mysite.com/1.txt"
    FileToLoad = ("C:\1.txt")
            If DownLoadFile(link, FileToLoad) Then
             MsgBox "Скачан файл: " & link
            Else
                MsgBox "Мимо кассы", vbCritical
            End If
End Sub

[Sergey_Rozhkov]

doober, большое спасибо!
Файл я закачать смог, но возможно ли сразу его читать с сервера? Потому что сейчас получается, что нужно сделать 3 действия: закачать, открыть и удалить. Сделать это конечно можно, но нужно придумывать обработку, например, для нехватки дискового пространства...

[Sergey_Rozhkov]

Кстати, вот что:
эта функция как-то странно работает: первый раз она загружает файл нормально, но если файл на сервере изменить, то последующие разы она будет загружать старую версию файла . Перезапустив приложение (у меня это Access), она наконец начинает видеть измененный файл

[Sergey_Rozhkov]

с закачкой старой версии файла разобрался: нужно почистить кэш.
Для этого использовал функцию:

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

[doober]

Этот вариант рабочий,текстовик нормально берет.
Функция взята с сайта EducatedFool

Function GetHTTPResponse(ByVal sURL As String) As String
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", sURL, False
        ' раскомментируйте следующие строки и подставьте верные IP, логин и пароль
        ' если вы сидите за proxy
        ' .setProxy 2, "192.168.100.1:3128"
        ' .setProxyCredentials "user", "password"
        .send
        sHTMLBody = .responseBody
    End With
    For i = 0 To UBound(sHTMLBody)
        GetHTTPResponse = GetHTTPResponse & ChrW(AscW(Chr(AscB(MidB(sHTMLBody, i + 1, 1)))))
    Next
    Pi.Hide
    Set oXMLHTTP = Nothing
End Function

[Sergey_Rozhkov]

Спасибо, отлично срабатывает

Правда я так и не понял: у нас стоит комп, через который все другие компьютеры сети имеют доступ в Интернет. Насколько я понимаю это и есть прокси-сервер. Но я не стал оживлять строчки для этого случая и все-равно файл с интернета был успешно прочитан. Т.е. я не за прокси сижу?