[已解决]求助:将拆分后人工作簿保存到一个自动生成的新的文件夹内

松儿

有个代码想请老师，重新设计一下。下面这个代码是个拆分的代码，想请设计一下，拆分后，将拆分后人工作簿保存到一个自动生成的新的文件夹内，文件夹命名为＜拆分＞。
Sub SaveSheet()
    For Each ws In ThisWorkbook.Worksheets
    ws.Copy
    ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\" & ws.Name, FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWorkbook.Close
    Next
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-2 22:10

Sub SaveSheet()
     For Each ws In ThisWorkbook.Worksheets
     ws.Copy
     ActiveWorkbook.SaveAs Filename:= _
         ThisWorkbook.Path & "\折分\" & ws.Name, FileFormat:=xlNormal _
         , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
         CreateBackup:=False
     ActiveWorkbook.Close
     Next
End Sub

跳转到最佳答案楼层

hwc2ycy

Sub SaveSheet()
     For Each ws In ThisWorkbook.Worksheets
     ws.Copy
     ActiveWorkbook.SaveAs Filename:= _
         ThisWorkbook.Path & "\折分\" & ws.Name, FileFormat:=xlNormal _
         , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
         CreateBackup:=False
     ActiveWorkbook.Close
     Next
End Sub

hwc2ycy

Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
          CreateBackup:=False,这些凡是参数是默认值就不用写了。