VBA -如何识别列中的最大日期，如果最大日期在当月，则使用当前年份和月份保存文件

Sub SaveFileBasedOnMaxDate()
    Dim ws As Worksheet
    Dim rng As Range
    Dim maxDate As Date
    Dim currentDate As Date
    Dim filePath As String
    
    ' 设置工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 根据实际情况修改工作表名称
    Set rng = ws.Range("A1:A10") ' 根据实际情况修改范围
    
    ' 查找最大日期
    maxDate = Application.WorksheetFunction.Max(rng)
    
    ' 检查最大日期是否在当月
    If Year(maxDate) = Year(Date) And Month(maxDate) = Month(Date) Then
        ' 使用当前年份和月份保存文件
        currentDate = Date
        filePath = "C:\保存路径\" & Format(currentDate, "yyyy-mm") & ".xlsx" ' 根据实际情况修改保存路径
        
        ' 保存文件
        ThisWorkbook.SaveAs filePath
    End If
End Sub