Подскажите пожалуйста можно ли вопше создать макрос, что бы при действии которого эксель загружал скажем в ту же самую папку где находится сам=) файл екселя с сайта? и если да то как? П.С. название загружаемого файла всегда одинаковое
Подскажите пожалуйста можно ли вопше создать макрос, что бы при действии которого эксель загружал скажем в ту же самую папку где находится сам=) файл екселя с сайта? и если да то как? П.С. название загружаемого файла всегда одинаковоеanger47
Option Explicit 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
Sub DownloadHTTP() Dim ret As Long Dim HTTPfile As String, LocalFile As String
HTTPfile = "http://Ваш сайт/Ваше имя файла" LocalFile = "Путь к файлу на Вашем компьютере"
ret = URLDownloadToFile(0, HTTPfile, LocalFile, 0, 0) MsgBox IIf(ret = 0, "Ошибка!", "Файл успешно скачан.") End Sub
Option Explicit 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
Sub DownloadHTTP() Dim ret As Long Dim HTTPfile As String, LocalFile As String
HTTPfile = "http://Ваш сайт/Ваше имя файла" LocalFile = "Путь к файлу на Вашем компьютере"
ret = URLDownloadToFile(0, HTTPfile, LocalFile, 0, 0) MsgBox IIf(ret = 0, "Ошибка!", "Файл успешно скачан.") End Sub