Question

我正在尝试自动编辑每周报告的链接。

每周运行一次报告，其中使用6个不同的工作簿来提供合并的视图。每周都会更新数据，因此需要更新链接。我已经使用下面的宏工具记录了下面的宏，但需要它是动态的，每周更改引用。

即在下面，我希望根据合并表中的单元格引用更改周数。因此对于接下来的一周，第二周将是第三周，而第三周将成为第四周。

例如，在本周。 A1 =第3周，A2第4周。

sqlite> .table

接下来的一周，我将更新：A1：第4周，A2：第5周。

sqlite> DROP TABLE <table>;

Answer 1

这是您要查找的内容的初步解释。...可能会误解了，所以请告诉我

Sub Macro2()

    Dim num1 As Long
    Dim num2 As Long
    Dim link1 As String
    Dim link2 As String

    ' enter your sheet name that has the A1 & A2 cells
    With ThisWorkbook.Worksheets("enter your sheet name")
        num1 = .Range("A1").Value
        num2 = .Range("A2").Value
    End With

    ChDir "X:\XXXXX\XXXXX\XXXXX\XXXXX\Week " & num2

    link1 = "X:\XXXXX\XXXXX\XXXXX\XXXXX\Week X\XXXXX Week X.xlsx"
    link2 = "M:\XXXXX\XXXXX\XXXXX\XXXXX\Week X\XXXXX Week X.xlsx"

    link1 = Replace(link1, "Week X", "Week " & num1)
    link2 = Replace(link2, "Week X", "Week " & num2)

    ActiveWorkbook.ChangeLink Name:=link1, NewName:=link2, Type:=xlExcelLinks


End Sub

根据单元格值自动更新URL的宏

1 个答案: