如何编写Excel动态VBA代码引用名称每日变化的工作簿

问题根因 #

你代码的核心错误是将变量名放在了双引号内部，VBA会将双引号包裹的内容识别为固定文本，不会自动替换为变量存储的日期值。同时直接使用Activate、Select这类依赖活动窗口的方法稳定性差，很容易因为窗口焦点变化报错。

修正方案 #

快速修复原有代码 #

如果你要保留用J2单元格存储日期的逻辑，仅需要修改变量引用方式，不要把变量放在双引号内即可：

' 读取J2日期并转换为和文件名匹配的 日.月.年 格式，避免系统日期格式不匹配的问题
Second_workbook = Format(ThisWorkbook.Range("J2").Value, "dd.mm.yyyy")
' 变量和文件后缀拼接，变量放在引号外部
Windows(Second_workbook & ".xlsx").Activate
Range("A1").Select
ActiveSheet.Paste

更稳定的优化写法（推荐） #

不需要额外在单元格写TODAY()公式，直接在VBA内部生成当日日期，代码可移植性更高，也不依赖活动窗口，不会出现误操作：

Sub 复制数据到当日工作簿()
    Dim srcWb As Workbook, targetWb As Workbook
    Dim targetFileName As String
    
    ' 生成符合命名规则的当日文件名
    targetFileName = Format(Date, "dd.mm.yyyy") & ".xlsx"
    ' 绑定源工作簿和目标工作簿，要求两个工作簿均已打开
    Set srcWb = Workbooks("SameNameWorkbook.xlsx") ' 后缀和实际文件保持一致即可
    Set targetWb = Workbooks(targetFileName)
    
    ' 示例：复制源工作簿第一个工作表的A1到C10区域，粘贴到目标工作簿第一个工作表A1位置
    ' 可根据实际需求修改工作表名、复制区域
    srcWb.Sheets(1).Range("A1:C10").Copy Destination:=targetWb.Sheets(1).Range("A1")
    
    ' 清空剪贴板
    Application.CutCopyMode = False
End Sub

注意事项 #

• 如果你的日期命名规则是月在前日在后，将Format函数的格式参数改为"mm.dd.yyyy"即可
• 运行代码前请确认源工作簿、目标日期命名工作簿均处于打开状态
• 代码中文件后缀（xlsx/xls/xlsm）需要和实际文件的后缀保持一致

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