最近用python帮女朋友处理excel数据时发现了一些问题,比如最近碰到的不同的excel通过相同的列表合并时之前写的代码只能按照一张一张表进行,如果表中含有多张工作簿那便会出现问题,如下图:
于是想到先通过VBA :Visual Basic for Applications(Visual Basic应用程序)来实现拆分,具体步骤如下:
VBA拆分工作簿
1.为要拆分的工作簿创建一个新文件夹,因为拆分的Excel文件将与该主工作簿保留在同一文件夹中。
2. 按住 ALT + F11 键,然后打开 Microsoft Visual Basic应用程序 窗口。
3.点击 插页 > 模块,然后将以下代码粘贴到“模块窗口”中。
Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.Activ