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
Buenos días;
A ver si me podéis ayudar.
Tengo problemas con la apertura de un archivo CSV desde una macro.
A veces, al abrirlo desde la macro, se come el encabezado pero no pasa siempre, no sé qué puede pasar….
La configuración regional es de “;” igual que la separación del csv.
He intentado adjuntar el excel pero...ya no se como se hace, no me aparece la opción, lo arrastro desde el escritorio y nada.
Os añado las líneas que tengo.
Workbooks.OpenText Filename:=RutaExcel, _
DataType:=xlDelimited, Local:=True
Gracias y un saludo,