wordün içinden oku tabloya yaz
#7
Sayın AKD27
microsoftun sitesi "Microsoft Word belgeniz tablo içeriyorsa ve bu tabloları Microsoft Access'e almak istiyorsanız bu adımları izleyin. Word içine, dosyanın bir kopyasını virgül veya sekme ile sınırlı (sınırlanmış metin dosyası: Ayrı alan değerlerinin virgül veya sekme gibi bir karakterle ayrılmış olduğu verileri içeren bir dosya.) biçimlendirilmemiş metin dosyası olarak kaydedin. "der bu nedenle herhangi bir word sayfasını rastgele alamazsınız tablo olması gerekir ki neyi nereye alacağınızı tarif edebilesiniz tüm yazınızı bir tablo içine alıp tek access tablosuna kaydedebilirsiniz ama şart alınacak bilgilerin Tabloda olması.
İstediğiniz şekilde file dialog penceresini koydum
tabii olarak bunları excelde yapmak daha kolay çünkü belirgin alanlar var a4 denince hepimiz rahatlıkla neresi olduğunu anlayabiliriz gibi...
iyi çalışmalar


Eklenti Dosyaları
.rar   word_data Adn.rar (Boyut: 23,72 KB / İndirilme: 42)
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#8
Sayın adnanyurdakul hocam
Ellerinize sağlık örnek çok güzel olmuş, benim bir sorum var ekte word belgesi içerisinde aynı tablolar aynı sayfa içerisinde ve devam eden sayfalarda devam ediyorsa, tek komut ile bu bilgileri nasıl alabilirim. Excel içinde örneğin A1- A40 arasındaki bilgileri almak istiyorum nasıl bir yol izlemem gerekiyor. Yardımcı olursanız sevinirim.


Eklenti Dosyaları
.rar   Word.rar (Boyut: 21,25 KB / İndirilme: 9)



  Alıntı
Bu mesajı beğenenler:
#9
Sayın Kars36
deneme adlı form ile ayrı word sayfası üzerinde bulunan iki ayrı formdan bilgi alma örneği bulunmaktadır.
deneme2 adlı formda ise 2 sayfalık word tablosunun tamamının nasıl alınacağı örneği bulunmaktadır.
eğer çok sayfalı tablolardan aradaki bilgiyi almak istersen kırmızı ile belirtilen
satırsayını ve for i=2 kısmını değiştirmelisiniz örnek olarak
'satırsayısı=15
'for i=8 to satırsayısı şeklinde olmalıdır.
İyi çalışmalar

Private Sub cmdAl_Click()
Dim objWord As Word.Application
Dim str1 As String
Dim satırsayısı As Long
strtemplate = CurrentProject.Path & "\ADI1.doc" 'buraya browse ile dosyanın adı alınmalı
Set objWord = CreateObject("word.application")

objWord.Documents.Open strtemplate, ReadOnly:=True, Visible:=True
satırsayısı = objWord.ActiveDocument.Tables(1).Rows.Count
For i = 2 To satırsayısı

Me.ADI = Left(objWord.ActiveDocument.Tables(1).Rows(i).Cells(2).Range.Text, Len(objWord.ActiveDocument.Tables(1).Rows(i).Cells(2).Range.Text) - 2)
Me.SOYADI = Left(objWord.ActiveDocument.Tables(1).Rows(i).Cells(4).Range.Text, Len(objWord.ActiveDocument.Tables(1).Rows(i).Cells(4).Range.Text) - 2)
Me.BABA_ADI = Left(objWord.ActiveDocument.Tables(1).Rows(i).Cells(2).Range.Text, Len(objWord.ActiveDocument.Tables(1).Rows(i).Cells(2).Range.Text) - 2)
Me.ANNE_ADI = Left(objWord.ActiveDocument.Tables(1).Rows(i).Cells(4).Range.Text, Len(objWord.ActiveDocument.Tables(1).Rows(i).Cells(4).Range.Text) - 2)
Me.DOĞUM_TARİHİ = Left(objWord.ActiveDocument.Tables(1).Rows(i).Cells(4).Range.Text, Len(objWord.ActiveDocument.Tables(1).Rows(i).Cells(4).Range.Text) - 2)
Me.DOĞUM_YERİ = Left(objWord.ActiveDocument.Tables(1).Rows(i).Cells(2).Range.Text, Len(objWord.ActiveDocument.Tables(1).Rows(i).Cells(2).Range.Text) - 2)
DoCmd.GoToRecord , , acNewRec
Next i

Set objWord = Nothing

End Sub


Eklenti Dosyaları
.rar   adnWord.rar (Boyut: 42,33 KB / İndirilme: 31)
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#10
İlginize çok teşekkürler adnanyurdakul hocam
Ben sanırım yapmak istediğimi anlatamadım, deneme2 örnek çok güzel ancak benim yapmak isteğim aynı sayfa üzerinde bulunan ekte örnek üzerindeki birinci tablodan bilgileri aldıktan sonra ikinci tablo üzerinde ki farklı şahsa ait bilgileri almasını istiyorum.


Eklenti Dosyaları
.doc   Tablo 1.doc (Boyut: 28,5 KB / İndirilme: 8)



  Alıntı
Bu mesajı beğenenler:
#11
Sayın Kars36
deneme formunda onuda yapmıştım
her iki tablodan da kayıt alabiliyor
2 numaralı kayıt 2 nci tablodan geliyor



  Alıntı
Bu mesajı beğenenler:
#12
Teşekkürler sayın Yurdakul hocam. Örneklerinizden çok faydalanıyorum.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Access içinden başka dosyalarınızı görme Amadeus 7 5.575 19-12-2009, 17:46
Son Mesaj: MERAK

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):