免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

提示：在工作中經(jīng)常要將單個(gè)工作簿拆分成多個(gè)工作簿，以便發(fā)送給其他人，老方法都是用移動(dòng)或復(fù)制工作表，另存為單個(gè)工作簿，這個(gè)方法目前很多人都在用，如果你想省時(shí)省力的話不訪也來了解一下方法，說白了也就是套用一下VBA的代碼就可以瞬間完成的事情。與我發(fā)布的合并工作簿、工作表的方法差不多。

第一步 打開工作簿，按ALT+F11

第二步 首先插入一個(gè)新的模塊，然后粘貼下面的代碼進(jìn)模塊中

Option Explicit

Sub SaveToFile()

     '把各個(gè)表都保存在指定的文件夾中

    Application.ScreenUpdating = False                       '關(guān)閉屏幕更新

    Dim folder As String

    folder = ThisWorkbook.Path & "\班級(jí)成績(jī)表"               '保存工作簿文件的目錄，根據(jù)需求可修改。

    If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder   '選擇是否新建該文件夾

    Dim sht As Worksheet

    For Each sht In Worksheets

        sht.Copy                                   '復(fù)制工作表到新工作簿

        ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xlsx"  '保存工作簿，并命名

        ActiveWorkbook.Close

    Next

    Application.ScreenUpdating = True                           '開啟屏幕更新

End Sub

第三步，保并后，按F5運(yùn)行，自動(dòng)生成一個(gè)以自已定義的文件夾，里面包含若干個(gè)工作簿文件。