VBA to Download documents using URLs & Save As to folder

[Kenneth Hobs]

It is best to avoid overwrite or not dialogs.
e.g.
1. Create a temporary folder.
2. SaveAs to that folder.
3. Copy temp folder files to master folder with no prompts but overwrite if they exist.

(2) is where you do your SendKeys() thing. If your note your keyboard presses, no mouse clicks allowed, then SendKeys() can take those actions. Sounds like you know that part.

If you need help with (1) or (2), please post back.

Once you get it working, we can probably skip the IE object. For that kind of thing, we could probably use the sheetfollowhyperlink event:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

Tip: To paste code, do so between code tags. Click the # icon on reply toolbar to insert the code tags easily.

[Satish Raju]

Hi team, can someone help me in this scenario to download files to multiple folders.
Like in the below code how do i change pth for every specific file to specific folder.
Ex: i want to move few files to "OLD" folder, and some files to "NEW" folder some of them to "MODERN" folder.. how can i loop the path as well. Thanks


Sub DownloadFile()
pth = "C:\VBAX"
For Each link In ActiveSheet.Hyperlinks
fname = Split(link.Address, "/")(UBound(Split(link.Address, "/")))
filename = pth & fname
URLDownloadToFile 0, link.Address, filename, 0, 0
Next link
End
End Sub