Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Hola a todos, tengo la siguiente parte de una macro y solicito su ayuda:
nombre=prueba.xslx
'creo un objeto:
Set XL = CreateObject("Excel.Application")
XL.Visible = True
'creo un nuevo libro llamado "prueba", cierro el archivo
Workbooks.Add
ActiveWorkbook.SaveAs nombre, -4143
ActiveWorkbook.Close
'abro con XL el libro creado
XL.Workbooks.Open "prueba.xslx"
'Selecciono la celda "a1" en el archivo prueba creado, hasta aquí no hay problema
XL.Workbooks(nombre).Sheets(1).Range("a1", "a1").Select
'aqui está el problema pues al ejecutar estos comandos, estos se ejecutan en el libro desde el que corro la macro
'lo que necesito es que corran desde el nuevo libro "prueba" que fue creado
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
ActiveCell.Rows("1:1").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Espero que puedan ayudarme, lo que necesito es trabajar sobre el archivo que es creado por el excel.application.
Saludos,
Patricio