Ruta archivo, no hay forma de ponerla.

14/03/2009 - 11:10 por VIC | Informe spam
Vuelta con la macro porque no consigo saber cómo ponerlo:

Hice una macro para que me guardara en formato .pdf la hoja activa y que
nombrara el archivo con el valor que hay en la celda "D2".
Quiero que se guarde en la cuta C:\Users\Public\CONTROL\"
Hice la siguiente macro y no consigo hacerla funcionar. El problema está en
que el nombre del archivo no lo pongo correctamente.




Sub guardado()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Public\CONTROL\=Range("D2").pdf",
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False,
OpenAfterPublish:= _
True
End Sub
 

Leer las respuestas

#1 Héctor Miguel
14/03/2009 - 19:54 | Informe spam
hola, victor !

cambia esta parte de tu codigo:
"C:\Users\Public\CONTROL\=Range("D2").pdf"

por esta otra:
"c:\users\public\control\" & Range("d2") & ".pdf"

saludos,
hector.

__ OP __
Vuelta con la macro porque no consigo saber como ponerlo:
Hice una macro para que me guardara en formato .pdf la hoja activa
y que nombrara el archivo con el valor que hay en la celda "D2".
Quiero que se guarde en la cuta C:\Users\Public\CONTROL\"
Hice la siguiente macro y no consigo hacerla funcionar.
El problema esta en que el nombre del archivo no lo pongo correctamente.
Sub guardado()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Public\CONTROL\=Range("D2").pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Preguntas similares