UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

A partir del 25 de Enero del 2019 para entrar al foro será con la URL: excel.foroactivo.com Ya se notificó vía e-mail a todos los miembros. Administración UniversoExcelForo. 20-Ene-2019.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

RAMONET6466


Hola compañeros, en primer lugar Feliz Año a todos.
Tengo una pequeña duda la cual creo que por lo que he investigado no tiene una solucion sencilla.
He creado una macro muy sencilla para guardar un pdf con ruta y nombre, hasta ahi perfecto.
La macro es esta:
Sub GUARDARPDF()
     
nombre = WorksheetFunction.Text(Cells(2, "D"), "dddd-dd-mmm-yyyy")
ruta = Cells(2, 10).Value
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ruta & nombre, Quality:= _
    xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub
Funciona perfectamente pero el problema es que cuando lo guardo, el formato de fecha que me sale esta en ingles. por ejemplo: Tuesday-01-Jan-2019
he rebuscado por medio internet y por lo que he visto, dicen que por defecto vba siempre usa el ingles.
Existe algun codigo o solucion practica para que salga en español?
Gracias a todos.

RAMONET6466


Ya lo he resuelto.
He añadido unas variables y he conseguido que salga la fecha en español.
Por si alguien lo puede necesitar pego el codigo nuevo para que vea las diferencias.

Sub GUARDARPDF()
Dim RutaArchivo As String
Ruta = "C:\Users\Distinto\Documents\Hojas de caja R\2019\Caja Dia -" 'Carpeta donde quieras guardar el pdf
nombre = Format(Cells(2, "D"), "dddd-dd-mm-yyyy")  'Celda en donde tienes la fecha en el documento u hoja, el formato de fecha puedes modificarlo a tus necesidades, dddd = dia semana, dd = nº dia, mm = mes, yyyy = año, puedes añadir hora, minutos y segundos si deseas.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Ruta & nombre, Quality:= _
    xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
    
    End Sub

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.