Una macro suya para guardar a PDF ahora me da error al guardar
Hace tiempo que vengo usando una macro suya para guardar libros de Excel a PDF.
El problema viene que al guardar el archivo en la ruta aparece con un archivo extra (un temporal; de estos que salen como en gris). Al intentar abrir el PDF guardado me sale el siguiente mensaje: "error al abrir el documento. El archivo ya está abierto o esta siendo utilizado por otra aplicación".
No me deja eliminar el PDF hasta que no se cierra Excel. Una vez cerrado Excel, el archivo temporal decaparse y al intentar abrir el PDF aparece: "Adobe Acrobat no pudo abrir"..." debido a que no es un archivo admitido o esta dañado(por ejemplo, se envió como adjunto de correo electrónico y no se descodificó correctamente )
Para crear un documento Adobe PDF, vaya a la aplicación de origen. A continuación, imprima el documento en Adobe PDF"
El problema tiene que ver con algo relacionado con la macro, ya que al guardar "normal", es decir, Archivo<guardar como<... Se guarda el PDF correctamnete.
1 respuesta
[Ho la Ramon b y bienvenido a TodoExpertos!
Visita:
Cursos de Excel y Macros - YouTube
¿Sabes de quién es la macro?
Puedes poner aquí la macro para revisarla.
Recomendaciones:
Generar archivos en automatico . curso de macros . excel . macros - YouTube
Consejos para desarrollar macros . curso de excel, curso de macros, excel, macros - YouTube
Sub GuardarComoPDF()
'Por.
' GuardarComoPDF Macro
'
' Acceso directo: CTRL+m
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ruta = Range("E3").Value & " " & "Nº" & " " & Range("A5").Value
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar archivo como"
.AllowMultiSelect = False
.InitialFileName = ruta
.FilterIndex = 25
If .Show Then
march = .SelectedItems(1)
ActiveWorkbook.SaveAs Filename:=march, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
End With
Application.ScreenUpdating = False
Application.DisplayAlerts = False
End Sub
Buenas!
Ya lo solucioné!
Me faltaba el "Else Exit Sub" del la linea If .Show Then march = .SelectedItems(1) Else Exit Sub.
Aún así gracias!!
Un saludo
