1. 在Excel VBA中，可以通过以下一段代码将一个Excel文件中的多张工作表拆分成以工作表名称命名的多个Excel单独的文件。
关于如何拆分工作表的代码可以参考以下文章：
Sub 拆分工作表()
Dim sht As Worksheet
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:="D:\test\" & sht.Name & ".xlsx"
Next
End Sub
2. 以上这一段代码的通用性较强，我们先复制这段代码到一个新的Excel文件中，将Excel文件命名为“VBA代码库”。
3. 将Excel文件另存为加载宏类型的Excel文件（.xlam），默认放在AddIns文件夹下，不做改动。
4. 点击“开发工具”下的“Excel加载项”，勾选“Vba代码”，然后“确定”。
5. 再次打开一个新的Excel文件，打开Excel选项对话框，点击“快速访问工具栏”选项。
6. 选择命令“宏”，就可以看到已经加载的宏“拆分工作表”，将其添加至右侧的工具栏，然后“确定”。
7. 在每次打开一个Excel文件时，快速访问工具栏都会有一个拆分工作表的按钮，如有需要，可以点击它来拆分工作表文件并保存到test文件夹下。
注意：设计的代码需具备极强的通用性，这样就可以通过快速点击按钮来实现操作。
以上案例仅用于演示，更多实际应用请根据实际需求进行相应的调整。
喜欢的朋友请多多关注，感谢支持！
