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

Question

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

我的问题是，每当我使用特殊粘贴时都会出现错误，当我只使用 ActiveSheet.Paste 时，我正在导入的 Excel 文件停止允许我单击单元格。最终，我想从 ImportTestFile 复制多行数据，但现在我只是想先得到一行。

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

标签： excelvbaimportpastefreeze