Word dosyasından seçilen kısmın excel tablosuna aktarımı

[_script_]

Öncelikle herkese selamlar,

Ben formunuza benden istenilen ve benim yapamadığım bir konu hakkında sizden yardım alabilmek için kayıt oldum.

Benden sadece word dosyaından bir kısım veriyi excel tablosunda aynı satırda ki sütunlara blli kurallara göre dağıtarak taşımamı istediler.

Bu konda bana yardımcı olabilir misiniz.

Şimdiden herkese teşekkürler..


Not:Konunun tam olarak neyle alakalı olduğunu bilmediğim için buraya yazdım.

 

[leumruk]

Merhaba,
İsteğinizi örnek dosya(lar) ile açıklayınız.

 

[_script_]

Merhabalar

İsteğiniz üzere örnek dosyaları attım umarım sorunu açık bir şekilde anlatır dosyalar..

iyi günler iyi çalışmalar..

 

[leumruk]

Merhaba,
Ekteki klasörü RAR'dan çıkarın ve excel dosyasını açarak butona basın. Kodları kendinize uyarlayın.

Sub Veri_Al()
yol = ThisWorkbook.Path & "\aktarılacak_veri.doc"
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.Documents.Open yol
Sat = [a65536].End(3).Row + 1
For Each prg In wd.ActiveDocument.Paragraphs
Sut = Sut + 1
If prg.Range.ComputeStatistics(Statistic:=3) > 0 Then
deg = Split(prg, vbTab)
Cells(Sat, Sut) = Trim(deg(UBound(deg)))
End If
Next
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

 

[_script_]

yardımların için teşekkürler leumruk bu çalışman çok işimi görecek

iyi günler iyi çalışmalar...