Импорт данных ячейки из других документов Excel - PullRequest
Новая
       14

Импорт данных ячейки из других документов Excel

0 голосов
/ 30 мая 2018

Я пытаюсь создать макрос, который берет горизонтальные данные из ImportTestFile и вставляет их в другой файл по вертикали, используя новый формат файлов.Данные в ImportTestFile могут становиться длиннее по мере их обновления (именно поэтому я использовал счетчик).

Моя проблема в том, что я получаю сообщение об ошибке всякий раз, когда использую Специальную вставку, и когда я просто использую ActiveSheet. Вставить файл Excel, который я импортирую, перестает позволять мне нажимать на ячейки.В конце концов, я хочу скопировать несколько строк данных из ImportTestFile, но сейчас я просто пытаюсь сначала получить одну строку.

ImportTestFile - это 2,3 Мб, если вы думаете, что это является причиной проблем с щелчками, знаете ли вы способ, которым я мог бы импортировать данные из него без возникновения этой проблемы? 

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
...