从URL VBA下载excel文件

时间:2017-05-04 10:50:57

标签: excel vba email

我有一个网址,我希望我的宏转到文件链接,从工作表复制并将工作表粘贴到我的父文件中。

所以URL看起来像这样:

https://domainname.com/zyx/abc/123/ BSR_1704.xlsx

BSR_1704每个月都在变化(我在宏观中已经处理过)

    Sub fx()

    Dim filename As String
    Dim newDate: newDate = Format(DateAdd("M", -1, Now), "YYMM")
    Dim firstwb As Workbook



    Set firstwb = ThisWorkbook

    filename = "BSR" & "_" & newDate & ".xlsx"

    firstwb.FollowHyperlink "https://domainname.com/zyx/abc/123/" & filename

    Stop


    End Sub

上面的代码从链接中打开文件,但我似乎无法找出可以将工作表从BSR_1704复制到父文件的代码。

为了完整起见 - 我需要信息的标签也是BSR_1704 .. 你们觉得怎么样?

0 个答案:

没有答案