Nhờ giúp đỡ về chép Range từ Excel sang một vị trí trong Word (2 người xem)

[hoangmau83]

E dự định sẽ sử dụng để chép thông tin từ bảng tính của Excel sang Word sử dụng VBA
Cóp nhặt một số công thức trên mạng nhưng loay hoay mấy ngày nay không được
Bác nào ghé qua xem giúp em công thức với.
Em xin chân thành cảm ơn

 

[hoangmau83]

For Each cls In Sheets("Export").Range([a1], [a65].End(3))
Range("BangKHLQ").Copy
.Selection.Find.Paste cls, 2

Công thức này e lấy từ bác nào trên diễn đàn chẳng nhớ. (cám ơn bác nhiều)
Nhưng toàn chép ra ngay đầu file

 

[Let'GâuGâu]

For Each cls In Sheets("Export").Range([a1], [a65].End(3))
Range("BangKHLQ").Copy
.Selection.Find.Paste cls, 2

Công thức này e lấy từ bác nào trên diễn đàn chẳng nhớ. (cám ơn bác nhiều)
Nhưng toàn chép ra ngay đầu file

bạn thử thêm dòng lệnh này

For Each cls In Sheets("Export").Range([a1], [a65].End(3))
    Range("BangKHLQ").Copy
   [COLOR=#0000cd] .Characters.Last.TypeParagraph[/COLOR]
    .Selection.Paste
Next

 

[hoangmau83]

Em đã thử và kết quả tốt. Tuy nhiên nếu sử dụng có table trong Word thì kết quả hiện lên ở ô trước ô cần thay. Lại loay hoay mất buổi sáng nay rồi. Em thử dùng cả SendKeys nhưng cũng không ăn thua

 

[Let'GâuGâu]

Em đã thử và kết quả tốt. Tuy nhiên nếu sử dụng có table trong Word thì kết quả hiện lên ở ô trước ô cần thay. Lại loay hoay mất buổi sáng nay rồi. Em thử dùng cả SendKeys nhưng cũng không ăn thua

vba trong word nó có vẻ phức tạp hơn trong excel,
bạn thử qua word, rồi bật record macro lên quay lại thao tác, nhấn Ctrl G (goto), gôt đâu thì tùy bạn chọn

 

[hoangmau83]

Đã kết thúc hoàn hảo bác ạ.
Cấu trúc lệnh là
.Selection.PasteExcelTable False, False, False
Em cảm ơn bác nhiều