基于时段将外部工作簿数据粘贴至指定单元格的VBA问题

嘿，看来你已经走了大半路程了——打开外部工作簿、运行宏都搞定了，就差最后一步根据时段把数据精准放到指定单元格对吧？我来帮你排查下时段判断失效的问题，再给你一个靠谱的解决方案。

先说说可能导致时段判断失效的常见原因 #

• 你可能用了包含日期的时间函数（比如直接用Now()而不是提取小时数），导致条件判断逻辑混乱；
• 时段的条件范围写得有重叠或者遗漏（比如同时写了>=9和<=12但没考虑边界值）；
• 目标单元格的引用出错，看起来像是判断没生效，其实是数据贴错了地方。

修正后的完整代码示例 #

下面是整合了正确时段判断的VBA代码，你可以根据自己的实际需求调整路径、宏名称、单元格地址和时段范围：

Sub OpenWorkbookRunMacroAndPaste()
    Dim sourceWB As Workbook
    Dim targetWB As Workbook
    Dim currentHour As Integer
    
    ' 把当前工作簿设为目标工作簿（就是你点击按钮的这个文件）
    Set targetWB = ThisWorkbook
    
    ' 1. 打开外部工作簿，替换成你的实际文件路径
    Set sourceWB = Workbooks.Open("C:\你的外部工作簿路径.xlsm")
    
    ' 2. 运行外部工作簿里的宏，注意：如果工作簿名称有空格，要加单引号
    ' 比如：Application.Run "'带空格的工作簿名.xlsm'!你的宏名称"
    Application.Run sourceWB.Name & "!你的宏名称"
    
    ' 3. 获取当前小时数（只取小时，避免日期干扰判断）
    currentHour = Hour(Now())
    
    ' 4. 根据时段判断，把外部工作簿的数据粘贴到对应单元格
    ' 假设外部数据存在Sheet1的A1单元格，你可以改成自己的数据源位置
    With sourceWB.Sheets("Sheet1")
        ' 上午时段（9:00-12:59）
        If currentHour >= 9 And currentHour < 13 Then
            targetWB.Sheets("Sheet1").Range("B2").Value = .Range("A1").Value
        ' 下午时段（13:00-17:59）
        ElseIf currentHour >= 13 And currentHour < 18 Then
            targetWB.Sheets("Sheet1").Range("C2").Value = .Range("A1").Value
        ' 晚上时段（18:00-21:59）
        ElseIf currentHour >= 18 And currentHour < 22 Then
            targetWB.Sheets("Sheet1").Range("D2").Value = .Range("A1").Value
        ' 其他时段（深夜/凌晨）
        Else
            targetWB.Sheets("Sheet1").Range("E2").Value = .Range("A1").Value
        End If
    End With
    
    ' 5. 关闭外部工作簿，不需要保存就写False，需要保存就改成True
    sourceWB.Close SaveChanges:=False
    
    ' 释放对象，避免内存占用
    Set sourceWB = Nothing
    Set targetWB = Nothing
End Sub

几个关键细节提醒 #

1. 高效赋值 vs 复制粘贴：上面用的是直接赋值Value，比Copy/Paste更高效，也不会占用剪贴板。如果需要粘贴格式、公式等，可以换成下面的写法：

   .Range("A1").Copy
   targetWB.Sheets("Sheet1").Range("B2").PasteSpecial Paste:=xlPasteAll ' 可以换成xlPasteValues、xlPasteFormats等
   Application.CutCopyMode = False ' 清除复制状态
   

2. 宏名称的特殊处理：如果外部工作簿的名称包含空格，运行宏时要给工作簿名加单引号，比如：

   Application.Run "'销售数据汇总.xlsm'!GenerateDailyReport"
   

3. 时段范围自定义：你可以根据自己的需求调整currentHour的判断条件，比如把上午改成8点到12点，只需要修改>=8 And currentHour <13即可。
4. 单元格引用验证：一定要确认外部工作簿的数据源单元格、当前工作簿的目标单元格的Sheet名称和地址都正确，很多时候“判断失效”其实是单元格引用错了。

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