Question

我有一个程序可以在格式化后创建备份：<name>_<date>

其中一些有更多备份，其中一些没有备份。

最多可保留3个具有相同名称但日期不同的备份。

我有一个包含名称的excel表和一个检查是否有备份的脚本，并在结果后为单元格着色。

我想改进脚本，因此会检查备份是否过时（超过30天）。

我有这个想法，但我遇到了一个问题。如果有多个同名备份，我无法弄清楚，如何比较最新的备份。

脚本：

'auto check if backup exists - on click
file = Dir("<filepath>")
Do While file <> ""
    myBool = False
    backup = Right(backup, 6)
        If InStr(file, backup) > 0 Then
            If now - FileDateTime(file) > 30 Then 'this is where I have the problem... how do I make it grab the newest of the backups?
            'outdated 
            End If

            myBool = True
            ActiveCell.Interior.ColorIndex = "35"
            Exit Do
        End If
    file = Dir
Loop
    If Not myBool Then
        ActiveCell.Interior.ColorIndex = "22"
    End If

Answer 1

我找到了一种方法，使用byte data;函数：

void interrupt_Rx(void)

如何制作excel备份检查器脚本获取最新日期

1 个答案: