用当前日期关闭宏

Question

我正在使用宏关闭多个文件，其中一个文件名使用当前日期。我需要宏单击工作簿，然后关闭并保存它。我认为我几乎拥有它，但是我只是不能点击宏来点击活动工作簿，每日文件名会改变。这是我的。

Dim ClosePath As String 
Dim ClosePathDate As String 

ClosePath = "File_": 
ClosePathDate = ClosePath & Format(Date, "YYYYMMDD") & ".xlsx" 

Windows("ClosePathDate").Activate 
Sheets("Sheet1").Select 
Range("A1").Select 
ActiveWorkbook.Close SaveChanges:=True 

我不知道如何使用 “窗口（” ClosePathDate “）” 我也尝试过的Windows = ClosePathDate.Activate，没有运气。

请帮忙。

Answer 1

即使工作簿在另一个Excel实例中打开，这也可以工作。顺便说一句，你不需要选择它来关闭它。

Sub Sample() 
    Dim ClosePath As String 
    Dim ClosePathDate As String 
    Dim xlObj As Object 

    ClosePath = "File_": 
    ClosePathDate = ClosePath & Format(Date, "YYYYMMDD") & ".xlsx" 

    '~~> Replace "C:\" with the relevant path 
    Set xlObj = GetObject("C:\" & ClosePathDate) 
    xlObj.Application.Workbooks(ClosePathDate).Close SaveChanges:=False 
End Sub 

另一种方式

Sub Sample() 
    Dim wb As Workbook 
    Dim ClosePath As String 
    Dim ClosePathDate As String 

    ClosePath = "File_": 
    ClosePathDate = ClosePath & Format(Date, "YYYYMMDD") & ".xlsx" 

    Set wb = Workbooks(ClosePathDate) 

    wb.Close SaveChanges:=False 
End Sub