如何将各个sheet导出来，按照”省名“保存在文件夹中

附件

按省分表.rar(34.25 KB)

2011-8-7 18:36, 下载次数: 12

复制内容到剪贴板

代码:

Sub 导出工作簿()
    Dim ws As Worksheet, sWsName As String
    Dim sFullName As String
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        sWsName = ws.Name
        If Not (sWsName = "Sheet1" Or sWsName = "Sheet2") Then
            Sheets(sWsName).Move
            sFullName = ThisWorkbook.Path & "\" & sWsName & ".xlsx"
            If Dir(sFullName) <> "" Then Kill sFullName
            ActiveWorkbook.Close True, sFullName
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub