Aprende como convertir uno o varios archivos PDF a Excel con macros sin programas gratis y convertidores de internet, es decir directamente desde Excel.
¿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
- Colocamos la ruta donde tenemos los archivos de pdf y la ruta donde vamos a guardar los archivos de excel
- Tener guardado el archivo en formato XLSM que es la extensión para macros.
Copiamos la macro que se puede descargar en la parte inferior del articulo.
Posteriormente nos dirigimos para herramientas y referencias.
Aquí es muy importante habilitar las herramientas de Microsoft Scripting Runtime y Microsft word 10.0 object Library
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.