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



VBA36 Điền dữ liệu vào Word từ Excel sử dụng VBA. Điền dữ liệu từ nhiều dòng trong Excel vào file Word dưới dạng template chuẩn bị sẵn. Đ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.

XEM THÊM
Tự học lập trình Python cơ bản:

Tự học Google Sheet / Google Trang tính

Tự học JavaScript cơ bản:

Tự học Excel Online cơ bản đến nâng cao:

Tự học lập trình VBA cơ bản đến nâng cao:

Tự học lập trình Google Apps Script:

▷ Các khoá học nâng cao:
▷ Video được cung cấp miễn phí bởi
▷ Facebook Page:

Download file trong videos:

Xem thêm video học và các thủ thuật excel: https://mindovermetal.org/thu-thuat-excel/

5/5 - (10 votes)

Bài viết liên quan

Subscribe
Notify of
guest
50 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments
Dũng Phạm

Muốn tạo tất cả các giấy mời trong 1 file word thì phải viết vba như thế nào? Mình rất mong được giúp đỡ

Thành Trương Trung

Cảm ơn bài học cực kỳ hay của anh. Cách này mình áp dụng rất hiệu quả. Anh Thanh cho mình hỏi: khi mình copy số từ Excel vào file Word thì các dấu chấm cách nghìn bị mất, kiểu thế này: 145379512 (thay vì: 145.379.512). Mình có cách nào để copy qua Word mà vẫn còn dấu cách ngàn không anh?

Linh Nguyễn

Bạn chỉ giúp mình khắc phục lỗi 255 ký tự được ko? xin cảm ơn

Minh Nhật

Hi ad, nếu không muốn lưu riêng thành nhiều file word mà gộp chung thành 1 file và đổi thành pdf thì code như thế nào vậy ad ?

nguyên phạm duy

tệp chứa virus, google báo thế bác ạ

Phan Phú HKHT

Sau khi mình làm xong và lưu lại . Có cách nào cho người khác có thể sửa đổi file Word những ko thể lưu lại dc ko a.

Anh Nhat Nguyet

Hay tuyệt. Nhưng cũng rất hứng thú với ReplaceWith >255 ký tự, nhờ a Thanh hướng dẫn. Cám ơn

Đây là nội dung nhỏ trong bộ khóa học:

▷ Khoá học "Học Excel, Có Việc Ngay": ​http://bit.ly/ex101_dtnguyen

▷ Xem ngay "Tự động hoá Excel và báo cáo với VBA": http://bit.ly/vba101_dtnguyen

▷ Theo dõi Facebook cá nhân: https://fb.me/kuldokk

▷ Blog cá nhân: https://blog.hocexcel.online

▷ Video được cung cấp miễn phí bởi https://hocexcel.online

▷ Facebook Group: http://bit.ly/heoFBG



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: ​https://www.hocexcel.online/ex101

🔑 Hãy để VBA giúp bạn: https://www.hocexcel.online/vba101

🔑 Hiểu và phân tích dữ liệu với Excel: ​https://www.hocexcel.online/dv101​

Mat Mat Kid TV

ad ơi phiền bạn bày giúp mình lưu file thành tên từng người với, xin chân thành cảm ơn bạn

sanh lương văn

Cho e hỏi nếu đoạn văn bản hơn 255 ký tự phải làm sao vậy?? Mong giúp đỡ

Nga Trần

Em chào thầy, thầy ơi nếu em không muốn tách các giấy mời trên thành nhiều giấy. Mà muốn để tất cả các giấy mời vào một file word luôn được không thầy?

Hiển Đặng

chào ad, mình làm thử theo ad nhưng khi chạy file nó lại không thay đổi giá trị như của ad. không biết có cần phải làm thêm bước nào hay không.

Hưng Nguyễn Hoàng

Sau khi chạy mình bị lỗi run-time error '5825' object has been deleted không biết khắc phục thế nào giúp mình với

Vũ Nguyễn

Bổ ích

Ha Hoang

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 ạ.

Tien Dat Tran

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?

My Tran

vậy có thể chèn từ excel qua word không

nguyen truong giang

Thầy cho em xin file excel được không thầy, trang download bị lỗi ạ

Hồng Duyên Đỗ

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 ạ

phuc phamvan

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.

LU CO BINH

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?

votan thanh

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

dao xuan Cuong

anh ơi cho em xin code với ạ em cảm ơn ạ

anh hoa

anh ơi làm cuốn chữ trong userform đc k a

diep hkha

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.

Chiem Vu Huu

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

Langtuchanchinh

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

Sơn Trần Thái

Anh cho em xin file được không a? link file bị lỗi ạ

Ngô Quang

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

Plus Pro TV.

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.

dung nguyen viet dung

anh ơi cho em xin số dt anh vs

Tấn Thiện Đặng

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.

Sơn Nguyễn Ngọc

Giọng đọc của bạn này giống 1 admin bên Phê Phim quá 😀

Anh Le

Bạn ơn cho mình xin clip làm vs word trên 255 ký tự với ạ

nguyễn thế hiệp

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

CHÍNH VŨ

để tạo tên file word bằng tên ông(bà) đó thì làm thế nào ạ

Pham Duc Ha

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

Vu Tranhuy

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

Vũ Đình Chí

cho e xin lại link donwload file trong video với ạ. em cảm ơn nhiều ạ

Sơn Thảo Nguyễn

Cái này có thể chèn thêm dữ liệu hình ảnh ko ạh?

Quốc Hoàn Nguyễn

sao đang ky hoc roi ma ko thay gi

Tuấn Nguyễn Minh

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

Tuấn Nguyễn Minh

Bài hướng dẩn quá hay
Cám ơn nhiều

Tuấn Nguyễn Minh

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

Quang Anh Nguyen

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ỉ

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.

Hoàng Thanh Linh

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 ?

Sỹ Trịnh Văn

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.

phihung9t1 phihung

Anh Thanh chỉ giúp em cách làm chỗ đoạn văn nhieu hơn 255 ký tư đuợc k anh

hai Hoang

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?