Copy từ excel qua word ai rành chỉ giúp tôi với (1 người xem)

[baohan2006]

mình có một file excel, nếu muốn khi nhấn vào nút in báo giá thì sẽ hiện file word sẵng có và tự động copy bảng từ excel qua word tại vị trí đó. (do dữ liệu hơi nhiều nên mình trích 1 phần làm vidu minh họa thôi) anh chị nào biết xin chỉ giúp. thanks cả nhà giaiphapexcel.com

 

[Hong.Van]

mình có một file excel, nếu muốn khi nhấn vào nút in báo giá thì sẽ hiện file word sẵng có và tự động copy bảng từ excel qua word tại vị trí đó. (do dữ liệu hơi nhiều nên mình trích 1 phần làm vidu minh họa thôi) anh chị nào biết xin chỉ giúp. thanks cả nhà giaiphapexcel.com

Sao bạn không dùng Mail Merge cho đơn giản nhỉ!

 

[dmtcvn]

Mình thường chèn Excel vào thẳng Word như thế này:

 

[baohan2006]

mail merge thì đơn giản thôi, nhưng ở đây mình muốn làm trong vba, mình muốn đưa vào dự án của mình thôi, vidu trên là một phần nhỏ thôi. dù sao cũng cảm ơn bạn nhiều.

 

[baohan2006]

cảm ơn bạn nhiều, nhưng mình muốn lập trình trong vba cơ

 

[Quang_Hải]

cảm ơn bạn nhiều, nhưng mình muốn lập trình trong vba cơ

Yêu cầu của bạn cũng không khó đâu. Bạn xài code này nhé. Code này mình viết dựa theo 2 files đính kèm của bạn. Có gì thì tuỳ biến nhé

Lưu ý là 2 file này phải nằm chung 1 thư mục

Phải vào VBE >>> Tools >>> References>>> tìm và đánh dấu chọn mục Microsoft Word ..... Object Library

Sub EXCEL_TO_WORD()
Dim WordDoc As Object
Set WordDoc = CreateObject("Word.Application")
WordDoc.Visible = True
WordDoc.Documents.Open (ThisWorkbook.Path & "\BANG BAO GIA.doc")
Range([A2], [A65536].End(3)).Resize(, 5).Copy
   With WordDoc.Selection
      .MoveDown Unit:=wdLine, Count:=3
      .PasteSpecial , DataType:=wdPasteOLEObject, Placement:=wdInLine
   End With
Set WordDoc = Nothing
End Sub

 

[baohan2006]

Yêu cầu của bạn cũng không khó đâu. Bạn xài code này nhé. Code này mình viết dựa theo 2 files đính kèm của bạn. Có gì thì tuỳ biến nhé

Lưu ý là 2 file này phải nằm chung 1 thư mục

Phải vào VBE >>> Tools >>> References>>> tìm và đánh dấu chọn mục Microsoft Word ..... Object Library

Sub EXCEL_TO_WORD()
Dim WordDoc As Object
Set WordDoc = CreateObject("Word.Application")
WordDoc.Visible = True
WordDoc.Documents.Open (ThisWorkbook.Path & "\BANG BAO GIA.doc")
Range([A2], [A65536].End(3)).Resize(, 5).Copy
   With WordDoc.Selection
      .MoveDown Unit:=wdLine, Count:=3
      .PasteSpecial , DataType:=wdPasteOLEObject, Placement:=wdInLine
   End With
Set WordDoc = Nothing
End Sub

cảm ơn bạn nhiều, để mình thử cái đã