VPF::vba как скачать файл из интернета

icepro

Дата 18.3.2009, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 20.11.2006

Репутация: нет
Всего: нет

собственно говоря сабж. и этот сабж нуна в акцес прикрутить. заранее спасибо!

icepro

Дата 18.3.2009, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 20.11.2006

Репутация: нет
Всего: нет

вопрос решен

Код


Option Compare Database

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



Sub SaveFileFromInternet(FromURL As String, ToPathName As String)
Dim Res As Long
Res = URLDownloadToFile(0, FromURL, ToPathName, 0, 0)
  If Res = 0 Then
    MsgBox "ОК!"
  Else
    MsgBox "Ошибка!"
  End If
End Sub



Sub test()
SaveFileFromInternet "http://ya.ru/logo.png", "C:\logo.png"
End Sub

Это сообщение отредактировал(а) icepro - 18.3.2009, 22:07

RinOSpro

Дата 2.9.2009, 12:15 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Всем привет! Может у кого есть пример, как получить html страничку в виде String, не сохраняя ее на диск?

Есть такая функция URLOpenStream, возможно с помощью неё можно, но как ее использовать незнаю... Подскажите плиз!

Akina

Дата 2.9.2009, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Цитата(RinOSpro @ 2.9.2009, 13:15

)

как получить html страничку в виде String, не сохраняя ее на диск?

Читаем справку по MS Internet Transfer Control

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

motorway

Дата 9.9.2009, 18:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 578
Регистрация: 2.3.2008

Репутация: нет
Всего: 0

Если вопрос еще актуален, в редакторе VBA подключаем WinHTTP.dll (Tools - References - Microsoft WinHTTP Services 5.1).

И делаем кнопку:

Код


Sub Кнопка1_Щелчок()
 URL = "http://ya.ru"
  Set Req = New WinHttpRequest
   
    Req.Open "GET", URL, False

    
    Req.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
Req.Send
Dim serverres As String

    serverres = Req.ResponseText
Range("A1").Value = serverres
End Sub

Данные занесутся в ячейку A1

--------------------

Russian Pascal Developer Network - Сеть разработчиков на языке программирования Pascal/Object Pascal
Форум Delphi/Kylix, Free Pascal Compiler/Lazarus, PascalABC.NET
Онлайн-кинотеатр

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »