尝试复制工作簿数据，但当源打开时没有任何反应

Question

I'm using the following code:
Dim sourceBook As Workbook
Dim targetBook As Workbook
'## Open both workbooks first:
Set targetBook = Application.ActiveWorkbook
Set sourceBook = Application.Workbooks.Open("...DocumentsLog.xlsm")
'
With sourceBook.Sheets("Sheet1").UsedRange
'Now, paste to y worksheet:
targetBook.Sheets("Sheet1").Range("A1").Resize( _
.Rows.Count, .Columns.Count) = .Value
End With
'Close
sourceBook.Close

但是当我运行它时，我的源书打开了，之后什么也没发生。不知道我错过了什么。两个工作簿具有相同的扩展名 xlsm。我试图将源也更改为 xlsx，但结果相同

编辑：我用以下内容替换了with语句： targetBook.Sheets("Sheet1"(.范围("A1"(。Value = sourceBook.Sheets("Sheet1"(。范围("A1"(

至少看看我是否可以复制 1 个值，但是当打开资料集时，它就停在那里。

Answer 1

我已经重新创建了您的示例，并认为这与您打开文档的方式有关。在你的打开方法中，你有三个点打开("...\documents"(

它为我提出了一个错误，所以你能检查一下你的意思吗？如果我使用..\ 而不是 ...\