如何让Excel宏自动以周五日期命名并保存为文本文件

我来帮你排查下问题所在，你的代码里有几个小细节出错了，导致宏无法正常运行：

• 错误1：使用了错误的日期格式化函数
  VBA里没有Text()函数，要格式化日期应该用Format()函数，这是你代码报错的核心原因。
• 错误2：文件名后缀缺少点号
  你写的& "txt"会让文件名变成类似File092724txt，正确的后缀应该是.txt，所以要写成& ".txt"。
• 可选优化：路径中的冗余斜杠
  原路径里的\\可以简化为\，虽然这不会导致报错，但更符合路径书写规范。

修正后的完整宏代码 #

Sub SaveAsFridayText()
    ' 获取当前日期加2天（周三执行即为周五），并格式化为指定格式
    Dim fridayDate As String
    fridayDate = Format(Date + 2, "mdyy") ' 若想要两位数的月/日（比如092724），可改为"mmddyy"
    
    ' 保存为文本文件
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\username\Desktop\Temp\File" & fridayDate & ".txt", _
        FileFormat:=xlText, CreateBackup:=False
        
    ' 关闭工作簿（按需求添加）
    ActiveWorkbook.Close SaveChanges:=False
End Sub

额外说明 #

• 如果你希望日期格式更直观无歧义，比如File20240927.txt，可以把格式化字符串改成"yyyyMMdd"，这样文件名的日期辨识度更高。
• 请确保C:\Users\username\Desktop\Temp\这个路径真实存在，若路径不存在宏会报错，你可以提前手动创建文件夹，或者在代码中添加路径判断与创建的逻辑。

内容的提问来源于stack exchange，提问作者The Gootch