如何设置Excel在每周日之后打开工作簿时自动按周号保存？

直接用Excel的IF公式无法实现这个需求，因为公式只能进行单元格计算，没法触发创建文件夹、保存工作簿这类文件系统操作。你需要用VBA宏结合工作簿打开事件来完成。

以下是两种可行的实现方案：

方案1：周一至周六打开即保存（每次打开都执行） #

这个方案会在每周日之后（周一到周六）每次打开工作簿时，自动保存到对应周号的文件夹：

1. 打开Excel，按下Alt+F11打开VBA编辑器
2. 在左侧项目栏找到你的工作簿，双击ThisWorkbook
3. 复制粘贴以下代码：

Private Sub Workbook_Open()
    Dim currentWeek As Integer
    Dim saveFolder As String
    Dim basePath As String
    
    ' 替换成你的基础保存路径
    basePath = "C:\Your\Storage\Path\"
    
    ' 以周一为一周第一天，获取当前周号
    currentWeek = DatePart("ww", Date, vbMonday)
    
    ' 构建带周号的文件夹路径
    saveFolder = basePath & "Week_" & currentWeek & "\"
    
    ' 文件夹不存在则创建
    If Dir(saveFolder, vbDirectory) = "" Then
        MkDir saveFolder
    End If
    
    ' 周日不执行保存（仅周日之后的日期触发）
    If Weekday(Date, vbMonday) <> 7 Then
        ThisWorkbook.SaveAs Filename:=saveFolder & ThisWorkbook.Name, FileFormat:=ThisWorkbook.FileFormat
    End If
End Sub

4. 修改basePath为你实际的存储路径，保存工作簿为.xlsm格式（启用宏的格式）

方案2：新周首次打开仅保存一次（避免重复保存） #

如果不想每天打开都重复保存，只在新周第一次打开时执行，可以通过记录上周周号来实现：

Private Sub Workbook_Open()
    Dim currentWeek As Integer
    Dim lastWeek As Integer
    Dim saveFolder As String
    Dim basePath As String
    Dim ws As Worksheet
    
    basePath = "C:\Your\Storage\Path\"
    currentWeek = DatePart("ww", Date, vbMonday)
    
    ' 尝试获取存储周号的隐藏工作表
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets("Settings")
    On Error GoTo 0
    
    ' 若不存在则创建并隐藏
    If ws Is Nothing Then
        Set ws = ThisWorkbook.Worksheets.Add
        ws.Name = "Settings"
        ws.Visible = xlSheetVeryHidden
        ws.Range("A1").Value = "LastWeek"
        ws.Range("B1").Value = currentWeek
    End If
    
    lastWeek = ws.Range("B1").Value
    
    ' 仅当进入新周且当前不是周日时，执行保存
    If currentWeek > lastWeek And Weekday(Date, vbMonday) <> 7 Then
        saveFolder = basePath & "Week_" & currentWeek & "\"
        
        If Dir(saveFolder, vbDirectory) = "" Then
            MkDir saveFolder
        End If
        
        ThisWorkbook.SaveAs Filename:=saveFolder & ThisWorkbook.Name, FileFormat:=ThisWorkbook.FileFormat
        
        ' 更新记录的周号
        ws.Range("B1").Value = currentWeek
    End If
End Sub

注意事项 #

• 必须启用宏才能触发代码执行
• 保存工作簿时选择.xlsm格式，否则宏会丢失
• 周号计算以周一为一周起始，若需要以周日为起始，可修改DatePart的参数为vbSunday

内容的提问来源于stack exchange，提问作者Christian Juhl Olesen