我想知道我可以从这个代码中得到一些帮助,
我正在尝试从网站下载文件,我使用的代码是
Public Sub DownloadFile()
Dim weblink As String
weblink = "https://documentflowmanagerus.abcabc.com/DFM_HBTC/Default.aspx?page=RetrDocView.aspx&URN="
Set Rng = Range("A1:A100")
For Each cell In Rng
'test if cell is empty
If cell.Value <> "" Then
link = weblink & cell.Value
ActiveWorkbook.FollowHyperlink Address:=link, NewWindow:=False
End If
Next
End Sub
这段代码工作正常,在A列上有一个循环所有URN号码的列表,
此代码循环通过A列并转到下载文件的超链接
麻烦的是我必须手动保存所有文件,因为每次循环它都会在浏览器中打开一个新标签
我正在寻找一种自动关闭标签并下载文件而无需手动保存的方法