如何dynamic添加链接到形状并下载相应的CSV文件？

我有这样的链接“ https://example.com.uk/Download/Report/2017-10-01_successful.csv ”，我无法下载CSV文件。

我必须每天通过此链接更改date以下载CSV文件。 所以，我尝试了下面的代码，其中a，b和c是特定date的给定input。

我的要求是：

我想通过更改链接中的date值来下载此报告。 我的代码添加了链接，但无法下载数据。

我需要做什么？ Excel VBA中是否需要引用任何库？

这是我的代码：

Sub Macro2() Range("D14:L14").Select Sheets("RAW_DATA").Select Range("B26").Select a = 2017 b = 10 c = 3 ActiveSheet.Shapes.Range(Array("Rectangle 11")).Select 'Selection.ShapeRange.Item(1).Hyperlink.Delete ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _ "https://example.com.uk/Download/Report/" & a & "-" & b & "-" & c & "_successful.csv" Range("D20").Select Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory:=True Workbooks.Open Filename:= _ "https://example.com.uk/Download/Report/" & a & "-" & b & "-" & c & "_successful.csv" ActiveWindow.Visible = False Windows("2017-10-01_successful.csv").Visible = True 'Windows("ARC_ASC_TEMPLATE_VBA_V3.xlsm").Activate End Sub 

Answer 1

如果这不起作用，反而会发生什么？

 Sub Macro2() Dim wb As Workbook, fName, a, b, c a = 2017 b = 10 c = 3 fName = "https://example.com.uk/Download/Report/" & a & "-" & _ Format(b, "00") & "-" & Format(c, "00") & "_successful.csv" Set wb = Workbooks.Open(Filename:=fName) Debug.Print wb.Name End Sub