22/02/2022, 12:06
lemoncher2
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
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.
Ö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 SubAncak 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.