Как автоматически загружать файлы из Internet explorer

Question

Я хотел загрузить файл из Интернета (его файл execl), поэтому я хочу использовать VBA для автоматизации всего процесса. У меня есть адрес файла, но я просто хочу его загрузить, а затем сохранить. Другое дело, что его можно открыть только в Internet Explorer, файл не может быть открыт в chrome или firefox.

Answer 1

Используйте функцию URLDownloadToFile API

#If VBA7 Then 
    Private Declare PtrSafe 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 
#Else 
    Private 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 
#End If 
    Sub Demo() 
     URLDownloadToFile 0, _ 
     "http://www.example.com/myworkbook.xlsx", _ 
     "C:\users\me\documents\myworkbook.xlsx", 0, 0 
    End Sub