Vba - скачать все документы с помощью URL-адресов и сохранить как в папку с тем же расширением документа

---

Привет Команда

Интересно, может ли кто-нибудь мне помочь?

Гиперссылка имела другой тип расширения, например .xlsx. xls, pdf, .msg документы, все документы должны быть загружены и сохранены в папке create как один и тот же тип расширения

Не мог бы кто-нибудь сказать мне, пожалуйста, есть ли способ, с помощью которого я могу внести поправки в Кодекс. этот код работает как документ as .xlsx, но другие расширения не могут быть загружены через макрос

В помощь этому-код, который я использую для создания списка файлов.

Что я уже пробовал:

Option Explicit

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

Dim Ret As Long

'~~> This is where the images will be saved. Change as applicable
Const ParentFolderName As String = "\\gssux002\GBS_CHE_GL_TMS\ICV\"
Sub Download_Report()
Dim ws As Worksheet
Dim LastRow As Long, i As Long
Dim Folderpath, strPath As String

Set ws = Sheets("ICV Report")

LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To LastRow

Folderpath = ParentFolderName & ws.Range("A" & i).Value & "\"

If Len(Dir(Folderpath, vbDirectory)) = 0 Then
MkDir Folderpath
End If

strPath = Folderpath & ws.Range("A" & i).Value & i & "*.*"
Ret = URLDownloadToFile(0, ws.Range("H" & i).Value, strPath, 0, 0)

If Ret = 0 Then
ws.Range("I" & i).Value = "File successfully downloaded"
Else
ws.Range("I" & i).Value = "Unable to download the file"
End If

Next i

MsgBox "Completed This process !!!", vbInformation

End Sub[/CODE]

---