Я новичок в VBA и использую сайт для сборки решения.Excel VBA - выберите книгу для копирования и вставки в существующую книгу в следующей пустой строке
Мне нужно написать макрос, предлагающий пользователю открыть файл (wb2), скопировать строку данных из листа 1 в эту книгу (wb2), а затем вставить ее в следующую пустую строку в исходной книге (wb) также на Sheet1. Я получил его для работы до тех пор, пока не попытаюсь добавить код для вставки в следующую пустую строку. Теперь я получаю следующее сообщение об ошибке «Ошибка времени выполнения» 438: Объект не поддерживает это свойство или метод »
Любая помощь будет принята с благодарностью.
Sub test()
Dim wb As Workbook, wb2 As Workbook
Dim ws As Worksheet
Dim vFile As Variant
'Set source workbook
Set wb = ActiveWorkbook
'Open the target workbook
vFile = Application.GetOpenFilename("Excel-files,*.xlsx", _
1, "Select One File To Open", , False)
'if the user didn't select a file, exit sub
If TypeName(vFile) = "Boolean" Then Exit Sub
Workbooks.Open vFile
'Set selectedworkbook
Set wb2 = ActiveWorkbook
wb2.Range("A3:E3").Select
Selection.Copy
wb.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
wb2.Close
'Set targetworkbook
Set wb = ActiveWorkbook
End Sub
Благодарим за быстрый ответ. Я просто попробовал ваше обновление, но я все еще получаю ту же ошибку: «Ошибка времени выполнения 438»: объект не поддерживает это свойство или метод ». – user3108483
попробуйте цепочку 1 за раз, чтобы увидеть, где ошибка, потому что это может быть wb не поддерживает '.Cells', так как это метод рабочей таблицы. – engineersmnky
Хорошая идея. Я прошел через это, как вы предлагали, и ошибка возникает, когда она попадает в кусок «.Cells». – user3108483