Скачивание файла из интернета по ссылке

[EducatedFool]

Не это ли случайно искали?
http://excelvba.ru/code/DownloadCSV

[Dexter_M]

Сообщение от EducatedFool

Не это ли случайно искали?
http://excelvba.ru/code/DownloadCSV

Огромное спасибо!!! Именно то, что надо!
только вложенный файл "DownloadCSV.xls" не качается, пишет: "You don't have permission to access /sites/default/files/DownloadCSV.xls on this server."

[EducatedFool]

Исправил ошибку. Теперь файл доступен для скачивания.

[Dexter_M]

Еще раз огромное спасибо!

[alex_sys]

Доброго времени суток!!!
К вопросу скачивания файлов в с сайта АТС: проштудировал приведенные посты, запускал приведенные коды (и точные копии, и с поправкой на изменившуюся адресацию (с шестнадцатеричным куском)), у меня везде выскакивают ошибки о невозможности скачать файлы . На базе вышеизложенного попробовал собрать свою версию, получается следующее:

'=================================== ====================
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(FromPathName, ToPathName) As Boolean
DownLoadFile = URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0
End Function
'=================================== ======================
Function ATS_Report_Download(DL_Date As Date)
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
Dim URL_main As String
URL_main = "https://www.atsenergo.ru/reporting/public/eur/carana_sell_units/"
IE.Navigate URL_main
While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend

Dim year As String, month As String, day As String
day = Mid(Date, 1, 2)
month = Mid(Date, 4, 2)
year = Mid(Date, 7, 4)
Dim DL_URL_By_Day As String
DL_URL_By_Day = URL_main & year & month & day & "/"
IE.Navigate DL_URL_By_Day
While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend

Dim DL_link As String, Full_File_Name As String, File_Name As String, Folder As String
Folder = "D:\Atsenergo\"
Dim n As Integer
n = 0
Set Tag = IE.Document.all
DoEvents
For Each M_IMg In Tag
If M_IMg.className Like "*intab*" Then
n = n + 1
DL_link = M_IMg.FirstChild.href
File_Name = M_IMg.FirstChild.alt
Full_File_Name = Folder & File_Name
DoEvents
If DownLoadFile(DL_link, Full_File_Name) Then
MsgBox "File Download Successfull"
Else
MsgBox "File Download Err"
End If
End If
Next
'IE.Visible = True
IE.Quit
End Function
'==========

Файлы также не качаются, хотя ссылки на них верные
А скачать все-таки можно: при "сборке", еще до организации цикла получилось - но рабочий вариант отдельно не сохранил, а потом было поздно Или возможно скачать только один файл ?
Сейчас заставить работать не получается - не могу понять в чем дело. Help plz!!!