Ошибка отладки 438 Excel VBA копировать из одной книги в другую

Question

Когда я запускаю этот код, я получаю следующую ошибку "Ошибка времени выполнения '438': объект не поддерживает это свойство или метод" в этой строке кода:

'скопируйте диапазониз исходной книги

wbFrom.Range ("A: A"). Копия

Sub CopyOpenItems()
'
' CopyOpenItems Macro
' Copy open items to sheet.
'
' Keyboard Shortcut: Ctrl+Shift+O
'
Dim wbTarget As Workbook 'workbook where the data is to be pasted
Dim wbFrom As Workbook 'workbook from where the data is to be copied
Dim wsFrom As Worksheet
Dim wsTarget As Worksheet

'set to the current active workbook (the source book)
Set wbTarget = ActiveWorkbook
Set wsTarget = wbTarget.Worksheets(1)


'open a workbook that has same name as the sheet name
Set wbFrom = Workbooks.Open("......")
Set wsFrom = wbFrom.Worksheets(1)


'activate the source book
wbFrom.Activate

'clear any thing on clipboard to maximize available memory
Application.CutCopyMode = False

'copy the range from source book
wbFrom.Range("A:A").Copy

'paste the data on the target book
wbTarget.Range("A:A").PasteSpecial

wbFrom.Range("C:C").Copy
wbTarget.Range("C:C").PasteSpecial

wbFrom.Range("D:D").Copy
wbTarget.Range("D:D").PasteSpecial

wbFrom.Range("F:F").Copy
wbTarget.Range("F:F").PasteSpecial

wbFrom.Range("J:J").Copy
wbTarget.Range("J:J").PasteSpecial

wbFrom.Range("K:K").Copy
wbTarget.Range("K:K").PasteSpecial

'clear any thing on clipboard to maximize available memory
Application.CutCopyMode = False

'save the target book
wbTarget.Save
wbFrom.Save


'close the workbook
wbFrom.Close

'activate the source book again
wbFrom.Activate


'clear memory
Set wbTarget = Nothing
Set wbFrom = Nothing

End Sub

Я не могу понять, что с ним не так.Думаю, смысл кода довольно прост: скопируйте выбранные столбцы из одной рабочей книги и вставьте ее в другую.Кроме того, этот код является слегка измененной версией кода, который можно найти по этой ссылке https://ccm.net/faq/24666-copy-data-to-another-workbook-in-excel