首先把所有要提取数据的excel放置到同一个目录文件夹下

导入包：

import os  '用于提取目录下文件名'
import pandas as pd  '用于生成data_frame进行结果存储'

提取目录文件夹中所有的文件名：
只需要写到目录文件夹的路径即可，会输出目录文件夹中所有的文件名称

info = os.listdir('/目录文件夹路径/') 

'创建空的列表用于存放提取出得数据'
data = []

'datafile是info中提取出来的xlsx文件名称'
for datafile in info:
   '一条判断语句来排除文件夹中，我们不需要的文件'
   if (datafile !='.ipynb_checkpoints' and datafile != '测试数据清洗.ipynb'):
     '输出判断执行提取的文件名，也可以用于判断哪个文件有错误'
     print(datafile)
     '逐条读取目录文件夹下的每一个文件'
     file = pd.read_excel(datafile)
     '选取文件的固定行/列，存放到列表data中'
     data.append(file['需要提取的字段名称'])

'转化为dataframe才可以进行保存操作'
data1=pd.DataFrame(data=data)
'保存为csv，中文编码，可以查看输出结果'
data1.to_csv('文件名称或路径.csv',encoding='utf_8_sig')

在博文 VBA添加工作表详解 中为大家讲了如何使用一句代码在指定位置插快速入指定名称的工作表。但是如果工作簿中已经存在同名工作表，那么运行时错误’1004‘就不期而遇的跳了出来。

老规则 —— 先删除再创建，删除工作表很简单嘛，Sheets(..).Delete一句代码搞定。怎么又弹出一个消息窗口，Excel的产品经理考虑过宝宝们的用户体验吗！？删除工作表也搞得这么复杂，又不是从银行账户里转走500万。

每次都这么麻烦，必须拿出VBA来搞定它了。

Sub DelSheet(vShtName, Optional sWkName As String)
    Dim sName
    With Application
        .DisplayAlerts = False
        On Error Resume Next
        If Len(sWkName) > 0 Then
            Set objWk = ActiveWorkbook
        Else
            Set objWk = Workbooks(sWkName)
        End If
        If VBA.IsArray(vShtName) Then
            For Each sName In vShtName
                objWk.Sheets(sName).Delete
            Next
        Else
            objWk.Sheets(sShtName).Delete
        End If
        On Error GoTo 0
        .DisplayAlerts = True
    End With
End Sub

这个事儿整的似乎有点儿大，一句代码怎么被扩展成了20多行。莫急，俗话说工欲善其事，必先利其器，以后调用起来就so easy。

Sub Demo()
    '删除单个工作表
    DelSheet Array("sheet1")
    '删除多个工作表，并指定工作簿
    DelSheet Array("sheet3", "sheet4"), "MyData.xlsx"
End Sub

无论是当前工作簿还是其他工作簿，即可以删除单个工作表，又可以删除一组工作表，随心所欲一句代码就搞定。