Çözüldü VBA İle Excel’den Word'e Tablo Aktarma

[ErdalÖzdemir]

WBA Word konusunda yardımcı olacak yok mu

 

[necati]

Sub EXCELDEN_WORDE_TABLO()
Dim wordApp As New Word.Application, wdDoc As Word.Document

With wordApp
    .Visible = True
    .Activate
    Set wdDoc = .Documents.Open _
("C:\Users\ÖZDEMİR\OneDrive\Masaüstü\EXCELDEN_WORDE_TABLO_AKTARMA\DENEME TABLOLARI (2).doc")
If wdDoc.Bookmarks.Exists("KURUM_DURUMU") Then
    wordApp.Selection.Goto What:=wdGoToBookmark, Name:="KURUM_DURUMU"
End If

If wordApp.ActiveDocument.Tables.Count >= 1 Then
    wordApp.Selection.Tables(1).Delete
End If

  With wdDoc.Range
    Sayfa1.Range("A2:F2").Copy
    .Characters.Last.Paste
    Application.CutCopyMode = False
    Sayfa1.Range("A15:F26").Copy
    .Characters.Last.Paste
    Application.CutCopyMode = False
    .Tables(1).AutoFitBehavior (wdAutoFitWindow)
    .Tables(1).Range.ParagraphFormat.SpaceBeforeAuto = False
    .Tables(1).Range.ParagraphFormat.SpaceBefore = 6
    .Tables(1).Range.ParagraphFormat.SpaceAfterAuto = False
    .Tables(1).Range.ParagraphFormat.SpaceAfter = 6
  End With

wdDoc.Close savechanges:=True
End With

Set wdDoc = Nothing: wordApp.Quit
End Sub

 

[ErdalÖzdemir]

Necati Hocam, çok teşekkür ederim.

Elinize emeğinize sağlık.

 

[atarg]

Merhaba, bir konuda yardımınızı rica ediyorum.
Excel'den word'e transfer yaptığım bir dosyam bu dosya ile ilgili üç konuda yardıma ihtiyacım var.

ilki kodlarım aşağıda bulunuyor, işlem çalışıyor, dosyalarım oluşuyor fakat her kayıt işlemi sonrası aynı hatayı alıyorum, herşeyi kontrol ediyorum ama hatanın sebebini bulamaıdım, nerede hata yapıyorum sizce?

ikincisi, yaptığım işlem sonrasında word dosyalarım çoğunlukla read only olarak takılıyor, bunun nedeni ne olabilir?

üçüncüsü ise dosyaları farklı kayıt ederken, cells(i,3)'ün yanına günün tarihini ya da excelde ilgili kayıtın bulunduğu line number'i eklemek istesem nasıl bir kod yazmam gerekir?

Yardımınız için şimdiden çok teşekkür ederim.