Excel'deki veriyi Word'e aktarmak

[ulgenkhan]

Arkadaşlar,

Elimde excel'de hazırlanmış 10.000'e yakın ismin olduğu bir isim - adres listesi var. Bunda yer alan verileri Word'e belli bir biçimde otomatik olarak aktarmak istiyorum.

Ne demek istediğimi Ek'teki dosyalardan anlayabilirsiniz.

Şimdiden ilginiz için çok teşekkür ederim.

 

[ulgenkhan]

Sorun gerçekten çok acil, yardım edilemeyecek bir konuysa bile bunu bilmem gerekiyor. Böyle bir şey mümkün değilse de lütfen söyleyin ki, başka bir çözüm bulmaya çalışalım.

Teşekkürler...

 

[Necdet]

Merhaba,

Konuya tam hakim olmamakla birlikte, aşağıdaki kodları deneyiniz.
Kodlar wordde tablo oluşturacaktır, siz sonra bu tabloyu metine çevirebilirsiniz.

Kodları çalıştırmadan önce boş bir Word dosyası açınız

Kodlarda :

Tools
References de

Microsoft Word xx.x Object Library i seçmelisiniz.

'Microsoft Word xx.x Object Library
Sub ExceldenYeniWordDosyasinaAktar()
Dim i       As Long
Dim j       As Long
Dim s1      As Worksheet
Dim s2      As Worksheet
Dim wdApp   As Word.Application
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Cells.Clear
s1.Select
For i = 2 To [A65536].End(3).Row
    j = j + 1
    s2.Cells(j, "A") = "Sayın "
    s2.Cells(j, "B") = Cells(i, "B") & " " & Cells(i, "C")
    j = j + 2
    s2.Cells(j, "B") = Cells(i, "E") & " " & Cells(i, "F") & " / " & Cells(i, "G")
    j = j + 2
Next i
s2.Range("A1:B" & j).Copy
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then
    Set wdApp = GetObject(, "Word.Application")
End If
On Error GoTo 0
With wdApp
'    .Documents.Add
    .Visible = True
End With
With wdApp.Selection
    .EndKey Unit:=wdStory
    .TypeParagraph
    .Paste
End With
Set wdApp = Nothing
End Sub

 

[Necdet]

Evet gerçekten acilmiş