如何用VBA把一个工作簿中的工作表内容复制到另一个汇总工作簿里面的指定的工作表里面去？

Posted 2023-04-27

例如有一个汇总excel表，表里有个sheet1，我需要把另一个excel分表里面的内容复制到汇总excel表里面的指定sheet1中（那个excel分表名字不固定，最好可以弹框选择某个excel文件，且那个excel分表里面只有1个sheet），即excel分表里面sheet的内容全部复制并贴到汇总excel表的sheet1里面。
另：最好只打开汇总excel表即可，不用打开excel分表，谢谢。

将工作薄A 的工作表移动到工作簿B中

打开两个工作簿 A 和B

选取工作簿A中所需要的工作表，右键

移动或复制

选择工作簿B

建立副本 即可

参考技术A private Sub bookMerge(nstart As Long, ncolumn As Integer)
' MsgBox "欢迎使用合并工作表工具1.0" & Chr(13) & "made by excel880工作室" & Chr(13) _
' & "本工具将合并当前目录下所有工作簿的第一个工作表到一个工作簿"
'
Dim fs, f, f1, fc, s
Dim wk As Workbook, sht As Worksheet
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(ThisWorkbook.Path)
Set fc = f.Files

Set targetWk = Workbooks.Add
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\合并.xls"
Set targetSht = ActiveWorkbook.Sheets(1)
targetSht.Name = "合并"
Application.DisplayAlerts = False
Application.ScreenUpdating = False
' Set targetWk = Workbooks.Open(ThisWorkbook.Path & "\" & "合并.xls")
' Set targetSht = targetWk.Sheets(1)

使用 Python（和 DataNitro）将单元格从一个 Excel 工作簿中的特定工作表复制到另一个 Excel 工作簿中的特定工作表

【中文标题】使用 Python（和 DataNitro）将单元格从一个 Excel 工作簿中的特定工作表复制到另一个 Excel 工作簿中的特定工作表

【英文标题】：Using Python (and DataNitro) to copy cells from a particular sheet in one Excel workbook, to a particular sheet in another Excel workbook

【发布时间】：2016-10-15 22:45:30

【问题描述】：

我在 Excel 中进行了大量数据分析，并且一直在探索 Python 和 DataNitro 以简化我的工作流程。我特别想从一个 Excel 工作簿中的一个工作表中复制某些单元格，然后将它们粘贴到另一个 Excel 工作簿中某个工作表中的某些单元格中。 我一直在使用 CellRange (DataNitro) 存储（“复制”），但不确定如何将存储的内容复制到另一个 Excel 工作簿中的特定工作表中。有什么线索可以解决这个问题吗？另外，是否可以使为 CellRange 定义的范围以某些单元格属性为条件？

非常感谢任何帮助！谢谢大家。

【参考方案1】：

这是一个复制的例子：

data = CellRange("A1:A10").value
active_wkbk("Book2.xlsx")
CellRange("A1:A10").value = data

您可以使用常规 Python 逻辑（if 语句等）使范围有条件。