Vba copia (hoja A de A1 EXCEL en la ruta A) a (hoja B de B1 EXCEL en la ruta B).

Agregue un "botón de comando" a cualquier página de tabla en la hoja de trabajo EXCEL, el código es el siguiente:

Botón de subcomando privado 1_Click()

Macro1

Conector final

' ****************************

El código del módulo es el siguiente:

Sub macro 1()

workbooks open(" d: \ 456 \ A 1 . xls ")'Aquí está (la hoja de trabajo de A1 EXCEL bajo la ruta A). ).

Hoja("AHoja"). Hacer hojas de actividades

("ashit"). Seleccione

workbooks . open(" d: \ 123 \ B 1 . xls ") 'Aquí está (la hoja de trabajo de B1 EXCEL en la ruta B).

Libro de trabajo("A1.XLS"). Sábanas ("ashit"). Copiar después de: =Workbooks("B1.xls "). hojas(3)

Libro de trabajo("b1.xls"). hoja activa. name = "BSheet " 'El nombre de Asheet aquí se cambia a BSheet y el nombre se repetirá por segunda vez (puede determinar si existe, cambiarle el nombre si no existe, no cambiarle el nombre ni copiarlo si existe).

Libro de trabajo(" A1.xls "). Cierre

el libro de trabajo (" B1.xls "). Rescate

Libro de trabajo(" B1.xls "). Cerrar

Fin de ajuste

¡En su caso, la posible causa es la creación de una nueva "Hoja" llamada "ASheet"!