Copiando rango y pegando en nuevo libro de trabajo
Esto debería ser realmente simple, pero he estado rastreando foros y SO respuestas durante horas para encontrar la respuesta sin suerte, así que (a regañadientes) estoy creando una pregunta por mi cuenta.
Lo que estoy tratando de hacer es simplemente crear un nuevo libro de trabajo y pegar un rango de otro libro en ese libro. Suena simple ..?
Mi libro de trabajo original, llamemos Book1. Estoy intentando crear un nuevo libro de trabajo, Book2, que copiarévalores de las celdas A1: B10 a.
Aquí hay una versión de mi código (comenzando con Book1 abierto):
Range("A1:B10").Copy
Set NewBook = Workbooks.Add
With NewBook
.SaveAs Filename:="Book2.xls"
End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Esto da un error "PasteSpecial of Falló la clase de rango". He intentado las siguientes correcciones sin suerte:
añadido 'Libros de trabajo ("Book2.xls"). Activar' al códigoSe eliminaron los argumentos extra en la línea de PasteSpecial.probé '.Paste' en lugar de '.PasteSpecial'cambiado 'Selection.PasteSpecial' a 'ActiveSheet.PasteSpecial'referencia explícita al rango de copia, incluido el libro de trabajo y la hoja de referenciaprimero cree el nuevo libro de trabajo, luego realice la copia, antes de reactivar el nuevo libro y pegarNinguna de las soluciones anteriores funciona ... ¡cualquier sabiduría en esta etapa será recibida con gratitud!