Excel工作表拆分多个文件 一键完成

功能：把一个Excel表中的工作表拆分，分别保存为一个工作薄。

主界面

实际应用还是很方便的，如果有100个表要分别保存，这个工具还是很神奇的。

主体代码

事件触发做了个窗体单击事件，也可以添加加到按钮事件里。

Private Sub UserForm_Click()

Dim cObj As Object

With Application.FileDialog(msoFileDialogFilePicker)

.InitialFileName = ThisWorkbook.Path

.AllowMultiSelect = True

.Filters.Clear

.Filters.Add "Excel文件", "*.xls;*.xlsx;*.xlsm"

If .Show = -1 Then

Call splitSheets(.SelectedItems.Item(1))

End If

End With

End Sub

首先调用一个文件查看窗体，选择要拆分的工作表。

函数

getSheetName()

getSheetName()函数，获取各个拆分表名。

拆分函数

splitSheets()

对选择的表进行拆分。

拆分的文件一个不少，关键代码仅仅一个Copy，其余都是附加完成拆分前的条件准备。

关注：江觅易见

这里将看到一些VBA 编程实例和代码，关于某种实际应用的理解和解决方案，可能将是一个完全错误呈现，但是不要感觉后悔，很有可能柳暗花明。