Anuncios

domingo, 2 de mayo de 2021

Como Convertir uno o varios archivos de PDF a Excel con MACROS // SIN PROGRAMAS GRATIS y CONVERTIDORES

Aprende como convertir uno o varios archivos PDF a Excel con macros sin programas gratis y convertidores de internet, es decir directamente desde Excel.

convertir archivos pdf en excel con macros



¿Como convertir uno o varios archivos de pdf en excel con macros?


Para poder ejecutar la macro te recomiendo que comiences viendo una ilustración con un video de la ejecución de la macro.


Teniendo en cuenta lo anterior para ejecutar la macro sin ningún error debemos de tener en cuenta varios parámetros.

  • Nombrar la hoja de trabajo como Parámetro

convertir archivos pdf en excel con macros

  • Colocamos la ruta donde tenemos los archivos de pdf y la ruta donde vamos a guardar los archivos de excel

convertir archivos pdf en excel con macros

  • Tener guardado el archivo en formato XLSM que es la extensión para macros.

Ahora nos vamos para la pestaña programador o desarrollador y nos dirigimos para visual basic

icono de visual basic


Insertamos un nuevo modulo.

insertar modulo en macros


Copiamos la macro que se puede descargar en la parte inferior del articulo.



convertir archivos pdf en excel con macros

Posteriormente nos dirigimos para herramientas y referencias.


convertir archivos pdf en excel con macros

Aquí es muy importante habilitar las herramientas de Microsoft Scripting Runtime y Microsft word 10.0 object Library


convertir archivos pdf en excel con macros


Insertamos un botón para ejecutar la macro


convertir archivos pdf en excel con macros


cuando se ejecute la macro nos va salir una ventana de que el proceso termino y nos convierte todos los archivos que tenemos en una carpeta y no las convierte en excel.

convertir archivos pdf en excel con macros


La macro consiste en lo siguiente.


Option Explicit
Sub PDF_a_Excel()

Aquí Nombramos el parámetro hoja como hoja de calculo
Dim Parametro_Hoja As Worksheet

Nombramos Parámetro Hoja es igual a la hoja Parámetro de este archivo
Set Parametro_Hoja = ThisWorkbook.Sheets("Parametro")

Nombramos las variables de las rutas para los archivos pdf y excel como texto
Dim Ruta_pdf As String
Dim Ruta_excel As String

Aquí Le asignamos las rutas a las dos variables
Ruta_pdf = Parametro_Hoja.Range("C14").Value
Ruta_excel = Parametro_Hoja.Range("C15").Value

Nombramos las variables para el objeto, para la carpeta y el archivo
Dim fso As New FileSystemObject
Dim Carpeta As Folder
Dim Archivo As File
Set Carpeta = fso.GetFolder(Ruta_pdf)

Se nombra la variables como objetos para la aplicacion de Word

Dim Word_App As Object ' Word Aplicación
Dim Word_Doc As Object ' Word Documento
Dim Word_Rango As Object ' Word rango
Set Word_App = CreateObject("word.application")

La ventana de Word este visible

Word_App.Visible = True

Nombramos las variable para el nuevo libro y hoja de excel.
Dim New_Libro As Workbook
Dim New_Hoja As Worksheet

Creamos un ciclo para la cantidad de archivos que tengamos en la carpeta PDF
For Each Archivo In Carpeta.Files
Set Word_Doc = Word_App.documents.Open(Archivo.Path, False, Format:="PDF Files")
Set Word_Rango = Word_Doc.Paragraphs(1).Range
Word_Rango.WholeStory

Creamos un nuevo libro y en la nueva hoja copiamos la información de word
Set New_Libro = Workbooks.Add
Set New_Hoja = New_Libro.Sheets(1)
Word_Rango.Copy

Pagamos los datos en la hoja de excel
New_Hoja.Paste

Guardamos el archivo en la ruta de excel con el nombre del archivo de pdf
New_Libro.SaveAs (Ruta_excel & "\" & Replace(Archivo.Name, ".pdf", ".xlsx"))

Cerramos el archivo de word y el nuevo archivo de excel
Word_Doc.Close False
New_Libro.Close False
Next

Quitamos la aplicación de word
Word_App.Quit

Colocamos un mensaje de listo al finalizar el ciclo
MsgBox "Listo"

End Sub


En el siguiente ENLACE puedes DESCARGAR la Macro.


Seguramente quieres sabes más acerca de Excel, no te olvides darte una vuelta por las siguientes secciones disponibles para ti de manera gratuita: 


Canal de YouTube
Comunidad Telegram
Instagram: Aprende y Enseña Excel
Facebook: Aprende Excel Fácil
Twitter: Aprende y Enseña Excel


Hasta una próxima y te deseo el mayor de los EXITOS.


Aprende y Enseña Excel.