vba - Excel：用于更新另一个宏中的链接的宏

Question

我有一个包含所有电子表格的主文件夹。每周一次，我必须创建新的周文件夹并将所有主文件复制到那里，因此可以每天更新该周的所有报告。在其中一个文件中，我每天都有 7 个宏。Evey 宏除了指向的位置和检索的日期数据几乎相同。每个宏将数据透视表更改为特定日期，例如星期一、星期二等……然后复制所有数据并粘贴到 temp 中。星期一数据到星期一温度等。然后它保存并关闭该温度。文件结构为：

C:\Reports\Weekly Report\Week XX\Monday Report.xls

XX 是当前周数。

我想做的是有一个宏，如果在单元格 A5 中例如 42 将更改星期一宏中的链接

C:\Reports\Weekly Report\Week XX\Monday Report.xls 

至

C:\Reports\Weekly Report\Week 42\Monday Report.xls

这可能吗？

我想提前感谢您的帮助。

Answer 1

Dim weekNr as Integer
Dim fName as Variant

Sheets(YourSheet).Activate
weekNr = Sheets(CurrentSN).Range("A5").Select

fname = Application.GetSaveAsFilename(InitialFileName:="C:\Reports\Weekly Report\Week" & weekNr & "\Monday Report.xls", _
            filefilter:="Excel Files (*.xls), *.xls", _
            Title:="This example copies the ActiveSheet to a new workbook")

Set ActWb = ActiveWorkbook

ActWb .SaveAs fname, FileFormat:=-4143, CreateBackup:=False
ActWb .Close False
Set ActWb = Nothing

对 2000-2003 格式使用文件格式 -4143。