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

＆＃39;首次关闭日志分析＆＃39;已经开放了。上面的代码重新打开工作簿并导致它崩溃！

任何帮助都会非常感激！

谢谢！： - ）

Answer 1

关于<script src="https://cdnjs.cloudflare.com/ajax/libs/Chart.js/2.7.2/Chart.bundle.js"></script> <div class="container"> <div> <div id="chart"><canvas id="myChart"></canvas></div> <div id="legend"></div> </div> </div>是放置代码的工作簿，它已经打开。因此，而不是：

First Off Log.xlsm

写

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

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

1 个答案: