[已解决]代码的文件名命名的问题

qiaodong64

Sub test()
   这段代码是一位大哥/大妹 帮忙写的，小弟在此先谢过。
问题：现在把这个代码复制到 "文件名为1999“的excel中，处理完保存的数据文件名分别是197901、197902.....197912，我是懒得改每次改，求建议。
Dim i&, Ph, Wb, Nm
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Ph = ThisWorkbook.Path & ""
    For i = 1 To 12
        Nm = "1979" & Format(i, "00")
        Set Wb = Workbooks.Add
        Wb.SaveAs Ph & "\" & Nm & ".xls"
        With ThisWorkbook.Worksheets("sheet1")
            .Range("A1").Resize(1, 14).AutoFilter Field:=14, Criteria1:=i
            .AutoFilter.Range.SpecialCells(12).Copy Wb.ActiveSheet.Cells(1, 1)
        End With
        Wb.Close True
    Next
    ThisWorkbook.Worksheets("sheet1").ShowAllData
    MsgBox Prompt:="以完成拆分！"
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

最佳答案

月排行榜 / 总排行榜

chart888

2017-8-18 08:45

修改好了以你的原始文件名指定命名规则
如你的源文件是1999
那么拆分的文件就是199901,199902.。。。。。
是这个意思吗

跳转到最佳答案楼层

chart888

修改好了以你的原始文件名指定命名规则
如你的源文件是1999
那么拆分的文件就是199901,199902.。。。。。
是这个意思吗