Wie fügt man dynamisch Links zu Shapes hinzu und lädt die entsprechende CSV-Datei?

Question

Ich habe einen Link wie diese "https://example.com.uk/Download/Report/2017-10-01_successful.csv", und ich kann die CSV-Datei nicht herunterladen.

Ich muss das Datum jeden Tag über diesen Link ändern, um die CSV-Datei herunterzuladen. Also habe ich den folgenden Code ausprobiert, wobei a, b und c die gegebenen Eingaben für ein bestimmtes Datum sind.

Meine Anforderungen sind:

ich diesen Bericht herunterladen möchten, indem Sie den Datumswert innerhalb des Link zu ändern. Mein Code fügt die Links hinzu, kann jedoch keine Daten herunterladen.

Was muss ich tun? Gibt es Bibliotheken, die in Excel VBA referenziert werden müssen?

Hier ist mein Code:

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

Wenn dies nicht das, was stattdessen funktioniert passiert?

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