He conseguido a traves de esta pagina el codigo de como pasar un pdf a txt. Lo he instalado en mi equipo para ver el funcionamiento del programa y de esta manera poder implementarlo en el mio pero me da un error justo cuando intenta leer el archivo PDF, no se a que es debido ya que no he hecho nada mas que ejecutar el programa selecciono el archivo pdf y error 13.
Pudiera ser que me faltara la instalacion de algo pero no se que puede ser.
¡¡Muchísimas gracias por tu aportación!! efectivamente, AjpdSoft extraer texto PDF necesita las DLLs de Acrobat Profesional, efectivamente si lo ejecutas sin ellas te dará este error:
---------------------------
AjpdSoft extraer texto PDF
---------------------------
Run-time error '13':
Type mismatch
---------------------------
Aceptar
---------------------------
Publicado:
Jue May 28, 2009 6:14 am
cdistri Buen usuario
Registrado: May 26, 2009 Mensajes: 5
Asunto: Pregunta
Hola alonso
Queria preguntarte si hay alguna api que convierta un documento *.xls en txt.
Necesitaba alguna api que me convirtiera archivos xls, pdf ( ya lo tengo) y doc en txt para luego tratarlos.
A ver si me puedes ayudar
Un saludo
Publicado:
Jue May 28, 2009 6:21 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Pregunta
Anuncios
cdistri escribió:
Hola alonso
Queria preguntarte si hay alguna api que convierta un documento *.xls en txt.
Necesitaba alguna api que me convirtiera archivos xls, pdf ( ya lo tengo) y doc en txt para luego tratarlos.
A ver si me puedes ayudar
Un saludo
Tal vez te sirva este código realizado en Visual Basic 6:
Código:
Private Sub bObtener_Click()
Dim objExcel As Excel.Application
Dim objLibro As Excel.Workbook
On Error GoTo cError
Set objExcel = New Excel.Application
Set objLibro = objExcel.Workbooks.Open(txtFichero.Text)
cError:
MsgBox Err.Description, vbCritical, vbOKOnly
GoTo cSalir
End Sub
Private Sub bObtenerRango_Click()
Dim i As Integer
Dim j As Integer
Dim objExcel As Excel.Application
Dim objLibro As Excel.Workbook
Dim valor As String
On Error GoTo cError
Set objExcel = New Excel.Application
Set objLibro = objExcel.Workbooks.Open(txtFichero.Text)
For i = CInt(txtRFilaI.Text) To CInt(txtRFilaF.Text)
For j = CInt(txtRColumnaI.Text) To CInt(txtRColumnaF.Text)
If txtRValor.Text <> "" Then
txtRValor.Text = txtRValor.Text & vbCrLf & _
objExcel.Worksheets(txtRHoja.Text).Cells(i, j).Value
Else
txtRValor.Text = objExcel.Worksheets(txtRHoja.Text).Cells(i, j).Value
End If
Next j
Next i
Private Sub bObtenerTodos_Click()
Dim i As Integer
Dim j As Integer
Dim objExcel As Excel.Application
Dim objLibro As Excel.Workbook
Dim valorObtenido As String
Dim numeroColumnas As Integer
Dim numeroFilas As Integer
Dim fila As String
On Error GoTo cError
Set objExcel = New Excel.Application
Set objLibro = objExcel.Workbooks.Open(txtFichero.Text)
For i = 1 To numeroFilas
fila = ""
For j = 1 To numeroColumnas
valorObtenido = objExcel.Worksheets(txtTHoja.Text).Cells(i, j).Value
If fila <> "" Then
fila = fila & "," & Chr(34) & valorObtenido & Chr(34)
Else
fila = Chr(34) & fila & Chr(34)
End If
Next j
If txtTValor.Text <> "" Then
txtTValor.Text = txtTValor.Text & vbCrLf & fila
Else
txtTValor.Text = fila
End If
Next i
objExcel.Workbooks.Close
objExcel.Quit
Set objExcel = Nothing
Set objLibro = Nothing
cSalir:
Exit Sub
cError:
MsgBox Err.Description, vbCritical, vbOKOnly
GoTo cSalir
End Sub
Para que te funcione, en el menú "Proyecto" - "Referencias" tienes que añadir: "Microsoft Excel 8.0 Object Library":
Publicado:
Jue May 28, 2009 11:14 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Pregunta
Anuncios
En el siguietne enlace tienes la descarga gratuita del código fuente de la aplicación AjpdSoft Acceso Excel Visual Basic:
He estado probando el archivo que me has pasado y funciona bien cuando son archivos simples.
El archivo que tengo que tratar cuando ejecuto el programa me sale el siguiente error:
El subindice esta fuera de intervalo.
Si queires te puedo adjuntar el xls para que lo veas.
Un saludo
Publicado:
Vie May 29, 2009 7:03 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Problema con archivos xls
Anuncios
cdistri escribió:
Hola Alonso
He estado probando el archivo que me has pasado y funciona bien cuando son archivos simples.
El archivo que tengo que tratar cuando ejecuto el programa me sale el siguiente error:
El subindice esta fuera de intervalo.
Si queires te puedo adjuntar el xls para que lo veas.
Un saludo
Existe otro método, mediante ADO, que tal vez sea más eficaz, se trata de realizar una conexión al fichero Excel como si de una base de datos se tratase, es algo así:
Código:
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\fichero_excel.xls;Extended Properties=Excel 8.0;"
conn.Execute "Insert into MyTable (FirstName, LastName)" & _
" values ('Bill', 'Brown')"
conn.Execute "Insert into MyTable (FirstName, LastName)" & _
" values ('Fernando', 'Alonso')"
conn.Close
En realidad el código anterior inserta una fila en el fichero de excel "fichero_excel.xls". No lo hemos probado aún, tal vez funcione. En tu caso será un SELECT en vez de un INSERT y tendrás que recorrer los registros devueltos por el select.
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A