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

将fileformat -4143用于2000-2003格式。

Excel：宏来更新另一个宏中的链接

1 个答案: