VBA宏问题：从关闭工作簿复制数据至每日重命名的活动工作簿

你的问题背景 #

我是VBA新手，对很多术语不太了解，请多包涵。我通过录制宏功能得到了如下VBA代码：

Sub CFData()
' CFData Macro

    Sheets("CF Data").Select
    Range("J5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.ClearContents
    Range("B5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Cut
    Range("J5").Select
    ActiveSheet.Paste
    Range("B5").Select
    Workbooks.Open Filename:= _
        "W:\\Shared\Config&Planning\CF Data.xlsx"
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Windows("Template 2105.xlsx").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("CF Data.xlsx").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close
End Sub

我想用该宏将每日自动更新的数据从指定关闭工作簿复制到活动工作簿，该活动工作簿每天会以新名称保存（例如今日为“Template 2105.xlsx”，明日为“Template 2205.xlsx”等）。但录制的宏在选择窗口时无法识别不同的文件名，我知道存在更优的代码写法，但不清楚需要修改哪些部分，恳请提供帮助。

优化后的代码 #

Sub CFData()
    Dim activeWB As Workbook
    Dim cfWB As Workbook
    Dim cfSheet As Worksheet
    Dim targetSheet As Worksheet
    
    ' 保存当前活动工作簿的引用——不管它今天叫什么名字都能精准定位
    Set activeWB = ActiveWorkbook
    ' 指定要操作的目标工作表
    Set targetSheet = activeWB.Sheets("CF Data")
    
    ' 清除J5开始的旧数据区域
    targetSheet.Range("J5", targetSheet.Range("J5").End(xlDown).End(xlToRight)).ClearContents
    
    ' 剪切B5开始的现有数据到J5位置
    With targetSheet.Range("B5").CurrentRegion
        .Cut Destination:=targetSheet.Range("J5")
    End With
    
    ' 打开外部数据工作簿
    Set cfWB = Workbooks.Open(Filename:="W:\Shared\Config&Planning\CF Data.xlsx")
    ' 假设数据在外部工作簿的第一个工作表，若不是请改成对应表名，比如Sheets("DataSheet")
    Set cfSheet = cfWB.Sheets(1)
    
    ' 复制外部数据并仅粘贴值到活动工作簿的B5位置
    cfSheet.Range("A2", cfSheet.Range("A2").End(xlDown).End(xlToRight)).Copy
    targetSheet.Range("B5").PasteSpecial Paste:=xlPasteValues
    
    ' 清理剪贴板并关闭外部工作簿（不保存任何修改）
    Application.CutCopyMode = False
    cfWB.Close SaveChanges:=False
End Sub

关键修改说明 #

• 彻底解决文件名问题：用Set activeWB = ActiveWorkbook保存当前活动工作簿的引用，不管它每天改什么名字，代码都能准确找到它，再也不用硬编码固定文件名了。
• 删掉冗余的Select/Activate：录制宏生成的这些操作不仅啰嗦，还很容易因为窗口切换出错。直接操作工作表和单元格对象，代码运行更快也更稳定。
• 用CurrentRegion智能选数据：Range("B5").CurrentRegion会自动识别B5周围的连续数据块，比反复用End(xlDown)/xlToRight靠谱多了——不会因为中间有空行导致漏选数据。
• 明确操作归属：所有单元格操作都指定了所属的工作表，避免因为默认激活的工作表变化而搞混操作对象。
• 自动关闭外部工作簿：加上SaveChanges:=False，关闭外部文件时不会弹出保存提示，让宏可以全程自动运行。

内容的提问来源于stack exchange，提问作者P.Seymour