excel将sheet工作表批量保存为单独文件或工作簿

Sub saveworkbook()

      '将sheet工作表批量另存为独立的工作簿，并命名成sheet表的名称

      Application.ScreenUpdating = False '关闭屏幕更新

      Dim ff As String '定义字符变量

      ff = ThisWorkbook.Path & "\准考证号"

      '指定建立新的工作簿保存到的路径

      If Len(Dir(ff, vbDirectory)) = 0 Then MkDir ff

      '如果准考证号的文件夹不存在，就新建文件夹；mkdir用来 新建文件夹

      Dim st As Worksheet  '定义工作表变量

      For Each st In Worksheets  '遍历所有的sheet工作表

      st.Copy    ' 拷贝sheet工作表到新的工作簿，即将工作表另存为新的文件。

      ActiveWorkbook.SaveAs ff & "\" & st.Name & ".xls"

    '保存工作簿，并命名成工作表的名称

    ActiveWorkbook.Close        '关闭工作表

    Next '执行遍历循环体

    Application.ScreenUpdating = True  '开启屏幕更新

End Sub