Я могу прочитать другую книгу и скопировать ее содержимое, но при попытке вставить в существующую таблицу - Excel зависает и зависает.Если я скопирую данные на другой лист без существующей таблицы, то она будет работать нормально.
Я использую это:
Dim sFound as String
Dim lRow as Long
Dim data_sheet As Worksheet
Dim wb as Workbook
Dim wb_data as Workbook
Set wb = ThisWorkbook
sFound = Dir(ActiveWorkbook.Path & "\data*.csv)
If sFound <> "" Then
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & sFound
End If
Set wb_data = ActiveWorkbook
Set data_sheet = Sheets("raw data")
lRow=data_sheet.Cells(data_sheet.Rows.Count,2).End(xlUp).Row
data_sheet.Range("A10:V" & lRow).Copy
wb.Sheets("Data").Range("Data[Code]").PasteSpecial
Application.CutCopyMode = False
wb_data.Close
Любая помощь в том, почему паста вызывает зависание втаблица была бы очень признательна.
2018-09-21 Обновление Мне удалось исправить замораживание и зависание через комбинацию поста Marucciboy2 и моего собственного исследования.Я сохранил весь набор необработанных данных, который я копировал, в переменную варианта.Затем я изменил размер новой таблицы, в которую я копировал, до той же длины, что и необработанные данные.Затем я просто устанавливаю значение всего диапазона данных так же, как переменную варианта.Я обновлю это с кодом.
У меня все еще есть одна проблема - выяснить, как скопировать один конкретный столбец или определенный диапазон столбцов одной таблицы в другую таблицу.Я могу изменить размер новой таблицы просто отлично.Я просто не знаю, как установить один столбец в переменную варианта или если мне нужно сделать что-то еще.Тогда я не знаю, как установить новый столбец таблицы в эту переменную варианта.Опять же, завтра нужно будет отправить код.