Copy dữ liệu từ excel sang word bằng VBA

[bongmaihung]

Em có dữ liệu như file đính kèm
Nhờ anh chị viết giúp một đoạn code để có thể copy dữ liệu từ excel sang trang word trắng.
Merge mailing or paste link em đã biết, em muốn thử với VBA để học hỏi ah
Em cảm ơn!

 

[batman1]

Nhưng nếu là riêng Document thì có phương thức Close:

Document.Close
thấy có ví dụ:

On Error GoTo errorHandler
ActiveDocument.Close _
SaveChanges:=wdPromptToSaveChanges, _
OriginalFormat:=wdPromptUser
errorHandler:
If Err = 4198 Then MsgBox "Document was not closed"

Thì thế mới nói là đoán mò

Tôi đoán TaoMoi là document, vì thế TaoMoi.Close là đúng. Nhưng tôi đoán F_Word là Application nên không có CLOSE.

 

[saobocap8x]

Xin chào cả nhà! Tôi có học cách lưu file excel sang word trên diễn đàn đàn và làm theo đã thành công. Nay muốn hỏi thêm: khi lưu sang word muốn ở dạng văn bản mà ko còn định dạng table của excel thì ta phải làm sao ah. Trân trọng!

 

[batman1]

Xin chào cả nhà! Tôi có học cách lưu file excel sang word trên diễn đàn đàn và làm theo đã thành công. Nay muốn hỏi thêm: khi lưu sang word muốn ở dạng văn bản mà ko còn định dạng table của excel thì ta phải làm sao ah. Trân trọng!

Hỏi mà như đánh đố nhỉ.
Ai biết bạn "lưu" những gì, "lưu" như thế nào v...v Trong Excel có bảng và dữ liệu ngoài bảng? "ko còn định dạng table của excel" có nghĩa là gì? Các ô đang có mầu, tô đậm thì mất đi hay là biến bảng thành không có bảng (trong Word: Table Tools -> Layout -> Data -> Convert to Text)?
Tốt nhất hãy đính kèm tập tin Excel có dữ liệu ví dụ và code, mà sau khi chạy thì "đã thành công". Dựa vào đó mà mô tả, cần sửa những chỗ nào trong kết quả tập tin Word.

Góp ý thôi, vì tôi thường đòi hỏi mô tả chi tiết, rõ ràng. Không chơi trò "đoán ý đồng đội".

 

[saobocap8x]

Hỏi mà như đánh đố nhỉ.
Ai biết bạn "lưu" những gì, "lưu" như thế nào v...v Trong Excel có bảng và dữ liệu ngoài bảng? "ko còn định dạng table của excel" có nghĩa là gì? Các ô đang có mầu, tô đậm thì mất đi hay là biến bảng thành không có bảng (trong Word: Table Tools -> Layout -> Data -> Convert to Text)?
Tốt nhất hãy đính kèm tập tin Excel có dữ liệu ví dụ và code, mà sau khi chạy thì "đã thành công". Dựa vào đó mà mô tả, cần sửa những chỗ nào trong kết quả tập tin Word.

Góp ý thôi, vì tôi thường đòi hỏi mô tả chi tiết, rõ ràng. Không chơi trò "đoán ý đồng đội".

Chân thành cảm ơn bác! Bác hiểu đúng ý em rồi ah. Ý của em là sau khi chuyển sang word mà em vẫn được kết quả của chuỗi thao tác này (Table Tools -> Layout -> Data -> Convert to Text), không cần làm lại chuỗi thao tác này nữa ah ! mong bác giúp cho

 

[batman1]

Chân thành cảm ơn bác! Bác hiểu đúng ý em rồi ah. Ý của em là sau khi chuyển sang word mà em vẫn được kết quả của chuỗi thao tác này (Table Tools -> Layout -> Data -> Convert to Text), không cần làm lại chuỗi thao tác này nữa ah ! mong bác giúp cho

Tôi đã mất công giải thích cho bạn mà bạn vẫn cố tình không đính kèm tập tin. Thôi thì đã trót, bạn tự chỉnh sửa thích hợp, đưa code sau vào code đã có của mình. Tôi kết thúc tại đây.

Sub test()
Const wdSeparateByTabs = 1
Dim WordApp As Object, doc As Object
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set doc = WordApp.documents.Add
    ThisWorkbook.Worksheets("Sheet1").Range("A1:D5").Copy
    WordApp.Selection.PasteExcelTable False, False, False
    doc.Tables(1).ConvertToText wdSeparateByTabs
    Set doc = Nothing
    Set WordApp = Nothing
End Sub

 

[saobocap8x]

Tôi đã mất công giải thích cho bạn mà bạn vẫn cố tình không đính kèm tập tin. Thôi thì đã trót, bạn tự chỉnh sửa thích hợp, đưa code sau vào code đã có của mình. Tôi kết thúc tại đây.

Sub test()
Const wdSeparateByTabs = 1
Dim WordApp As Object, doc As Object
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set doc = WordApp.documents.Add
    ThisWorkbook.Worksheets("Sheet1").Range("A1:D5").Copy
    WordApp.Selection.PasteExcelTable False, False, False
    doc.Tables(1).ConvertToText wdSeparateByTabs
    Set doc = Nothing
    Set WordApp = Nothing
End Sub

Ôi batman1 trân quý của tôi! Đoạn code của bạn chính xác là những gì mình cần. Cảm ơn sự nhiệt tình của bạn. Nhân tiện cho gửi đến lời xin lỗi vì đã nhờ bạn giúp nhưng lại gây cho bạn cảm giác bức xúc, sự thực là không phải cố tình mà phải gọi là mất kiểm soát khi có người hiểu đúng ý của mình, thực sự là mình mừng đến quên những yêu cầu của bạn. Mừng là vì không nghĩ là sẽ có người hỗ trợ mình, nếu có thì cũng chắc vài ngày hoặc cả tuần, thực sự không ngờ bạn giúp đỡ mình quá sớm nên mừng quá mất kiểm soát khi trao đổi thông tin với bạn. Chúc bạn sức khoẻ và thành công trong công việc! Cầu mong những người ngoại đạo excel như tôi luôn gặp những quí nhân như bạn giúp đỡ trong quá trình tự học. Một lần nữa, nhân dịp năm mới mà cho dù không phải năm mới cũng xin chúc bạn VẠN SỰ NHƯ Ý nhe! Trân trọng!

 

[ppc0312]

Tôi đã mất công giải thích cho bạn mà bạn vẫn cố tình không đính kèm tập tin. Thôi thì đã trót, bạn tự chỉnh sửa thích hợp, đưa code sau vào code đã có của mình. Tôi kết thúc tại đây.

Sub test()
Const wdSeparateByTabs = 1
Dim WordApp As Object, doc As Object
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set doc = WordApp.documents.Add
    ThisWorkbook.Worksheets("Sheet1").Range("A1:D5").Copy
    WordApp.Selection.PasteExcelTable False, False, False
    doc.Tables(1).ConvertToText wdSeparateByTabs
    Set doc = Nothing
    Set WordApp = Nothing
End Sub

Lỗi là bác quá nhiệt tình: chiều thượng đế không $