excelden worl de kopyalama

[teknikyapı]

Merhaba.
Excel sayfasında hazırlanan bir hesap tablosunu worlde aktarınca tablonun hücrelerini nasıl yok edebiliriz.

 

[tahsinanarat]

Ben şahsen soruyu tam olarak anlayamadım, eğer excel den worde koplalama yapmak istiyorsanız, aktaracağınız hücreler seçili iken aşağıdaki makroyu çalıştırın,

Sub WordSheetRangeCopy()
Dim WordObj As Object
Selection.Copy
Set WordObj = CreateObject("Word.Basic")
With WordObj
.AppShow
.FileNew
.EditPaste
End With
Set WordObj = Nothing
End Sub

Hücreleri nasıl yok edebilir sorusunu biraz daha açıklarsanız, yani hücre içerikleri mi silinecek, yoksa tablonun kenar çizgilerimi silinecek.

 

[leumruk]

Bununla ilgili bir çalışmam vardı. Ekli dosyayı inceleyiniz.

 

[leumruk]

Bu örnekle de verileri biçimleriyle birlikte, tablosuz olarak aktarabilirsiniz.