从关闭的工作簿复制到打开的工作簿

Question

我正在尝试创建代码以从未打开的 excel 工作簿复制到打开的工作簿。

这是我一直在使用的代码：

Sub foo()
Dim x As Workbook
Dim y As Workbook

Set x = Workbooks.Open("R:\Manufacturing\First Off Log\First Off Log.xlsm", ReadOnly:=True)
Set y = Workbooks.Open("R:\Manufacturing\First Off Log\Analysis\First Off Log Analysis.xlsm")

x.Sheets("Sheet1").Range("A:K").Copy

y.Sheets("Data Input").Range("A:K").PasteSpecial

'Close x:
x.Close

End Sub

'First Off Log Analysis' 将已经打开。上面的代码重新打开工作簿并导致它崩溃！

非常感谢任何帮助！

谢谢！ :-)

Answer 1

关于First Off Log.xlsm是放置代码的工作簿，已经打开了。因此代替：

Set x = Workbooks.Open("R:\Manufacturing\First Off Log\First Off Log.xlsm", ReadOnly:=True)

写

Set x = ThisWorkbook

从关闭的工作簿复制到打开的工作簿

Copy from a closed workbook to an open workbook

excel

vba

copy-paste