Меня попросили преобразовать данные в электронной таблице в таблицу.
В эту таблицу необходимо вставить данные из другой книги.
Код, который у меня есть, работает нормально, пока данные находится в форме электронной таблицы, но после изменения в таблицу я не могу получить код для добавления новой строки или вставки данных в эту строку.
Это текущий код, который работает, пока данные не находятся в Форма таблицы.
Sub CopytoResults()
Dim destSht As Worksheet
Application.ScreenUpdating = False
'Copy the range
ActiveSheet.Range("C52:AJ52").Select
Selection.Copy
'Open the Results spreadsheet and paste to the next available row
Workbooks.Open (ActiveWorkbook.Path & "\Quality_ResultsTST.xlsx")
Set destSht = ActiveWorkbook.Worksheets("Staff Results")
destSht.Activate
'Paste Data
destSht.Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues
'Save and Close the Results Spreadsheet
destSht.Parent.Close True
'Set Focus to the QA_QC Assessment form
Application.CutCopyMode = False
Windows("QA Form V2.xlsm").Activate
ActiveSheet.Range("E7").Select
Application.ScreenUpdating = True
End Sub
Имя таблицы - Results
Я пробовал несколько решений с этого и других сайтов, но безрезультатно.
Я знаю, используя select et c дурной тон, но это не мой код, я обновляю старое приложение.
Большое спасибо