如何将Excel工作表复制到Python中的另一个工作簿（excel表格怎么导入python）

25-03-11 10

在这篇文章中，我们将带领您了解如何将Excel工作表复制到Python中的另一个工作簿的全貌，包括excel表格怎么导入python的相关情况。同时，我们还将为您介绍有关ExcelVBA-将基于两个参

在这篇文章中，我们将带领您了解如何将Excel工作表复制到Python中的另一个工作簿的全貌，包括excel表格怎么导入python的相关情况。同时，我们还将为您介绍有关Excel VBA - 将基于两个参数的数据复制到另一个工作表中、Excel VBA使用基于重命名工作表的单元格值将工作表复制到新工作簿、Excel-根据数据匹配将行复制到另一个工作表、Excel中如何将两个工作薄合并成一个工作簿的知识，以帮助您更好地理解这个主题。

本文目录一览：

如何将Excel工作表复制到Python中的另一个工作簿（excel表格怎么导入python）
Excel VBA - 将基于两个参数的数据复制到另一个工作表中
Excel VBA使用基于重命名工作表的单元格值将工作表复制到新工作簿
Excel-根据数据匹配将行复制到另一个工作表
Excel中如何将两个工作薄合并成一个工作簿

如何将Excel工作表复制到Python中的另一个工作簿（excel表格怎么导入python）

我有一个带有源文件路径的字符串和另一个带有destfile路径的字符串，它们都指向Excel工作簿。

我想获取源文件的第一张纸并将其作为新选项卡复制到destfile（与destfile中的位置无关），然后保存它。

在xlrdorxlwt或or中找不到简单的方法xlutils。我想念什么吗？

答案1

小编典典

解决方案1

使用该openpyxl软件包的仅Python解决方案。仅数据值将被复制。

import openpyxl as xlpath1 = ''C:\\Users\\Xukrao\\Desktop\\workbook1.xlsx''path2 = ''C:\\Users\\Xukrao\\Desktop\\workbook2.xlsx''wb1 = xl.load_workbook(filename=path1)ws1 = wb1.worksheets[0]wb2 = xl.load_workbook(filename=path2)ws2 = wb2.create_sheet(ws1.title)for row in ws1:    for cell in row:        ws2[cell.coordinate].value = cell.valuewb2.save(path2)

解决方案2

使用该pywin32程序包将复制操作委派给Excel应用程序的解决方案。数据值，格式和工作表中的所有其他内容都将被复制。注意：此解决方案仅在安装了MS
Excel的Windows计算机上有效。

from win32com.client import Dispatchpath1 = ''C:\\Users\\Xukrao\\Desktop\\workbook1.xlsx''path2 = ''C:\\Users\\Xukrao\\Desktop\\workbook2.xlsx''xl = Dispatch("Excel.Application")xl.Visible = True  # You can remove this line if you don''t want the Excel application to be visiblewb1 = xl.Workbooks.Open(Filename=path1)wb2 = xl.Workbooks.Open(Filename=path2)ws1 = wb1.Worksheets(1)ws1.Copy(Before=wb2.Worksheets(1))wb2.Close(SaveChanges=True)xl.Quit()

解决方案3

使用该xlwings程序包将复制操作委派给Excel应用程序的解决方案。本质上，Xlwings是围绕（大多数，尽管不是全部）pywin32/
appscriptexcel API函数的智能包装。数据值，格式和工作表中的所有其他内容都将被复制。注意：此解决方案仅在安装了MS
Excel的Windows或Mac计算机上有效。

import xlwings as xwpath1 = ''C:\\Users\\Xukrao\\Desktop\\workbook1.xlsx''path2 = ''C:\\Users\\Xukrao\\Desktop\\workbook2.xlsx''wb1 = xw.Book(path1)wb2 = xw.Book(path2)ws1 = wb1.sheets(1)ws1.api.Copy(Before=wb2.sheets(1).api)wb2.save()wb2.app.quit()

Excel VBA - 将基于两个参数的数据复制到另一个工作表中

如何解决Excel VBA - 将基于两个参数的数据复制到另一个工作表中？

我正在尝试将包含原始数据（超过 30 列和 300000 行）的一张工作表中的数据复制到其他工作表中，这些工作表将它们拆分为有组织的形式。

在数据表中，我在 A 列中有重复的 ID，在 B 列中有唯一的案例编号，在 J 列中有案例的日期（多个案例编号具有相同的日期）。

我的目标是将案例编号复制到以列 A 中的 ID 命名的工作表中。在目标表中，我在列 A 中有单个日期（例如，从 A1 中的 3/01/2021 到 3/31/2021 A31)。案例编号需要转置，以便它们出现在彼此相邻的列中，但它们具有相同的日期。

我不能在代码中使用 ID 的名称，因为它每个月都在变化，所以我认为代码需要作为某种比较工具。

解决方法

这应该是关闭的：如果工作表不存在，它将添加它们。

Sub Copy_to_ID_sheet()

    Dim impdate As Date,startDate As Date,daysToFillDown As Long
    Dim finalrow As Long
    Dim i As Long,numSheets As Long
    Dim shipment As String,m
    Dim ID As String,wsDane As Worksheet,dict As Object,ws As Worksheet
    
    startDate  = DateSerial(2021,3,1) ''adjust as needed
    daysToFillDown  = 31                ''...and here

    Set wsDane = ThisWorkbook.Sheets("Dane")
    numSheets = ThisWorkbook.Worksheets.Count
    
    Set dict = CreateObject("scripting.dictionary")
    
    For i = 2 To wsDane.Cells(Rows.Count,"A").End(xlUp).Row
    
        impdate = wsDane.Cells(i,10).Value
        shipment = wsDane.Cells(i,2).Value
        ID = Sheets("Dane").Cells(i,1).Value
        
        ''already seen this ID and have a matching sheet?
        If Not dict.exists(ID) Then
            Set ws = Nothing
            On Error Resume Next
            Set ws = ThisWorkbook.Sheets(ID) ''does the sheet already exist?
            On Error GoTo 0
            If ws Is Nothing Then
                ''no existing sheet,so add a new one
                Set ws = ThisWorkbook.Worksheets.Add( _
                         after:=ThisWorkbook.Worksheets(numSheets))
                numSheets = numSheets + 1
                ws.Name = ID
                ''add dates to the new sheet
                With ws.Range("A1")
                    .NumberFormat = "mm/dd/yyyy" ''or whatever
                    .Value = startDate
                    .AutoFill Destination:=.Resize(daysToFillDown,1)
                End With
            End If
            Set dict(ID) = ws ''save in dictionary
        Else
            Set ws = dict(ID) ''get the existing sheet
        End If
    
        ''match the date to the destination sheet
        m = Application.Match(CLng(impdate),ws.Range("A1:A40"),0)
        If Not IsError(m) Then
            ''got a date match - add the shipment to the next available slot
            ws.Cells(m,Columns.Count).End(xlToLeft).Offset(0,1).Value = shipment
        End If
    Next i
        
End Sub

Excel VBA使用基于重命名工作表的单元格值将工作表复制到新工作簿

从一个工作簿复制到另一个工作簿

PasteType

Option Explicit

Sub CopySheetToNewWorkbook()

    Dim wbFrom As Workbook
    Dim wbTo   As Workbook
    Set wbFrom = ThisWorkbook
    Set wbTo = Workbooks.Open(ThisWorkbook.Path & "\FileResult.xlsx")
    
    Application.ScreenUpdating = False
    
    With wbTo
        With .Sheets("HOJA1")
           wbFrom.Sheets("RESULTADOS").Range("A1:Y100").Copy
           .Range("A1").PasteSpecial
           .Range("A1").PasteSpecial xlPasteColumnWidths
           .Name = wbFrom.Sheets("RESULTADOS").Range("U3").Value
        End With
        .Worksheets.Add After:=.Sheets(.Sheets.Count)
        ActiveSheet.Name = "HOJA1"
        '.Save
        '.Close
    End With
    
    Application.ScreenUpdating = True

End Sub

Excel-根据数据匹配将行复制到另一个工作表

如何解决Excel-根据数据匹配将行复制到另一个工作表？

我看过类似的问题，但是它们似乎不适合我的问题。我有两张excel。一种具有某些任务的标题/概述数据，另一种具有每个任务的几行详细信息。

我需要帮助编写一个与两个工作表之间的任务ID匹配的宏，并将整个标题数据行从工作表1复制到工作表2中的详细信息行组上方的空白行中。

（在运行此代码之前，我将运行一个宏，该宏将在每组明细数据之间插入空白行。当我开始工作时，我将合并这两个代码。）

复制语句是我遇到的问题。它返回应用程序定义或对象定义的错误。

Sub InsertMWITitles()
‘copies the MWI titles above the correct MWI Steps group

Dim lngLastRowSht1,lngLastRowSht2,counterSht1,counterSht2As Long


With Worksheets(“MWI Titles”)
    lngLastRowSht1 = .Cells(.Rows.Count,8).End(xlUp).Row
    lngLastRowSht2 = Worksheets(“MWI Steps”).Cells(Worksheets(“MWI Steps”).Rows.Count,1).End(xlUp).Row
        For counterSht1 = 1 To lngLastRowSht1
            For counterSht2 = 1 To lngLastRowSht2

    ‘if the Task ID in column H of the MWI Titles sheet matches the Element ID in column A of 
    ‘the MWI Steps sheet,copy the entire title row to the steps sheet above the group
    
                If Worksheets(“MWI Titles”).Range("H" & (counterSht1)).Value = Sheets(2).Range("A" & counterSht2).Value Then
                    Worksheets(“MWI Titles”).Range("A" & (counterSht2).EntireRow.copy Sheets(“MWI Steps”).Range("A" & (counterSht2 – 1))
                End If
            Next counterSht2
        Next counterSht1
End With
End Sub

我还尝试向下移动复制和插入，但是也无法正常工作。

样本数据的顶部是表1 / MWI标题（标题数据），底部是表2 / MWI步骤（详细数据）。 Sample of data in both sheets

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

Excel中如何将两个工作薄合并成一个工作簿

在工作中，有时需要将两个Excel工作薄合并起来，工作薄中的工作表又很多时，从一个工作薄中将一个个工作表复制粘贴到另一个工作薄中速度会比较慢，而且工作量也比较大。那么Excel中如何将两个工作薄合并成一个工作簿？今天小编就教大家一种简便快速的方法

在工作中，有时需要将两个Excel工作薄合并起来，工作薄中的工作表又很多时，从一个工作薄中将一个个工作表复制粘贴到另一个工作薄中速度会比较慢，而且工作量也比较大。那么Excel中如何将两个工作薄合并成一个工作簿？今天小编就教大家一种简便快速的方法，希望对大家有所帮助！

方法/步骤

1、分别打开待合并的两个工作薄

2、在工作表名称处右击，然后点击选定全部工作表菜单全选工作表；或者按住Ctrl键的同时鼠标点击各个工作表名称；或者点击第一个工作表名称后，按住Shift键的同时点击最后一个工作表名称也能全选工作表。

3、再次在工作表名称右击，然后点击移动或复制菜单

4、在移动或复制窗口界面中选择待合并到的工作薄，然后确定；

5、这时全选的那些工作表就会合并到选中的工作薄中，如果两个工作薄中有相同的工作表名称，Excel会自动将移动过来的工作表名称后加上“(数字)”，如果有需要可以自行修改工作表名称。

END

注意事项

拆分工作薄的方法和合并工作薄类似，只是在选择合并到的工作薄时，选择新的工作薄即可！

以上就是Excel中如何将两个工作薄合并成一个工作簿的方法，大家看明白了吗？希望能帮助到大家，谢谢大家观看本教程！

总结

以上是小编为你收集整理的Excel中如何将两个工作薄合并成一个工作簿全部内容。

如果觉得小编网站内容还不错，欢迎将小编网站推荐给好友。

关于如何将Excel工作表复制到Python中的另一个工作簿和excel表格怎么导入python的问题我们已经讲解完毕，感谢您的阅读，如果还想了解更多关于Excel VBA - 将基于两个参数的数据复制到另一个工作表中、Excel VBA使用基于重命名工作表的单元格值将工作表复制到新工作簿、Excel-根据数据匹配将行复制到另一个工作表、Excel中如何将两个工作薄合并成一个工作簿等相关内容，可以在本站寻找。

本文标签：