Foro Excel

Saludos

Encontré este código en la red

Código: Seleccionar todo

Private Sub CMdLeer_Click()
Dim FF As Integer
Dim Linea As String
FF = FreeFile
Open "C:\TuArchivodetexto.txt" For Input As #FF
While Not EOF(FF)
Line Input #FF, Linea
MsgBox Linea
DoEvents
Wend
End Sub




El cual lee por lineas el texto de un archivo txt
¿Será posible haga lo mismo con un archivo pdf?


GRACIAS

y por que no mejor simplemente abrir el PDF desde excel y leerlo !!!

ya que la diferencia entre el "*.txt" y el "*.pfd" ,es que en el 1º podras insertar ademas texto,es decir es mas manejable y en los pdf "gratuitos" ,solo podemos leerlos

Saludos?

abrir el PDF desde excel ?

es eso posible?

bye

Able2Extract (A2E) es la herramienta de conversión de datos PDF más poderosa!
http://www.investintech.com/es/able2extract.html

Cual es la idea en si

Saludos

pues si ,hay varias maneras de abrir un archivo pdf,aqui un ejemplo

Código: Seleccionar todo

Sub AbriPDF2()
Dim Abrir As Double
   Dim MiAdobeExe As String, MiArchivo As String
    'debes verificar la ruta donde esta el .exe(Acrobat reader) que abre el archivo
   MiAdobeExe = "C:\Archivos de programa\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
   'stAdobeExe = "C:\Archivos de programa\Adobe\Acrobat 6.0\Reader\AcroRd32.exe"
   MiArchivo = "E:\facts23_es.pdf"
   Abrir = Shell(MiAdobeExe & " " & MiArchivo, vbMaximizedFocus)
End Sub

ovbiamente debes cambiar la ruta del archivo por uno propio

Hola ST:

Pero no funciona

La cuestion me parece que no es abrirlo dentro el lector de PDF si no dentro de nuestra aplicacion :=)

Saludos

lrivera_07:

para que funcione:
1º.-debes tener instalado Acrobat Reader
2º.-debes verificar que la ruta del "AcroRd32.exe" sea la ruta correcta en mi ejemplo puse 2 rutas diferentes que funciinan en la computadora de mi cas y la otra en la de mi trabajo (debes checar y adaparloa la ruta de tu PC)
3º.-debes verificar y adaptar la ruta a tu "archivo.pdf",en el ejemplo que puse el archivo esta en la unidad "E:\",(por ejmplo C:\tucarpeta\tusubcarpeta\tuarchivo.pdf" ),es un ejemplo no lo copies tal cual...!!!Adaptalo!!!!