从网站

时间:2015-08-06 20:29:33

标签: excel vba excel-vba

我想知道我可以从这个代码中得到一些帮助,

我正在尝试从网站下载文件,我使用的代码是

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列并转到下载文件的超链接

麻烦的是我必须手动保存所有文件,因为每次循环它都会在浏览器中打开一个新标签

我正在寻找一种自动关闭标签并下载文件而无需手动保存的方法

0 个答案:

没有答案