Excel VBA 根据系统日期写入文件名

Question

我正在尝试在 Excel 中编写一个 VBA 脚本，它将保存一个文件并给出一个预先确定的名称。标准之一是，如果它没有超过上午 11 点，那么它应该添加到文件名“H12”中。如果已经过了上午 11 点，则应添加“H16”。

这是我目前所拥有的，关于这个特定部分（还有更多与此处不相关的代码：

Dim SaveTime As Integer
SaveTime = Round(Timer / 3600, 0)
dt = Format(CStr(Now), "yyyy_mm_dd")
FolderName = "path/to/file"
If SaveTime < 11 Then
    With Destwb
       .SaveAs FolderName _
                    & "\" & Destwb.Sheets(1).Name & dt & "H12", _
                        FileFormat:=FileFormatNum
       .Close False
    End With
    Else
        With Destwb
            .SaveAs FolderName _
                    & "\" & Destwb.Sheets(1).Name & dt & "H16", _
                        FileFormat:=FileFormatNum
            .Close False
        End With
     End If

除了这部分之外，脚本工作正常，因为它总是将文件保存为“H16”。 45 分钟前运行这个，它应该写成“H12”。我确定我没有正确地进行时间比较。我试过比较if dt < "11:00"，但这也不起作用。

有人可以帮帮我吗？

提前致谢！

编辑：添加最后一个细节。

Answer 1

虽然我不完全确定您的错误是什么（由 Err# 引起的哪一行？），但我希望这能帮助您解决问题

(...)
Dim SaveTime As Integer
SaveTime = Hour(Now)

FolderName = "C:\Users\b036081\NoBackupData"
FileFormatNum = 51 ' that's xlsx without macros

    With Destwb

        If SaveTime < 11 Then
            .SaveAs FolderName _
                & "\" & .Sheets(1).Name & dt & "H12", FileFormatNum
            '.Close False
        Else
            .SaveAs FolderName _
                    & "\" & .Sheets(1).Name & dt & "H16", FileFormatNum
            '.Close False
        End If

    End With

• 我注意到您在 FolderName 占位符中使用了 /，但我相信您知道在 VBA 中必须使用 \ 作为路径分隔符
• 我不确定你是否真的想这样做SaveTime = Round(Timer / 3600, 3)。如果您的目标是提取日期的小时，而不是例如在 04:35 返回 5，您可以使用类似 Hour(Now) 的东西，它返回一个整数
• 我将With Destwb 包裹在If 周围，而不是相反，这会稍微清理您的代码

编辑：使用有效解决方案更新代码