[已解决]如何检测和另存

zjsxzgx

假设我已经有一个名叫点名册的EXCEL文件。已经用VBA处理掉2009年的信息

现在我想用VBA来检测当前的文件路径下是否有 "本年度"点名册 （如2010年点名册）

如有

MSGBOX “本年度的已经存在”

否者

文件在同一个文件夹里另存为 "本年度"点名册 （如2010年点名册）

强调说明：必须是在同一个文件夹里。而“本年度”是活动的，指的是当年的年份

最佳答案

月排行榜 / 总排行榜

bbwsj

2010-7-3 06:31

Sub t()
    Set fs = Application.FileSearch
    YE = Date
    YE = Year(YE)
    With fs
        .LookIn = ThisWorkbook.Path
        .Filename = YE & "年点名册.xls"
        If .Execute() > 0 Then
            MsgBox "本年度的已经存在"
        Else
            ActiveWorkbook.SaveAs .LookIn & "/" & YE & "年点名册.xls"
        End If
    End With
End Sub

跳转到最佳答案楼层

bbwsj

Sub t()
    Set fs = Application.FileSearch
    YE = Date
    YE = Year(YE)
    With fs
        .LookIn = ThisWorkbook.Path
        .Filename = YE & "年点名册.xls"
        If .Execute() > 0 Then
            MsgBox "本年度的已经存在"
        Else
            ActiveWorkbook.SaveAs .LookIn & "/" & YE & "年点名册.xls"
        End If
    End With
End Sub

我不知道呀

学习下！！

zjsxzgx

受教了谢谢