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