Skip to main content

AccessTr.neT


Kopyala Yapıştır.

Kopyala Yapıştır.

Çözüldü #1
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.
.rar Deneme.rar (Dosya Boyutu: 134,94 KB | İndirme Sayısı: 7)
Cevapla
#2
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.
Cevapla
#3
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da