如果你是VBA大师,现需要打开另一个路径中指定的excel获取其中一个表中所有数据复制到另一个表中,改怎么做
时间: 2024-06-03 17:11:20 浏览: 90
把表信息从一个表复制到另外一个表
5星 · 资源好评率100%
您可以使用VBA中的"Workbooks.Open"函数打开目标文件,使用"Worksheets("表名").Range("A1").CurrentRegion.Copy"将指定表格中的数据复制,然后使用"ActiveSheet.Paste"将其粘贴到目标表格中即可。具体代码如下:
Sub CopyDataToAnotherWorkbook()
Dim sourceWorkbook As Workbook
Dim destinationWorkbook As Workbook
Set sourceWorkbook = Workbooks.Open("目标文件路径") '打开目标文件
Set destinationWorkbook = ThisWorkbook '打开当前工作簿
sourceWorkbook.Worksheets("表格名").Range("A1").CurrentRegion.Copy
destinationWorkbook.Worksheets("目标表格名").Range("A1").PasteSpecial xlPasteAll '将数据粘贴到目标表格中
End Sub
阅读全文