Foros de SóloIngeniería

- 15 Mar 2011, 11:09 #261048

Buenos días a tod@s,

Tengo varios documentos pdf, con muchas hojas cada uno, y necesito extraer una serie de datos concretos de las hojas. Necesito extraer unos datos/cadenas de datos que tienen el siguiente formato: NOMBRE#XXNÚMERO.CIUDAD. Si hago copiar/pegar del pdf a una hoja excel, no me lo separa en columnas y me queda texto que no me sirve mezclado con las cadenas, un estilo a esto:

Datos no útiles NOMBRE#XXNÚMERO.CIUDAD Datos no útiles NOMBRE#XXNÚMERO.CIUDAD Datos no útiles ...

Tengo una ventaja que no estoy sabiendo aprovechar: Hay un parámetro que es la almohadilla # que se repite siempre, y con la función extraer de excel estoy intentando extraer las cadenas NOMBRE#XXNÚMERO.CIUDAD marcándole el inicio como un espacio en blanco y un final como otro espacio en blanco para poder aislar la cadena y extraerla, pero no lo estoy consiguiendo. El segundo problema sería que me volcara cada una de las cadenas en una celda diferente.

¿Podéis darme alguna idea de como hacerlo?

Un saludo.

• 
• 
• 
• 
• 
• 

"Estos son mis principios. Si a usted no le gustan, tengo otros."
Groucho Marx

- 15 Mar 2011, 11:58 #261061

Considero que tu principal problema es pasar de pdf a excel, me explico puedes usar algún software tipo OCR????

porque si es así, ya estaría solucionado tu problema y el excel te quedaría "niquelado"

Saludos.

• 
• 
• 
• 
• 
• 

- 15 Mar 2011, 12:23 #261066

Si lo quieres hacer con extraer:

Texto en la celda A1:

Primera palabra:

Código: Seleccionar todoEXTRAE($A$1;1;ENCONTRAR("#";$A$1;1)-1)

Segunda palabra:

Código: Seleccionar todoEXTRAE($A$1;ENCONTRAR("#";$A$1;1)+1;ENCONTRAR("#";$A$1;ENCONTRAR("#";$A$1;1)+1)-ENCONTRAR("#";$A$1;1)-1)

No es difícil pero algo laborioso.

Si lo quieres hacer con una UDF:

Código: Seleccionar todoFunction SepararPalabras(Texto As String, Posicion As Integer, Optional Separador_op As String) As String
'___Devuelve la palabra según la posición que se indique, de izquierda a derecha
'___Si no se indica el separador, cogerá por defecto un espacio
'___wenner, soloingeniería
    Dim MatrizPalabras As Variant

    If TypeName(Texto) <> "String" Or _
    IsNumeric(Posicion) = False Then
        SepararPalabras = CVErr(xlErrNA)
    Else
        If VBA.IsMissing(Separador_op) = True Then Separador_op = " "
        MatrizPalabras = Split(Texto, Separador_op)
        Select Case Posicion - 1
            Case Is > UBound(MatrizPalabras), Is = -1: SepararPalabras = "" 'CVErr(xlErrNA)
            Case Else: SepararPalabras = MatrizPalabras(Posicion - 1)
        End Select
    End If
End Function

Para la primera palabra:

Código: Seleccionar todoSepararPalabras($A$1;1;"#")

Para la segunda palabra:

Código: Seleccionar todoSepararPalabras($A$1;2;"#")

Otro método es al copiar el pdf, pégarlo en un archivo .txt, después en excel vas a datos/desde texto, seleccionas y abres el archivo, en la nueva ventana le das a siguiente, marcas otro introduces # en el caja de texto y pulsas finalizar, seleccionas una celda y aceptas.

• 
• 
• 
• 
• 
• 

- 15 Mar 2011, 13:12 #261078

Muchas gracias compañero,

En un rato pruebo las soluciones y te digo a ver que tal

Mil gracias de nuevo.

• 
• 
• 
• 
• 
• 

"Estos son mis principios. Si a usted no le gustan, tengo otros."
Groucho Marx

- 15 Mar 2011, 16:19 #261122

Buenas tardes wenner,

Ya he probado la función, la idea es buena pero no acaba de servirme porque lo que me hace es lo siguiente:

Si tengo una celda excel con la siguiente información:

Datos no útiles + NOMBRE#XXNÚMERO.CIUDAD + Datos no útiles + NOMBRE#XXNÚMERO.CIUDAD2 Datos no útiles ...

Lo que hace la función es eliminarme los primero Datos no útiles y me deja esto:

NOMBRE#XXNÚMERO.CIUDAD + Datos no útiles + NOMBRE#XXNÚMERO.CIUDAD2 Datos no útiles ...

A mi lo que me interesaría que me sacara sería esto, en diferentes celdas;

NOMBRE#XXNÚMERO.CIUDAD
NOMBRE#XXNÚMERO.CIUDAD2
NOMBRE#XXNÚMERO.CIUDAD3
NOMBRE#XXNÚMERO.CIUDAD4
NOMBRE#XXNÚMERO.CIUDAD5

Un saludo.

• 
• 
• 
• 
• 
• 

"Estos son mis principios. Si a usted no le gustan, tengo otros."
Groucho Marx

- 15 Mar 2011, 16:36 #261131

Buenas tardes wenner,

Ya he probado la función, la idea es buena pero no acaba de servirme porque lo que me hace es lo siguiente:

Si tengo una celda excel con la siguiente información:

Datos no útiles + NOMBRE#XXNÚMERO.CIUDAD + Datos no útiles + NOMBRE#XXNÚMERO.CIUDAD2 Datos no útiles ...

Lo que hace la función es eliminarme los primero Datos no útiles y me deja esto:

NOMBRE#XXNÚMERO.CIUDAD + Datos no útiles + NOMBRE#XXNÚMERO.CIUDAD2 Datos no útiles ...

A mi lo que me interesaría que me sacara sería esto, en diferentes celdas;

NOMBRE#XXNÚMERO.CIUDAD
NOMBRE#XXNÚMERO.CIUDAD2
NOMBRE#XXNÚMERO.CIUDAD3
NOMBRE#XXNÚMERO.CIUDAD4
NOMBRE#XXNÚMERO.CIUDAD5

Un saludo.

Sube el archivo, por que así (sin conocer que datos no son útiles) va a ser difícil.

• 
• 
• 
• 
• 
• 

- 15 Mar 2011, 17:07 #261146

Sube el archivo, por que así (sin conocer que datos no son útiles) va a ser difícil.

Por temas de protección de datos no puedo subirlos, pero te pondré un ejemplo de una línea tipo:

Maquinaria Industrial Pesada PEPE#AB59473.BARCELONA Tractores GERARDO#ZV54789.MADRID Maquinaria Industrial Retirada ...

• 
• 
• 
• 
• 
• 

"Estos son mis principios. Si a usted no le gustan, tengo otros."
Groucho Marx

- 15 Mar 2011, 17:48 #261158

Prueba esta otra:

Código: Seleccionar todoFunction SepararPalabras(Texto As String, Posicion As Integer) As String
'___Devuelve la palabra según la posición que se indique, de izquierda a derecha
'___wenner, soloingeniería
    Dim n As Integer    'Contador de bucle
    Dim m As Integer    'Contador de bucle
   
    Dim MatrizPalabras() As String
    Dim SeleccionPalabras() As String
   
    If IsNumeric(Posicion) = False Then
        SepararPalabras = CVErr(xlErrNA)
    Else
        m = 0
        MatrizPalabras() = Split(Texto)
       
        For n = 0 To UBound(MatrizPalabras)
            If MatrizPalabras(n) Like "*#*" = True Then
                m = m + 1
                ReDim Preserve SeleccionPalabras(1 To m) As String
                SeleccionPalabras(m) = MatrizPalabras(n)
            End If
        Next

        If Posicion > m Then
            SepararPalabras = ""    'No devuelve ningún valor si no hay datos para esa posición
        Else
            SepararPalabras = SeleccionPalabras(Posicion)
        End If
    End If
   
End Function

• 
• 
• 
• 
• 
• 

- 15 Mar 2011, 18:11 #261169

Hola compañero,

Me da un error de compilación ... y no encuentro el error en la función.

Perdona las molestias

Prueba esta otra:

Código: Seleccionar todoFunction SepararPalabras(Texto As String, Posicion As Integer) As String
'___Devuelve la palabra según la posición que se indique, de izquierda a derecha
'___wenner, soloingeniería
    Dim n As Integer    'Contador de bucle
    Dim m As Integer    'Contador de bucle
   
    Dim MatrizPalabras() As String
    Dim SeleccionPalabras() As String
   
    If IsNumeric(Posicion) = False Then
        SepararPalabras = CVErr(xlErrNA)
    Else
        m = 0
        MatrizPalabras() = Split(Texto)
       
        For n = 0 To UBound(MatrizPalabras)
            If MatrizPalabras(n) Like "*#*" = True Then
                m = m + 1
                ReDim Preserve SeleccionPalabras(1 To m) As String
                SeleccionPalabras(m) = MatrizPalabras(n)
            End If
        Next

        If Posicion > m Then
            SepararPalabras = ""    'No devuelve ningún valor si no hay datos para esa posición
        Else
            SepararPalabras = SeleccionPalabras(Posicion)
        End If
    End If
   
End Function

• 
• 
• 
• 
• 
• 

"Estos son mis principios. Si a usted no le gustan, tengo otros."
Groucho Marx

- 15 Mar 2011, 18:33 #261180

Revisa el adjunto, no me da nigún error.

Regístrese y/o inicie sesión para ver archivos adjuntos.

• 
• 
• 
• 
• 
• 

- 15 Mar 2011, 18:39 #261186

Revisa el adjunto, no me da nigún error.

I-M-P-R-E-S-I-O-N-A-N-T-E compañero!

Muchísimas gracias, de verdad.

Sólo a modo de consulta y ya para "adornarlo". ¿Existe la posibilidad de que en lugar de poner la posición, excel ya sacara automáticamente todos los valores en una columna independiente?

Un saludo.

• 
• 
• 
• 
• 
• 

"Estos son mis principios. Si a usted no le gustan, tengo otros."
Groucho Marx

- 15 Mar 2011, 18:51 #261190

Comenta si te sirve.

Regístrese y/o inicie sesión para ver archivos adjuntos.

• 
• 
• 
• 
• 
• 

- 15 Mar 2011, 18:56 #261195

Comenta si te sirve.

¿¿¿Qué si me sirve??? Eres una máquina.

Oye, ¿tu te apellidas Gates o directamente programaste el Excel? Tremendo.

Muchas gracias compañero.

Un saludo.

• 
• 
• 
• 
• 
• 

"Estos son mis principios. Si a usted no le gustan, tengo otros."
Groucho Marx

- 15 Mar 2011, 19:28 #261204

Comenta si te sirve.

Muchas gracias compañero.

Me alegro que te siva.

Saludos,

• 
• 
• 
• 
• 
• 

- 15 Mar 2011, 20:38 #261216

Comenta si te sirve.

Muchas gracias compañero.

Me alegro que te siva.

Saludos,

Lo que yo te diga chaval. En este foro hay gente IMPAGABLE.
Aunque a mí ahora no me has resuelto nada ya que nunca he tenido esta duda, pero, GRACIAS.

• 
• 
• 
• 
• 
•