Word den veri alma

[pcman]

Arkadaşlar merhaba,

Word den veri almak mümkünmü?

 

[modalı]

Elbette mümkün.

 

[pcman]

Sn Modalı,

ben bir örnekmi ekleyeyim yada örnekbir kod ekleyebilirmisiniz,

 

[modalı]

Sayın pcman,

Sizin örneğinizde çalışmak daha kolay olacak. Çünkü bir çok gözönüne alınacak nokta var.

İyi çalışmalar

 

[pcman]

Sn Modalı,

ilk etapta kırmızıyla boyadığım yerleri çekmem gerekiyor, sonrasını ben geliştire bilirim,

Teşekkürler,

 

[modalı]

Bu bilgileri access tablosuna mı alacağız?

 

[pcman]

Bağlı tobloyla SQL çalışıyır,

Access toblosu gibi düşünelim

 

[modalı]

Sayın pcman,

Ekteki örneği inceleyin.

İyi çalışmalar

 

[pcman]

Sayın Modalı,

Referans sorunu oldu, Microsoft Office 11.0 Object Library seçtim

Toblodan aldığı verinin sonuna 2 tane kare koyuyor onuda temizliyicem,

Teşekkürler

 

[modalı]

Temizleme işlemini:

     strSeewasser = objWord.ActiveDocument.Tables(2).Rows(11).Cells(11).Range.Text
    len1 = Len(strSeewasser) - 2
    Me.txtSeewasser_gefäh = Left(strSeewasser, len1)

ile yapabilirsiniz.

İyi çalışmalar

 

[pcman]

Sn modalı kodları aşağıdaki gibi düzenledim, iyi çalışıyor,

veri aldıktan sonra word açık kalıyordu, nedenini anlamadım ama aşağıdaki satırı iptal edince word hiç açılmıyor veriyide çekiyor tabi,

Dim objWord As Word.Application
Dim str1 As String
strTemplate = CurrentProject.Path & "\Form1.doc"
    Set objWord = CreateObject("word.application")
    
    objWord.Documents.Open strTemplate, ReadOnly:=True, Visible:=True
    
    chem_bez = objWord.ActiveDocument.Tables(2).Rows(8).Cells(3).Range.Text
    len1 = Len(chem_bez) - 2
    Me.txtChem_bez = Left(chem_bez, len1)
    
    strSeewasser = objWord.ActiveDocument.Tables(2).Rows(11).Cells(11).Range.Text
    len2 = Len(strSeewasser) - 2
    Me.txtSeewasser_gefäh = Left(strSeewasser, len2)
    
    ladegewicht = objWord.ActiveDocument.Tables(2).Rows(5).Cells(3).Range.Text
    len3 = Len(ladegewicht) - 2
    Me.txtLadegewicht = Left(ladegewicht, len3)
    
    'objWord.Documents.Close
    
    Set objWord = Nothing