我想将数据从一个已打开的 Excel 实例复制到 VBA 中的另一个 Excel 实例。我试过:
Option Explicit
Sub copy_paste()
Dim destination_sanitized As String
Dim fs As New FileSystemObject
destination_sanitized = fs.BuildPath("c:\temp\", "1.xlsx")
Dim xl As New Excel.Application
Dim wb As Workbook
Set wb = xl.Workbooks.Open(Filename:=destination_sanitized)
Dim r1 As Range
Dim r2 As Range
Set r1 = ThisWorkbook.Sheets("hidden").Range("E10:E13")
Set r2 = wb.Sheets("Sheet1").Range("J20:J23")
On Error GoTo Cleanup
r1.Copy r2
Cleanup:
wb.Close SaveChanges:=False
Set xl = Nothing
MsgBox Err.Number & ": " & Err.description
End Sub
我收到运行时错误“1004”:Range 类的复制方法失败
如何在 VBA 中将数据从一个已打开的 Excel 实例复制到另一个 Excel 实例?
我知道当它们属于同一实例时如何执行此操作。在这种特殊情况下,我需要将两个工作簿放在不同的实例中。我还需要做一个完整的副本(数据验证、公式、值、格式等),所以 r2.Value = r1.Value 是不够的。
让两个 Excel 实例在所有情况下都能相互通信是很困难的。您可以找到其他正在运行的实例,但要考虑的事情太多了。
在类似的情况下,我会保持简单并制作两个按钮:
-
Export保存到clipboard.csv或clipboard.xlsx或其他
格式化您想要复制的数据
-
Import从剪贴板临时文件中获取数据
用户负责单击一个实例上的“导出”按钮,然后单击第二个实例上的“导入”按钮。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)