如果今天修改了txt文件，则退出子Excel VBA

Sub ModifyTxtFileAndExit()
    ' 定义文件路径
    Dim filePath As String
    filePath = "C:\path\to\your\file.txt"
    
    ' 检查文件是否存在
    If Dir(filePath) <> "" Then
        ' 打开文件以进行修改
        Open filePath For Append As #1
        ' 在文件末尾添加内容
        Print #1, "Modified content"
        ' 关闭文件
        Close #1
    Else
        ' 文件不存在，给出错误提示
        MsgBox "File not found!"
    End If
    
    ' 退出子程序
    Exit Sub
End Sub