Tüm arkadaşlara selamlar. Ekteki dosyadaki pdf doyasını formda web penceresinde gösteriyorum. pdf içeriğin tümünü mausla seçip yanındaki metin kutusuna kopyalıyorum. Bu olayı alta eklediğim butonla tek tıklamayla yapmak istiyorum. Mümkün olur mu acaba. Saygılarımla iyi akşamlar dilerim.
Merhaba
Öncelikle pdf den doğrudan accese veri almanız mümkün değildir.
Pdf dosyanızı önce metin belgesi(txt), excel(xls) gibi dönüştürüp daha sonrasında
Access tablolarına altarabilirsiniz.
Access aracılığı ile dönüştürme mümkün tabi Adobe api leri kullanmak gerekecek (referance)
Örnek bir kod gösterecek olurcam
Kod:
Sub convertpdf2()
Dim AcroXApp As Acrobat.AcroApp
Dim AcroXAVDoc As Acrobat.AcroAVDoc
Dim AcroXPDDoc As Acrobat.AcroPDDoc
Dim Filename As String
Dim jsObj As Object
Dim NewFileName As String
Filename = "PDF DOSYASININ YOLU.pdf"
NewFileName = "TXT DOSYASININ YOLU.txt"
Set AcroXApp = CreateObject("AcroExch.App")
'AcroXApp.Show
Set AcroXAVDoc = CreateObject("AcroExch.AVDoc")
AcroXAVDoc.Open Filename, "Acrobat"
Set AcroXPDDoc = AcroXAVDoc.GetPDDoc
Set jsObj = AcroXPDDoc.GetJSObject
jsObj.SaveAs NewFileName, "com.adobe.acrobat.plain-text"
AcroXAVDoc.Close False
AcroXApp.Hide
AcroXApp.Exit
End Sub
Ancak bu kod adobe'dan ücretsiz bir sw olan Adobe Reader ile değil, pdf dosyaları oluşturabileceğiniz ve görüntüleyebileceğiniz Acrobat Reader'ınız olduğunda çalışır.
(21/02/2022, 00:37)lemoncher2 yazdı: [ -> ]Merhaba
Öncelikle pdf den doğrudan accese veri almanız mümkün değildir.
Pdf dosyanızı önce metin belgesi(txt), excel(xls) gibi dönüştürüp daha sonrasında Access tablolarına altarabilirsiniz.
Access aracılığı ile dönüştürme mümkün tabi Adobe api leri kullanmak gerekecek (referance)
Örnek bir kod gösterecek olurcam
Kod:
Sub convertpdf2()
Dim AcroXApp As Acrobat.AcroApp
Dim AcroXAVDoc As Acrobat.AcroAVDoc
Dim AcroXPDDoc As Acrobat.AcroPDDoc
Dim Filename As String
Dim jsObj As Object
Dim NewFileName As String
Filename = "PDF DOSYASININ YOLU.pdf"
NewFileName = "TXT DOSYASININ YOLU.txt"
Set AcroXApp = CreateObject("AcroExch.App")
'AcroXApp.Show
Set AcroXAVDoc = CreateObject("AcroExch.AVDoc")
AcroXAVDoc.Open Filename, "Acrobat"
Set AcroXPDDoc = AcroXAVDoc.GetPDDoc
Set jsObj = AcroXPDDoc.GetJSObject
jsObj.SaveAs NewFileName, "com.adobe.acrobat.plain-text"
AcroXAVDoc.Close False
AcroXApp.Hide
AcroXApp.Exit
End Sub
Ancak bu kod adobe'dan ücretsiz bir sw olan Adobe Reader ile değil, pdf dosyaları oluşturabileceğiniz ve görüntüleyebileceğiniz Acrobat Reader'ınız olduğunda çalışır.
Sayın lemoncher2 yardımlarını için teşekkür ederim.