Programación de macros VBA, el método Copiar no se puede ejecutar

Referencia:

Sub Copy_diferente()

'Declarar relacionado con Excel

Dim xlApp As Excel.Application

Atenuar xlBook como Excel.Workbook

Atenuar myBook como Excel.Workbook '¡Agregar códigos!

¿Eliminar códigos 'Dim xlSheet As Excel.Worksheet'?

'Set xlApp = Nuevo Excel.Application '¿Quitar códigos?

Set xlApp = GetObject(, "Excel.Application") '¡Agregar códigos!

'Obtener el archivo Excel especificado

Set xlBook = xlApp.Workbooks.Open("d：\1234.xls")

Set myBook = xlApp. ¡Agregar códigos de este libro de trabajo!

'Obtener la hoja especificada

'Set xlSheet = xlBook.Worksheets(1) '¿Quitar códigos?

myBook.Sheets(2).Range("A:A").Copia _

Destino:=xlBook.Sheets(1).Range("B:B") 'Códigos cambiados.

xlBook.Close True

Set xlApp = Nothing '¡Agregar códigos!

Establecer xlBook = Nada

Establecer myBook = Nada

End Sub