VBA36 Điền dữ liệu vào Word từ Excel

43
32



▷ Xem thêm “Thành thạo Excel trong 7 ngày”:
▷ Xem thêm “Tự động hoá Excel và báo cáo với VBA”:

▷ Video được cung cấp miễn phí bởi
▷ Facebook Page:
Điền dữ liệu vào Word từ Excel tương tự Mail Merge nhưng lưu được thành nhiều file doc.


Khám phá thêm thật nhiều kiến thức với Học Excel Online:
🔑 Học Excel, Có Việc Ngay:
🔑 Lập trình VBA nâng cao khả năng Excel:
🔑 Trở thành siêu nhân báo cáo và biểu đồ:
🔑 Excel từ đơn giản đến chuyên gia:
🔑 Hãy để Excel 2010 giúp bạn:

▷ Video được cung cấp bởi
▷ Facebook Page:
▷ Facebook Group:

Download file trong videos:

Nguồn: https://blockchainvietnam.vn

Xem thêm bài viết khác: https://blockchainvietnam.vn/cong-nghe/

43 COMMENTS

  1. Hi anh, nếu em không muốn điền tất cả các cột trong Excel vào các từ trong file Word thì có cách nào không ạ ? Ví dụ có cột tên, ngày tháng năm sinh, thu nhập. Nhưng trong Word template, em chỉ cần điền họ tên và thu nhập, thì có cách nào bỏ qua cột ngày tháng năm sinh không ạ? Em cảm ơn ạ.

  2. template.SaveAs filename:=ThisWorkbook.Path & Application.PathSeparator & i & "-Gm.docx"
    nếu save chổ thư mục khác thì đã thử cách này
    template.SaveAs filename:=("D:Tam"-Gm.docx")
    được nhưng muốn thêm vô tên file 1 giá trị có dạng như Sheet1.Range("b1").Value thì cấu trúc ra sao vậy bạn?

  3. Chào bạn ạ, giúp mình chút với ạ, khi mình tích vào phần shape đã tạo thì exl hiện ra thông báo lỗi như sau: Microsoft Visual Basic for application 400, cho mình hỏi đây là lỗi gì ạ? và chỉnh sửa như thế nào ạ. hay code mình đang tạo sai ạ

  4. anh cho e hỏi chút a. cột số đếm nếu là giá trị lớn, ví dụ như 1.000. Khi bấm code thì nó hiển thị sang bên word là 1,000.như vậy là sai định dạng. anh có thể chỗ này được không a. Em cám ơn.

  5. Tuyệt vời, cảm ơn ĐT Nguyễn, Bạn có thể hướng dẫn tiếp đối với những trường hợp những cell có chứa dữ liệu lớn hơn 255 ký tự không?

  6. Cho em hỏi, em làm đúng y. Ra file nhưng nội dung không đổi. Đã chọn tool>references>word rồi a. Chỉ em với

  7. hi mình muốn chèn đoạn văn bản dài hơn 255 ký tự, bạn chỉ giúp mình nhé , cám ơn bạn nhiều.

  8. cho hỏi nếu muốn chỉ điền dữ lieu vào file word khi chọn tên cụ thể sau đó save as ra ten file đó. VD khi chạy chương trình thì sẽ hỏi: "Enter customer Name:" sau đó chỉ tạo ra file word của customer name đó. code lại thế nào anh.Thanks

  9. Tai sao nó cứ báo lỗi chỗ := vậy bạn, câu lệnh ko đúng à
    FindText := Sheet1.Cells(1, j).value, _

    RepaceWith := Sheet1.Cells(i + 1, j).Value,_

    Replace:=wdReplaceAll

  10. Mình Dowload bị lỗi Ad ơi "Sorry, this link has been automatically turned off for now. Learn more about traffic limits"

  11. ae có ai biết cách lấy sđt từ excell ra và cách nhau bằng dấu phẩy giống như vầy không : 907996026,0908727655,0938062979,0979571601,0918836926,0979498312,0907996026. chỉ mình với.

  12. a ơi mình muốn để tên từng người vào vị trí "giay_moi" đó thì phải làm thêm lệnh j nữa a, chỉ e với.

  13. Bạn có thể cho mình hỏi là chộn số lệnh theo số thứ tự từ 1 đên 200 sang word mà đổi theo số đc ko

  14. Trường hợp muốn lọc riêng từng file word nhưng mà có thêm điều kiện là lọc theo 1 cột rồi điền vào word đó thì làm sao, ví dụ danh sách giấy mời học sinh theo lớp, đẩy ra mỗi lớp chỉ 1 bản word thôi, còn danh sách học sinh tại 1 lớp sẽ tạo từng template theo từng trang trong 1 word, đến lớp khác thì mới sinh file word mới. Xin cảm ơn

  15. Chào anh
    Em đã thực hiện bài học đúng theo hướng dẫn. Nhưng khi Run thì báo lỗi là không tìm thấy file tempate. (file word cần sử dụng)
    Mong anh hướng dẫn giúp.
    Cám ơn anh nhiều

  16. Muốn xuất một dữ liệu ở hàng cuối cùng mới nhập thì làm cách nào?
    Bác nào biết code này chỉ dùm với

  17. Code chạy xuất file được rồi nhưng nó không cập nhật được dữ liệu từ excel qua word, Bác nào biết lổi gì chỉ giúp với

  18. Sao mình code y nguyên mà lại báo lỗi "Variable not difined" tại dòng Replace:=wdReplaceAll là sao Thanh nhỉ

  19. Bài này rất tuyệt vời.
    Mình đã thêm
    " Dim duong_dan As String

    On Error GoTo err
    duong_dan = Application.GetOpenFilename()"
    để tìm file và lấy đường dẫn để chạy cho phần trong lệnh For.
    Cám ơn bài rất nhiều.

  20. em làm đăng nhập giấy khai sinh bản sao từ dữ liệu excel, đã tách được thành các file word nhưng không trộn được dữ liệu từ excel vào Word. Anh có thể cho em biết lỗi ở đâu không ?

  21. Chào bạn mình gõ đoạn code như của bạn sao vẫn báo lỗi ở dấu := nhỉ, chỉ giúp mình với, mình muốn bản word trong cùng một file như chức năng mailing thì làm như nào vậ bạn.

  22. Mình dowload file về và chạy thử, tuy nhiên nó chạy ra từng file rồi mà nội dung thì không thay đổi, giữ nguyên như file template. Làm ơn giải thích giùm mình với?

  23. Ad cho em hỏi VBA của em không viết được tiếng việt có dấu ad có thể chỉ giúp em cách khắc phục được không ạ? em xin cảm ơn

  24. Chỉ có một điều là với file gồm 200 người thì tốc độ thực thi xuất ra file khá là chậm!? chậm hơn là làm với mailmerg

  25. Video rất hay. cảm ơn bạn đã chia sẻ!
    Mình làm theo tuy nhiên nó chạy ra từng file rồi mà nội dung thì không thay đổi, giữ nguyên như file template. Bạn giải thích mình với?

LEAVE A REPLY

Please enter your comment!
Please enter your name here