python pandas合并多个Excel为不同sheet，VB合并多个Excel

一：python合并Excel

　　---原创，转载请说明

　　python操作多个Excel表格合并为同一个表格的不同sheet，并且将sheet名字命名为原表格的表名

　　缺陷：Excel表格第一行第一列不能空，不然会缺失列

　　　　　速度很慢

# -*- coding:utf-8 -*-
import pandas as pd
import os

# 结果文件
result = pd.ExcelWriter(\'123.xls\')

# 获取表格列表
origin_file_list = os.listdir(\'E:/Work/目标路径\')

print origin_file_list

# 循环遍历表格
for i in origin_file_list:
    print i

    excel_file_name = i
    #拼接每个文件的路径
    file_path = \'E:/Work/123/%s\' % i
    print file_path

    # 读取文件内容
    # 跳过0行
    content = pd.read_excel(file_path, skiprows=[0])
    # 有缺陷，会扩展列名
    # content = pd.read_excel(file_path)
    # 重新定义sheet名字
    sheet_name = i[:len(i) - 4]
    # 转换为同一个表多个sheet
    content.to_excel(result, sheet_name, index=False)
    # content.to_excel()

result.save()

二：Excel表格宏命令合并

新建一个Excel表格，点击底部sheet，右键查看代码，粘贴代码，顶部运行，选择对应的多个Excel即可生成。

Sub Books2Sheets()

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim newwb As Workbook
Set newwb = Workbooks.Add
With fd
If .Show = -1 Then

Dim vrtSelectedItem As Variant

Dim i As Integer
i = 1

For Each vrtSelectedItem In .SelectedItems

　　Dim tempwb As Workbook
　　Set tempwb = Workbooks.Open(vrtSelectedItem)

　　tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
　　\'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx
　　newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
　　\'关闭
　　tempwb.Close SaveChanges:=False
　　i = i + 1
　　Next vrtSelectedItem
End If