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

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

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

1RESUELTO Generar un Archivo en pdf el 23/04/14, 06:19 pm

mayor311


hola, amigos de universoexcel

tengo este codigo que me facilito un amigo para generar archivos en pdf

On Error Resume Next
Dim i As Integer
If Range("t2") = "" Then Exit Sub
If Range("t3") = "" Then Exit Sub
If Range("t4") = "" Then Exit Sub



MkDir ("d:\" & .Range("a6") & "\")
MkDir ("d:\" & .Range("a6") & "\" & Range("T2")) 'crear la segunda carpeta

MkDir ("d:\" & .Range("a6") & "\" & Range("T2") & "\" & Range("t3")) 'crear la tercer carpeta
 
ChDir "d:\" & Hoja5.Range("a6") & "\" & Range("T2") & "\" & Range("T3") 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"d:\" & .Range("a6") & "\" & Range("T2") & "\" & Range("T3") & "\" & Hoja7.Range("T4") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False


don el rango a6  es carpeta principal
don el rango t2  es carpeta secundaria
don el rango t3  es carpeta tercera
don el rango t4 es nombre del archivo

resulta que cada archivo tiene que generarse con la fecha del dia pero  colocarle la fecha las carpetas se crean pero el archivo en pdf no.

2RESUELTO Re: Generar un Archivo en pdf el 23/04/14, 09:03 pm

tyno


Hola mayor311.
Aunque no se como queda el nombre del archivo en la celda Hoja7.Range("T4") , desde ya te comento que si ese nombre incluye una fecha con este formato: "01/01/2014"  no te va a dejar guardar ningún archivo de esa forma ya que no se pueden guardar archivo con el carácter "/". Si es así lo que te tienes que hacer es reemplazar el  carácter "/" por algún otro permitido, por ejemplo un guión medio "-" , entonces debería quedar así:

Replace( Hoja7.Range("T4") ,"/","-")

o sea:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"d:\" & .Range("a6") & "\" & Range("T2") & "\" & Range("T3") & "\" & Replace( Hoja7.Range("T4") ,"/","-") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Saludos.

3RESUELTO Re: Generar un Archivo en pdf el 24/04/14, 01:41 am

mayor311


hola, tyno

en la hoja7.range("t4") se localiza la fecha del dia , y pues lo que se necesita es que el archivo generado en pdf se guarde con el nombre de la fecha del dia ya hize lo que me digiste pero no me genera el archivo

saludo

4RESUELTO Re: Generar un Archivo en pdf el 24/04/14, 02:21 pm

tyno


Pues tendrías que pasar el archivo para ver que pasa.

5RESUELTO Re: Generar un Archivo en pdf el 25/04/14, 01:53 am

mayor311


buenas noches
hay te paso el archivo gracias

hola tyno,
sera que tu me puedes regalar tu correo para haber si  me colaboras con una macro que estoy haciendo para la universidad es un poco compleja y pues me hacen flatas unas cosas y veo que eres una persona muy inteligente en las cuestiones de las macros las manejas muy bien gracias tyno
Archivos
generar archivo en pdf.xlsm
No tienes los permisos para descargar los archivos.
(24 KB)

6RESUELTO Re: Generar un Archivo en pdf el 25/04/14, 11:10 am

tyno


Hola mayor311.
Con respecto al correo, como ahora estoy medio complicado con los tiempos para desarrollar trabajos complejos, trato de no dejar mi correo en el foro para que no me caiga todo el mundo a solicitar archivos personalizados, sin embargo si tienes algo de paciencia y tiempo lo que te sugiero es que me pases en este tema tu correo asi te respondo al mismo para que tengas mi mail, luego borro tu correo del foro para que no quede publicado innecesariamente. Saludos

7RESUELTO Re: Generar un Archivo en pdf el 25/04/14, 04:52 pm

tyno


Hola mayor311.

Revise el código de la macro para guardar el pdf y parece funcionar bien, lo que hice fue lo que te comente antes, lo de reemplazar "/" por un "-" ya que la fecha se toma con el formato 01/01/2014. Claro esta que no se puede guardar en un mismo dia dos archivos si es que tienen la misma fecha, ya que esto sería como intentar guardar dos archivos con el mismo nombre lo cual no es posible:

Option Explicit

Private Sub CommandButton1_Click()
'''On Error Resume Next
If Range("c2") = "" Then Exit Sub
If Range("c3") = "" Then Exit Sub
If Range("c4") = "" Then Exit Sub

'si el documento y carpetas ya existe se eliminan


'si no existen las carpetas y el documento se crean
MkDir ("c:\" & Range("c2") & "\")
MkDir ("c:\" & Range("c2") & "\" & Range("c3")) 'crear la segunda carpeta

MkDir ("c:\" & Range("c2") & "\" & Range("c3") & "\" & Range("c4")) 'crear la tercer carpeta
 
ChDir "c:\" & Range("c2") & "\" & Range("c3") & "\" & Range("c4") 'crear el documento pdf (su nombre se toma de la celda T4)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"c:\" & Range("c2") & "\" & Range("c3") & "\" & Range("c4") & "\" & Replace(Range("c5"), "/", "-") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub


Saludos

8RESUELTO Re: Generar un Archivo en pdf el 26/04/14, 12:41 am

mayor311


doy por terminado el tema gracias tyno eres un Duro para las macros Dios lo bendiga ssaludos

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.