Visual Basic - ABRIR PDF DE FORMA CONDICIONADA POR EL NOMBRE

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

ABRIR PDF DE FORMA CONDICIONADA POR EL NOMBRE

Publicado por Marco Antonio (4 intervenciones) el 04/03/2024 23:50:15
Hola muchachos
Tengo un caso el cual describo:

En una hoja de excel, en una celda tengo el texto que es el nombre de una empresa por ejemplo: GLD TRANSPORT S.A.C. Tambien un boton. Se necesita hacer una macro que:


al hacer clic en el boton abra un archivo en PDF (tal cual como se hace desde la cinta Datos/Obtener datos/De un archivo/De PDF)

El nombre del archivo a abrir tiene esta estructura PDF2XXXXXXXXX############# (La X son textos que en cojunto es el nombre de la empresa si espacios ni puntos y el numeral es un correlativo numerico autogenerado). Por ejemplo siguiendo con el ejemplo de la empresa GLD TRANSPORT S.A.C. :

PDF2GLDTRANSPORTSAC2902202410454

Lo que se necesita es que al abril el archivo en PDF primero compare el texto de la celda con el nombre del archivo y si coincide o empatan el texto y el nombre del archivo, que lo abra y ademas de eso abra las 7 primeras paginas y 7 primeras tablas. Esto con la finalidad de luego extraer información y completar datos en la misma hoja.

Por favor agradezco su ayuda!!

Atte
Marco
Captura5
Captura4
Captura3
Captura2
Captura1
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ABRIR PDF DE FORMA CONDICIONADA POR EL NOMBRE

Publicado por Antoni Masana (563 intervenciones) el 08/03/2024 14:12:12
La primera parte del código es buscar el archivo PDF.

Esto parcialmente lo hace:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Nombre_PDF(Nombre)
    Dim Texto as String, a as Integer
    Texto = "PDF2"
    FOR a =  1 to Len(Nombre)
        If Instr(" ,.", mid(Nombre, a, 1))=0 Then
            Texto = Texto + mid(Nombre, a, 1)
        End If
    Next
    Nombre_PDF=Texto
End Function
 
Sub Macro()
    Dim Archivo_PDF as String, Ruta as String
    Ruta  = "C:\Directorio_PDF\"
    Archivo_PDF = Ruta + Dir(Nombre_PDF(Ruta + "GLD TRANSPORT S.A.C. ") + "*.PDF")
    etc.
End Sub

Cambia la ruta y el nombre de la empresa por la celda que corresponda.
La segunda parte es donde pone etc. para ello has lo siguiente:
- GRABAR MACRO.
- Exportar de forma manual el archivo PDF.
- DETENER MACRO.

y con unos pequeños cambios ya tienes el código completo.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

ABRIR PDF DE FORMA CONDICIONADA POR EL NOMBRE

Publicado por Marco Antonio (4 intervenciones) el 11/03/2024 02:02:54
Hola Antoni Masana, MUCHAS GRACIAS
lo estare probando el dia de mañana y te comento como me va!

Saludos de Lima - Perú
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

ABRIR PDF DE FORMA CONDICIONADA POR EL NOMBRE

Publicado por Marco Antonio (4 intervenciones) el 19/03/2024 00:21:23
Hola Antoni
Estuve tratando de implementar esta automatizacion, pero se me complica al hacer la macro. Por favor podrias ayudarme? ya que el problema ahora es como relaciono el codigo que me brindas con el codigo que se generar al grabar la macro para abrir PDF.
¿Quizas podamos hacer un meet o por whatsap?
Soy de Lima - Peru
Te dejo mi número de whatsap 051920293668 para poder conversar y asi me puedas ayudar de una forma mas interactiva ¿te parece?
Por favor me escribes!!
te dejo a la vez los archivos para que les uan mirada

saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ABRIR PDF DE FORMA CONDICIONADA POR EL NOMBRE

Publicado por Antoni Masana (563 intervenciones) el 19/03/2024 15:43:17
He corregido la parte de código que te envie y le he puesto el nombre a la macro que ejecuta el botón

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function Nombre_PDF(Nombre)
    Dim Texto As String, a As Integer
    Texto = "PDF2"
    For a = 1 To Len(Nombre)
        If InStr(" ,.", Mid(Nombre, a, 1)) = 0 Then
            Texto = Texto + Mid(Nombre, a, 1)
        End If
    Next
    Nombre_PDF = Texto
End Function
 
Sub EjecutarTodo()
    Dim Archivo_PDF As String, Ruta As String
    Ruta = "C:\Download\Proyecto Risk\"
    Archivo_PDF = Dir(Ruta + Nombre_PDF(Range("D6")) + "*.PDF")
 
    If Len(Archivo_PDF) = 0 Then
        MsgBox "No se encontro ningun PDF de: " & vbCrLf & vbCrLf & Range("D6"), vbCritical + vbOKOnly, "FICHERO PDF"
        Exit Sub
    End If
 
    MsgBox Ruta + Archivo_PDF
End Sub

El siguiente paso es importar el PDF.
Tengo la versión de Excel del 2016 y por lo visto no tengo la opción de importar un PDF desde Excel.

Si haces la importación a mano grabando la macro y me la envias la añado a mi código.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

ABRIR PDF DE FORMA CONDICIONADA POR EL NOMBRE

Publicado por Marco Antonio (4 intervenciones) el 12/04/2024 17:15:23
Hola Antoni, este es el codigo al abrir el pdf en cuestion. recuerda que el nombre del archivo de este pdf esta relacionado con la celda d6:

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveWorkbook.Queries.Add Name:="Table001 (Page 1)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table001 = Origen{[Id=""Table001""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table001,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type tex" & _
"t}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}, {""Column9"", type text}, {""Column10"", type text}, {""Column11"", type text}, {""Column12"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table002 (Page 1)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table002 = Origen{[Id=""Table002""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table002,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type tex" & _
"t}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}, {""Column9"", type text}, {""Column10"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table003 (Page 1)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table003 = Origen{[Id=""Table003""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table003,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table004 (Page 1)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table004 = Origen{[Id=""Table004""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table004,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type tex" & _
"t}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table005 (Page 1)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table005 = Origen{[Id=""Table005""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Encabezados promovidos"" = Table.PromoteHeaders(Table005, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(#""Encabezados promovidos"",{{""Fecha Proce" & _
"so"", type date}, {""Tipo Doc."", type text}, {""N. Doc."", Int64.Type}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table006 (Page 1)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table006 = Origen{[Id=""Table006""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table006,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table007 (Page 2)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table007 = Origen{[Id=""Table007""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table007,{{""Column1"", type text}, {""Column2"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table008 (Page 2)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table008 = Origen{[Id=""Table008""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table008,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table009 (Page 2)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table009 = Origen{[Id=""Table009""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table009,{{""Column1"", type text}, {""Column2"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table010 (Page 3)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table010 = Origen{[Id=""Table010""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table010,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type tex" & _
"t}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}, {""Column9"", type text}, {""Column10"", type text}, {""Column11"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table011 (Page 3)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table011 = Origen{[Id=""Table011""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Encabezados promovidos"" = Table.PromoteHeaders(Table011, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(#""Encabezados promovidos"",{{""Column1"", " & _
"type text}, {""Fuente - Acreedor"", type text}, {""Monto *"", type number}, {""Venc."", Int64.Type}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table012 (Page 3)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table012 = Origen{[Id=""Table012""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Encabezados promovidos"" = Table.PromoteHeaders(Table012, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(#""Encabezados promovidos"",{{""Institucion" & _
"es"", type text}, {""**"", type text}, {""Línea Aprobada"", type text}, {""Línea No Utilizada"", type number}, {""Línea Utilizada"", type text}, {""% L. Uti."", Percentage.Type}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table013 (Page 3)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table013 = Origen{[Id=""Table013""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table013,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table014 (Page 3)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table014 = Origen{[Id=""Table014""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table014,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table015 (Page 4)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table015 = Origen{[Id=""Table015""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table015,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type tex" & _
"t}, {""Column6"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table016 (Page 4)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table016 = Origen{[Id=""Table016""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Encabezados promovidos"" = Table.PromoteHeaders(Table016, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(#""Encabezados promovidos"",{{""Column1"", " & _
"Int64.Type}, {""[image] Fecha desde que#(lf)Nro Documento Nombre de Representante Act Pre 12m ocupa Cargo Cargo"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type text}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type date}, {""Column9"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table017 (Page 4)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table017 = Origen{[Id=""Table017""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table017,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type tex" & _
"t}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table018 (Page 4)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table018 = Origen{[Id=""Table018""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table018,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type tex" & _
"t}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table019 (Page 4)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table019 = Origen{[Id=""Table019""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table019,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type tex" & _
"t}, {""Column6"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
ActiveWorkbook.Queries.Add Name:="Table020 (Page 5)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Origen = Pdf.Tables(File.Contents(""E:\Proyecto Risk\PDF2GLDTRANSPORTSAC2902202410454.pdf""), [Implementation=""1.3""])," & Chr(13) & "" & Chr(10) & " Table020 = Origen{[Id=""Table020""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(Table020,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"""
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table001 (Page 1)", _
"Conexión a la consulta 'Table001 (Page 1)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table001 (Page 1);Extended Properties=" _
, """Table001 (Page 1)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table002 (Page 1)", _
"Conexión a la consulta 'Table002 (Page 1)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table002 (Page 1);Extended Properties=" _
, """Table002 (Page 1)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table003 (Page 1)", _
"Conexión a la consulta 'Table003 (Page 1)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table003 (Page 1);Extended Properties=" _
, """Table003 (Page 1)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table004 (Page 1)", _
"Conexión a la consulta 'Table004 (Page 1)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table004 (Page 1);Extended Properties=" _
, """Table004 (Page 1)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table005 (Page 1)", _
"Conexión a la consulta 'Table005 (Page 1)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table005 (Page 1);Extended Properties=" _
, """Table005 (Page 1)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table006 (Page 1)", _
"Conexión a la consulta 'Table006 (Page 1)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table006 (Page 1);Extended Properties=" _
, """Table006 (Page 1)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table007 (Page 2)", _
"Conexión a la consulta 'Table007 (Page 2)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table007 (Page 2);Extended Properties=" _
, """Table007 (Page 2)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table008 (Page 2)", _
"Conexión a la consulta 'Table008 (Page 2)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table008 (Page 2);Extended Properties=" _
, """Table008 (Page 2)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table009 (Page 2)", _
"Conexión a la consulta 'Table009 (Page 2)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table009 (Page 2);Extended Properties=" _
, """Table009 (Page 2)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table010 (Page 3)", _
"Conexión a la consulta 'Table010 (Page 3)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table010 (Page 3);Extended Properties=" _
, """Table010 (Page 3)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table011 (Page 3)", _
"Conexión a la consulta 'Table011 (Page 3)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table011 (Page 3);Extended Properties=" _
, """Table011 (Page 3)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table012 (Page 3)", _
"Conexión a la consulta 'Table012 (Page 3)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table012 (Page 3);Extended Properties=" _
, """Table012 (Page 3)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table013 (Page 3)", _
"Conexión a la consulta 'Table013 (Page 3)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table013 (Page 3);Extended Properties=" _
, """Table013 (Page 3)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table014 (Page 3)", _
"Conexión a la consulta 'Table014 (Page 3)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table014 (Page 3);Extended Properties=" _
, """Table014 (Page 3)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table015 (Page 4)", _
"Conexión a la consulta 'Table015 (Page 4)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table015 (Page 4);Extended Properties=" _
, """Table015 (Page 4)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table016 (Page 4)", _
"Conexión a la consulta 'Table016 (Page 4)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table016 (Page 4);Extended Properties=" _
, """Table016 (Page 4)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table017 (Page 4)", _
"Conexión a la consulta 'Table017 (Page 4)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table017 (Page 4);Extended Properties=" _
, """Table017 (Page 4)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table018 (Page 4)", _
"Conexión a la consulta 'Table018 (Page 4)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table018 (Page 4);Extended Properties=" _
, """Table018 (Page 4)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table019 (Page 4)", _
"Conexión a la consulta 'Table019 (Page 4)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table019 (Page 4);Extended Properties=" _
, """Table019 (Page 4)""", 6, True, False
Workbooks("RUC 20600975383 - GLD TRANSPORT S.xlsm").Connections.Add2 _
"Consulta - Table020 (Page 5)", _
"Conexión a la consulta 'Table020 (Page 5)' en el libro.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table020 (Page 5);Extended Properties=" _
, """Table020 (Page 5)""", 6, True, False
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table001 (Page 1)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table001__Page_1"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table002 (Page 1)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table002__Page_1"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table003 (Page 1)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table003__Page_1"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table004 (Page 1)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table004__Page_1"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table005 (Page 1)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table005__Page_1"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table006 (Page 1)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table006__Page_1"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table007 (Page 2)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table007__Page_2"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table008 (Page 2)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table008__Page_2"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table009 (Page 2)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table009__Page_2"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table010 (Page 3)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table010__Page_3"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table011 (Page 3)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table011__Page_3"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table012 (Page 3)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table012__Page_3"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table013 (Page 3)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table013__Page_3"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table014 (Page 3)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table014__Page_3"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table015 (Page 4)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table015__Page_4"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table016 (Page 4)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table016__Page_4"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table017 (Page 4)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table017__Page_4"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table018 (Page 4)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table018__Page_4"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table019 (Page 4)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table019__Page_4"
.Refresh
End With
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
Connections("Consulta - Table020 (Page 5)"), Destination:=Range("$A$1")). _
TableObject
.RowNumbers = False
.PreserveFormatting = True
.RefreshStyle = 1
.AdjustColumnWidth = True
.ListObject.DisplayName = "Table020__Page_5"
.Refresh
End With
ActiveWindow.TabRatio = 1
Application.CommandBars("Queries and Connections").Visible = False
Sheets("Table020 (Page 5)").Select
Range("G17").Select
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ABRIR PDF DE FORMA CONDICIONADA POR EL NOMBRE

Publicado por Antoni Masana (563 intervenciones) el 13/04/2024 00:08:48
Te adjunto los tres procedimientos enlazados (Los dos míos y el tuyo al cual le he cambiado el nombre, se llama Cargar_PDF y tiene dos parámetros, Nombre y ruta del PDF y nombre del libro Excel).

Donde llama al procedimiento de cargar el PDF el segundo parámetro puede un texto:

1
Call Cargar_PDF(Ruta + Archivo_PDF, "RUC 20600975383 - GLD TRANSPORT S.xlsm")

O algo más profesional:

1
Call Cargar_PDF(Ruta + Archivo_PDF, ActiveWorkbook.Name)

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar