每个sheet有不同的表头，但是有相同的字段，抽取指定字段合成一个sheet

如果你想在每个 sheet 中抽取相同的字段并合并到一个 sheet 中，可以使用以下步骤:

1. 读取每个 sheet 的数据，可以使用 Python 的 openpyxl 库。

2. 创建一个新的 sheet，并在其中添加表头。

3. 在新的 sheet 中，依次复制每个 sheet 中指定字段的数据。

4. 如果你想保存合并后的结果，可以使用 openpyxl 库的 `save()` 方法将修改保存回原文件，或者使用 `Workbook.create_sheet()` 创建一个新的工作簿并将数据保存到新的工作簿中。

相关问题

如何用vba编写一个抽取oracle数据库表数据，把表的表名，字段名，数据显示在一个新建的excel页中，要求需要：需要抽取的库名从excel的Sheet1中A1获取，数据库的账号在Sheet1中A2获取，数据库的密码在Sheet1中A3获取，要抽取数据的表名在Sheet1中A4获取，抽取数据的WHERE条件在Sheet1中A5获取，并且在Sheet1中A6的位置设计一个开始执行程序的按钮

以下是一个简单的VBA代码，可以实现你的需求：

Sub ExtractDataFromOracle()
    Dim con As Object
    Set con = CreateObject("ADODB.Connection")
    
    '从Sheet1中获取参数
    Dim dbName As String
    dbName = Sheets("Sheet1").Range("A1").Value
    Dim dbUser As String
    dbUser = Sheets("Sheet1").Range("A2").Value
    Dim dbPassword As String
    dbPassword = Sheets("Sheet1").Range("A3").Value
    Dim tableName As String
    tableName = Sheets("Sheet1").Range("A4").Value
    Dim whereClause As String
    whereClause = Sheets("Sheet1").Range("A5").Value
    
    '连接Oracle数据库
    con.Open "Driver={Oracle in OraClient11g_home1};Dbq=" & dbName & ";Uid=" & dbUser & ";Pwd=" & dbPassword & ";"
    
    '执行SQL查询
    Dim rs As Object
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM " & tableName & " WHERE " & whereClause, con
    
    '将结果写入新建的Excel页
    Dim wb As Workbook
    Set wb = Workbooks.Add
    Dim ws As Worksheet
    Set ws = wb.Sheets(1)
    Dim i As Integer
    For i = 0 To rs.Fields.Count - 1
        ws.Cells(1, i + 1).Value = rs.Fields(i).Name
    Next i
    ws.Range("A2").CopyFromRecordset rs
    
    '关闭连接
    rs.Close
    con.Close
End Sub

在Sheet1中添加一个按钮，然后将其绑定到这个VBA宏即可。