复制excel数据到另一个Excel中VBA

-1

可能重复：
How can I copy data between two open Excel instances in VBA?复制excel数据到另一个Excel中VBA

我要复制的数据从一个已经打开的出类拔萃到另一个Excel中VBA

我试过

Application.Goto Workbooks（“Book1.xls”）。Sheets（“Sheet1”）。Range（ “A：A”）

&也

的Windows（ “Book1.xls的”）激活

这两种方法很好地工作在Windows 7 & Vista中，但不能在Windows XP

它。抛出“运行时错误”9“下标超出范围”在XP中的错误

什么是最好的&将数据从一个已经打开的excel复制到另一个excel的理想方法VBA

在等着你反应

感谢 Prabu中号

来源

2011-10-19 Prabu Mike

您可以使用此

Sub CopyData() 
Dim Wb1 As Workbook, wb2 As Workbook 

'copy from ThisWorkbook 
Set Wb1 = ThisWorkbook 

'To This 
'Set wb2 = Workbooks(2) 
Set wb2 = Workbooks.Open("C:\path\of\file.xlsx") 

'Copy Data from Wb1.Sheet1 to Wb2.sheet1 
Wb1.Sheets(1).Range("A1").CurrentRegion.Copy wb2.Sheets(1).Range("A1") 

End Sub

来源

2011-10-19 17:49:18

的帮助喜感谢，但我需要使用特殊粘贴文本在代码中才有的功能你能帮助我了解这些代码....我忘了提及工作簿已经打开状态和一个.xlsm文件（“目标文件”），如何提前引用该文件 –

复制excel数据到另一个Excel中VBA

回答

相关问题