如何在同一文件夹生成新的工作簿

附件

地球.rar(1.6 KB)

2011-8-5 21:50, 下载次数: 3

复制内容到剪贴板

代码:

Sub Macro1()
    Dim ws As Worksheet
    Dim sFullName As String
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        If ws.Name = "中国" Or ws.Name = "美国" Then
            Sheets(ws.Name).Copy
            sFullName = ThisWorkbook.Path & "\" & ws.Name & ".xls"
            If Dir(sFullName) <> "" Then Kill sFullName
            ActiveWorkbook.Close True, sFullName
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

引用:

原帖由 南海 于 2011-8-5 22:08 发表
谢谢，可否在生成的表名中加入今天日期20110805和电脑时间2207，如“中国201108052207”