从其他excel文档导入单元格数据

我正在尝试创建一个宏，该宏从ImportSetFile获取水平数据，并使用新文件格式将其垂直粘贴到另一个文件中。IMPORTTETSTFILE中的数据在更新时可能会变长（这就是我使用计数的原因）

我的问题是，每当我使用Paste special时，以及当我只使用ActiveSheet时，都会出现一个错误。粘贴导入到其中的excel文件将停止允许我单击单元格。 最后，我想从ImportSetFile复制多行数据，但现在我只想先得到一行

ImportTestFile是2.3Mb，如果您认为这是导致单击问题的原因，您知道我可以如何从中导入数据而不发生此问题吗

Sub copydata()
Dim erow, eColumn As Long, rowUsed As Long, lastcolumn As Long, firstColumn As Long
Dim managerName, managerLetter, fileName, fileLocation, fileType As String

Workbooks.Open fileName:="/Users/james/Desktop/ImportTestFile.xlsx"
Worksheets(1).Select
rowUsed = 28
firstColumn = 4
lastcolumn = ActiveSheet.Cells(28, Columns.Count).End(xlToLeft).Column
Range(Cells(rowUsed, firstColumn), Cells(rowUsed, lastcolumn)).Copy
ActiveWorkbook.Close

Worksheets(1).Select
Cells(1, 1).Select
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Transpose:=True

End Sub

---

Hi@james code似乎不错尝试关闭其他打开的excel文件并重试。我创建了一个新的excel文档并将此代码添加到其中，然后运行它，它仍然与ActiveSheet.PasteSpecial有错误，但感觉/点击问题确实消失了。