Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711) (2 người xem)

ongke0711 · 20/6/22

(Xin phép được tách bài từ bài post của bác Maika8008 (Link) để tránh lẫn lộn khi trao đổi và do cũng tài lanh xen vào, gây loãng bài của bác ấy).

Trộn dữ liệu từ Excel sang Word
-------------------------------------------------------------------------------------------

Lấy cảm hứng từ ý tưởng và file của bác Maika8008, tôi cũng thiết kế một phiên bản khác cho việc Trộn dữ liệu từ Excel sang Word.
Phiên bản này tổng hợp các nhu cầu thực tế của người dùng đã trao đổi trong chủ để này, có thể chưa đầy đủ nhưng cũng đáp ứng cơ bản cho công việc.

* Các chức năng:
- Tùy chọn trộn dữ liệu: Một (hoặc nhiều) đối tượng cho một (hoặc nhiều) văn bản.
- Tự động tạo tiêu đề cột riêng, không ảnh hưởng đến thiết kế bảng.
- Không cần cố định vị trí (dòng, cột ) của dữ liệu cần trộn vì dùng tham chiếu qua Table name.
- Chỉ lấy những dòng dữ liệu sau khi dùng Filter trong bảng dữ liệu.
- Khắc phục lỗi khi trộn đoạn văn bản nhiều hơn 255 ký tự.
- Trộn có kèm luôn file hình ảnh (.jpg, .png, .bmp).
- Trộn các Symbols (font Wingdings, Marlett, Webdings)
- Xuất file dạng .Docx, .PDF

>> Cập nhật ngày 11/10/2023:
- Trộn bảng biểu Excel vào Word Table, giữ nguyên định dạng thiết kế trong Excel.

>> Cập nhật ngày 14/07/2025: Lấy dữ liệu dạng cột (File đính kèm bên dưới)

Thiết kế cũng chưa bẫy lỗi gì nhiều, chắc chắn sẽ phát sinh lỗi khi thao tác, các bạn chạy kiểm tra thử nhé.
Tôi cũng đã thử dùng kết hợp tính năng Mail Merger có sẵn trong Word + VBA cho các tùy chọn nhưng tốc độ thực thi cũng không bằng một góc so với việc dùng thẳng Mail Merge (*) trong Word vì dù gì thì nó cũng đã qua code VBA để gọi tính năng Merge.

(*) Dùng Mail Merge trong Word rất nhanh nhưng nó chỉ đáp ứng tùy chọn cơ bản, đó là lý do có nhiều công cụ viết mở rộng thêm cho tính năng này.

Mã:

wdocSource.MailMerge.OpenDataSource...

Hướng dẫn sử dụng trong video.

* Đã cập nhật bẫy lỗi và chuyển sang kết nối muộn (Late binding) với Word để tránh lỗi giữa các phiên bản Office.

Link file (full code): https://www.mediafire.com/file/8fc086iogo32cie/MergeDataExcel2Word.zip/file

SaoKyZayTa · 8/6/23

ongke0711 đã viết:
(Xin phép được tách bài từ bài post của bác Maika8008 (Link) để tránh lẫn lộn khi trao đổi và do cũng tài lanh xen vào, gây loãng bài của bác ấy).

Trộn dữ liệu từ Excel sang Word
-------------------------------------------------------------------------------------------

Lấy cảm hứng từ ý tưởng và file của bác Maika8008, tôi cũng thiết kế một phiên bản khác cho việc Trộn dữ liệu từ Excel sang Word.
Phiên bản này tổng hợp các nhu cầu thực tế của người dùng đã trao đổi trong chủ để này, có thể chưa đầy đủ nhưng cũng đáp ứng cơ bản cho công việc.

* Các chức năng:
- Tùy chọn trộn dữ liệu: Một (hoặc nhiều) đối tượng cho một (hoặc nhiều) văn bản.
- Tự động tạo tiêu đề cột riêng, không ảnh hưởng đến thiết kế bảng.
- Không cần cố định vị trí (dòng, cột ) của dữ liệu cần trộn vì dùng tham chiếu qua Table name.
- Chỉ lấy những dòng dữ liệu sau khi dùng Filter trong bảng dữ liệu.
- Khắc phục lỗi khi trộn đoạn văn bản nhiều hơn 255 ký tự.
- Trộn có kèm luôn file hình ảnh (.jpg, .png, .bmp).
- Xuất file dạng .Docx, .PDF

Thiết kế cũng chưa bẫy lỗi gì nhiều, chắc chắn sẽ phát sinh lỗi khi thao tác, các bạn chạy kiểm tra thử nhé.
Tôi cũng đã thử dùng kết hợp tính năng Mail Merger có sẵn trong Word + VBA cho các tùy chọn nhưng tốc độ thực thi cũng không bằng một góc so với việc dùng thẳng Mail Merge (*) trong Word vì dù gì thì nó cũng đã qua code VBA để gọi tính năng Merge.

(*) Dùng Mail Merge trong Word rất nhanh nhưng nó chỉ đáp ứng tùy chọn cơ bản, đó là lý do có nhiều công cụ viết mở rộng thêm cho tính năng này.

Mã:

wdocSource.MailMerge.OpenDataSource...

Hướng dẫn sử dụng trong video.

* Đã cập nhật bẫy lỗi và chuyển sang kết nối muộn (Late binding) với Word để tránh lỗi giữa các phiên bản Office.

Link file (full code): https://www.mediafire.com/file/8fc086iogo32cie/MergeDataExcel2Word.zip/file

Cảm ơn bạn Chủ Topic rất nhiều nhé

ngochienbmt · 16/6/23

Nếu ma có tùy chọn bản dữ liệu trong excel qua thì hay nhi, như là có 1 trường dữ liệu là bản trong excel đã đc đặt tên or quét bản

Bài đã được tự động gộp: 16/6/23

truong124 đã viết:
dạ, xin lỗi chắc em diễn đạt chưa tốt ạ, ý em là ở bảng excel mình đang để dạng dd/mm/yyyy, muốn ra bản word nó hiện dạng ngày dd, tháng mm, năm yyyy.
nếu mailings thì em biết, nhưng theo mẫu bác ongke0711 thì em chưa làm được ạ.

Đơn giản không có ji khó hết, bạn chèn thêm cột và cho code vào để nó đọc cái ngày dd/mm/yy của bạn thành ngày tháng năm, rồi chèn dữ liệu này vào file bạn.

ngochienbmt · 20/6/23

Cái này có phần hay hơn ở chổ giao diện cho người dùng, nhưng bác lại bỏ mất một tính năng quan trọng trong file gốc là tạo ra thư mục lấy tên cột A để đặt tên, còn của bác lại lấy tên cột a lam trên file có đuôi kèm theo do đó xuất file lúc tìm hơi khó khăn xíu, bác bổ sung lại cách tạo folder khi chọn nh file là đẹp

ongke0711 · 20/6/23

ngochienbmt đã viết:
Cái này có phần hay hơn ở chổ giao diện cho người dùng, nhưng bác lại bỏ mất một tính năng quan trọng trong file gốc là tạo ra thư mục lấy tên cột A để đặt tên, còn của bác lại lấy tên cột a lam trên file có đuôi kèm theo do đó xuất file lúc tìm hơi khó khăn xíu, bác bổ sung lại cách tạo folder khi chọn nh file là đẹp

File gốc là file nào bạn? Tính năng quan trọng theo cách nghĩ của bạn thôi chứ không phải của chung nhé. Xem lại hướng dẫn sử dụng đi rồi phát biểu nhé.

Hoangkhang01213 · 29/6/23

ongke0711 đã viết:
(Xin phép được tách bài từ bài post của bác Maika8008 (Link) để tránh lẫn lộn khi trao đổi và do cũng tài lanh xen vào, gây loãng bài của bác ấy).

Trộn dữ liệu từ Excel sang Word
-------------------------------------------------------------------------------------------

Lấy cảm hứng từ ý tưởng và file của bác Maika8008, tôi cũng thiết kế một phiên bản khác cho việc Trộn dữ liệu từ Excel sang Word.
Phiên bản này tổng hợp các nhu cầu thực tế của người dùng đã trao đổi trong chủ để này, có thể chưa đầy đủ nhưng cũng đáp ứng cơ bản cho công việc.

* Các chức năng:
- Tùy chọn trộn dữ liệu: Một (hoặc nhiều) đối tượng cho một (hoặc nhiều) văn bản.
- Tự động tạo tiêu đề cột riêng, không ảnh hưởng đến thiết kế bảng.
- Không cần cố định vị trí (dòng, cột ) của dữ liệu cần trộn vì dùng tham chiếu qua Table name.
- Chỉ lấy những dòng dữ liệu sau khi dùng Filter trong bảng dữ liệu.
- Khắc phục lỗi khi trộn đoạn văn bản nhiều hơn 255 ký tự.
- Trộn có kèm luôn file hình ảnh (.jpg, .png, .bmp).
- Xuất file dạng .Docx, .PDF

Thiết kế cũng chưa bẫy lỗi gì nhiều, chắc chắn sẽ phát sinh lỗi khi thao tác, các bạn chạy kiểm tra thử nhé.
Tôi cũng đã thử dùng kết hợp tính năng Mail Merger có sẵn trong Word + VBA cho các tùy chọn nhưng tốc độ thực thi cũng không bằng một góc so với việc dùng thẳng Mail Merge (*) trong Word vì dù gì thì nó cũng đã qua code VBA để gọi tính năng Merge.

(*) Dùng Mail Merge trong Word rất nhanh nhưng nó chỉ đáp ứng tùy chọn cơ bản, đó là lý do có nhiều công cụ viết mở rộng thêm cho tính năng này.

Mã:

wdocSource.MailMerge.OpenDataSource...

Hướng dẫn sử dụng trong video.

* Đã cập nhật bẫy lỗi và chuyển sang kết nối muộn (Late binding) với Word để tránh lỗi giữa các phiên bản Office.

Link file (full code): https://www.mediafire.com/file/8fc086iogo32cie/MergeDataExcel2Word.zip/file

Mình muốn dữ liệu trong excel theo kiểu hàng dọc thì mình làm thế nào ạ

ngochienbmt · 10/7/23

Bác có thể thêm tính năng tạo folder con khi chọn ( lưu các file chạy vào folder đó) tên folde lấy từ cột nào đó ví dụ Cột A được không bác,

quochoandkh · 26/9/23

file bị hỏng hay sao mà mình chạy thì được nhưng khi mở lên thì dữ liệu không được trộn ra nguyên cái file gốc, mình đã cài [] vào tiêu đề

ongke0711 · 26/9/23

quochoandkh đã viết:
file bị hỏng hay sao mà mình chạy thì được nhưng khi mở lên thì dữ liệu không được trộn ra nguyên cái file gốc, mình đã cài [] vào tiêu đề

Bạn tải lại file ở bài #1.
- Dòng tiêu đề chỉ cần copy dán lên dòng 1, bấm nút lệnh thì code tự thêm dấu ngoặc vuông [...].
- Tôi không hiểu câu "... dữ liệu không được trộn ra nguyên cái file gốc"?

quochoandkh · 26/9/23

ongke0711 đã viết:
Bạn tải lại file ở bài #1.
- Dòng tiêu đề chỉ cần copy dán lên dòng 1, bấm nút lệnh thì code tự thêm dấu ngoặc vuông [...].
- Tôi không hiểu câu "... dữ liệu không được trộn ra nguyên cái file gốc"?

lỗi là do mình không copy lên dòng số 1, nhưng mình vẫn không chạy được, bạn xem giúp đây là lỗi gì với. kèm theo ảnh.

quochoandkh · 26/9/23

Mình lấy bản hôm qua tải về, thì đây là kết quả sau khi trộn., nó vẫn ra y nguyên cái file gốc chứ chưa được trộn.

Bài đã được tự động gộp: 26/9/23

có thể là file name ở đâu đó bị lỗi, mình nghĩ là cái forms đang bị lỗi tên gì đó.

namvu230397 · 26/9/23

quochoandkh đã viết:
Mình lấy bản hôm qua tải về, thì đây là kết quả sau khi trộn., nó vẫn ra y nguyên cái file gốc chứ chưa được trộn.
View attachment 295150 View attachment 295151

Bài đã được tự động gộp: 26/9/23

có thể là file name ở đâu đó bị lỗi, mình nghĩ là cái forms đang bị lỗi tên gì đó.
View attachment 295152

Bác copy file về máy, đừng để trên dropbox nữa xem có được không

quochoandkh · 26/9/23

namvu230397 đã viết:
Bác copy file về máy, đừng để trên dropbox nữa xem có được không

mình copy về ổ D, desktop cũng vẫn bị, chuột phải vào file và unlock rồi vẫn bị

ongke0711 · 26/9/23

quochoandkh đã viết:
Mình lấy bản hôm qua tải về, thì đây là kết quả sau khi trộn., nó vẫn ra y nguyên cái file gốc chứ chưa được trộn.

Bài đã được tự động gộp: 26/9/23

có thể là file name ở đâu đó bị lỗi, mình nghĩ là cái forms đang bị lỗi tên gì đó.

Bạn dùng file này xem còn lỗi 52 nữa không. Copy vô cùng thư mục.
Tôi chuyển sang Office 2013 32bit.

quochoandkh · 26/9/23

ongke0711 đã viết:
Bạn dùng file này xem còn lỗi 52 nữa không. Copy vô cùng thư mục.
Tôi chuyển sang Office 2013 32bit.

mình dùng bản bạn mới update thì bị lỗi này, liệu có liên quan đến đường dẫn máy Mac bạn đang dùng không nhỉ?

ongke0711 · 26/9/23

quochoandkh đã viết:
mình dùng bản bạn mới update thì bị lỗi này, liệu có liên quan đến đường dẫn máy Mac bạn đang dùng không nhỉ

Bạn sửa lại phần Asign macro của 2 cái nút lệnh là được rồi. Tạo file mới, chuyển code qua nên nó bị vậy.

quochoandkh · 26/9/23

ongke0711 đã viết:
Bạn sửa lại phần Asign macro của 2 cái nút lệnh là được rồi. Tạo file mới, chuyển code qua nên nó bị vậy.

mình vẫn bị lỗi 52, bạn thử teamview cho mình phát đc ko? zalo mình 0966136196

quochoandkh · 26/9/23

ongke0711 đã viết:
(Xin phép được tách bài từ bài post của bác Maika8008 (Link) để tránh lẫn lộn khi trao đổi và do cũng tài lanh xen vào, gây loãng bài của bác ấy).

Trộn dữ liệu từ Excel sang Word
-------------------------------------------------------------------------------------------

Lấy cảm hứng từ ý tưởng và file của bác Maika8008, tôi cũng thiết kế một phiên bản khác cho việc Trộn dữ liệu từ Excel sang Word.
Phiên bản này tổng hợp các nhu cầu thực tế của người dùng đã trao đổi trong chủ để này, có thể chưa đầy đủ nhưng cũng đáp ứng cơ bản cho công việc.

* Các chức năng:
- Tùy chọn trộn dữ liệu: Một (hoặc nhiều) đối tượng cho một (hoặc nhiều) văn bản.
- Tự động tạo tiêu đề cột riêng, không ảnh hưởng đến thiết kế bảng.
- Không cần cố định vị trí (dòng, cột ) của dữ liệu cần trộn vì dùng tham chiếu qua Table name.
- Chỉ lấy những dòng dữ liệu sau khi dùng Filter trong bảng dữ liệu.
- Khắc phục lỗi khi trộn đoạn văn bản nhiều hơn 255 ký tự.
- Trộn có kèm luôn file hình ảnh (.jpg, .png, .bmp).
- Xuất file dạng .Docx, .PDF

Thiết kế cũng chưa bẫy lỗi gì nhiều, chắc chắn sẽ phát sinh lỗi khi thao tác, các bạn chạy kiểm tra thử nhé.
Tôi cũng đã thử dùng kết hợp tính năng Mail Merger có sẵn trong Word + VBA cho các tùy chọn nhưng tốc độ thực thi cũng không bằng một góc so với việc dùng thẳng Mail Merge (*) trong Word vì dù gì thì nó cũng đã qua code VBA để gọi tính năng Merge.

(*) Dùng Mail Merge trong Word rất nhanh nhưng nó chỉ đáp ứng tùy chọn cơ bản, đó là lý do có nhiều công cụ viết mở rộng thêm cho tính năng này.

Mã:

wdocSource.MailMerge.OpenDataSource...

Hướng dẫn sử dụng trong video.

* Đã cập nhật bẫy lỗi và chuyển sang kết nối muộn (Late binding) với Word để tránh lỗi giữa các phiên bản Office.

Link file (full code): https://www.mediafire.com/file/8fc086iogo32cie/MergeDataExcel2Word.zip/file

hay là code của bản này 32 bít ko dùng đc cho 64 nhỉ? máy mng dùng đc sao máy mình ko dùng đc, thế mới là cái vấn đề khó hiểu.

ongke0711 · 26/9/23

quochoandkh đã viết:
hay là code của bản này 32 bít ko dùng đc cho 64 nhỉ? máy mng dùng đc sao máy mình ko dùng đc, thế mới là cái vấn đề khó hiểu.

Code dùng cho cả 32 và 64 bit.
Đơn giản là giờ bạn tạo file Excel mới từ máy bạn, copy toàn bộ code, Form, Sheet qua, gán lại macro rồi chạy thử là biết liền.

quochoandkh · 26/9/23

ongke0711 đã viết:
Bạn dùng file này xem còn lỗi 52 nữa không. Copy vô cùng thư mục.
Tôi chuyển sang Office 2013 32bit.

bạn ơi, bạn có thể up tất cả các ver từ trước đc không? biết đâu những ver cũ code ít nên khả năng bị lỗi sẽ ít đi.

ongke0711 · 26/9/23

quochoandkh đã viết:
bạn ơi, bạn có thể up tất cả các ver từ trước đc không? biết đâu những ver cũ code ít nên khả năng bị lỗi sẽ ít đi.

Chỉ có một thôi nhé bạn.
Từ máy bạn tạo file mà cũng báo lỗi file à?

quochoandkh · 27/9/23

ongke0711 đã viết:
Chỉ có một thôi nhé bạn.
Từ máy bạn tạo file mà cũng báo lỗi file à?

hoặc có thể do office mình cài bị lỗi chăng? trước đó mình cũng cài thêm mấy add in rồi lại xoá. để mai mình xem lại xem sao vì mọi ng ko thấy ai kêu lỗi cả.

ongke0711 · 27/9/23

quochoandkh đã viết:
hoặc có thể do office mình cài bị lỗi chăng? trước đó mình cũng cài thêm mấy add in rồi lại xoá. để mai mình xem lại xem sao vì mọi ng ko thấy ai kêu lỗi cả.

Không phải máy bạn bị lỗi đâu. Giờ rảnh tôi mới ngồi kiểm tra lại thì phát hiện lỗi ở phần code tự động lấy đường dẫn folder cũ -> nạp các file .doc trong đó.
Tôi đã sửa và cập nhật ở link bài #1. File đính kèm bên dưới.

(PS: Phải mượn cái laptop Windows của thằng con mới test ra cái lỗi đường dẫn, còn làm trên máy Windows ảo thì các đường dẫn dạng UNC nó vẫn chấp nhận, không báo lỗi)

quochoandkh · 27/9/23

ongke0711 đã viết:
Không phải máy bạn bị lỗi đâu. Giờ rảnh tôi mới ngồi kiểm tra lại thì phát hiện lỗi ở phần code tự động lấy đường dẫn folder cũ -> nạp các file .doc trong đó.
Tôi đã sửa và cập nhật ở link bài #1. File đính kèm bên dưới.

View attachment 295188

(PS: Phải mượn cái laptop Windows của thằng con mới test ra cái lỗi đường dẫn, còn làm trên máy Windows ảo thì các đường dẫn dạng UNC nó vẫn chấp nhận, không báo lỗi)

quá tuyệt vời mình vừa chạy thì thấy ngon lành không bị lỗi nữa rồi bác! Đây là bản thấy tốc độ rất nhanh và nhiều option để lựa chọn!

thnghiachau · 27/9/23

ongke0711 đã viết:
Không phải máy bạn bị lỗi đâu. Giờ rảnh tôi mới ngồi kiểm tra lại thì phát hiện lỗi ở phần code tự động lấy đường dẫn folder cũ -> nạp các file .doc trong đó.
Tôi đã sửa và cập nhật ở link bài #1. File đính kèm bên dưới.

View attachment 295188

(PS: Phải mượn cái laptop Windows của thằng con mới test ra cái lỗi đường dẫn, còn làm trên máy Windows ảo thì các đường dẫn dạng UNC nó vẫn chấp nhận, không báo lỗi)

Chào Bác @ongke0711 ,
khi chạy phát sinh cái lỗi:

Không biết mình có làm lộn cái gì không nữa, chưa có test debug nên ko biết dòng nào...

Cám ơn Bác nhiều.

namvu230397 · 27/9/23

thnghiachau đã viết:
Chào Bác @ongke0711 ,
khi chạy phát sinh cái lỗi:

View attachment 295192

Không biết mình có làm lộn cái gì không nữa, chưa có test debug nên ko biết dòng nào...

Cám ơn Bác nhiều.

Do có dữ liệu dài hơn 255 ký tự thôi, bạn đọc dòng thông báo lỗi là hiểu mà

ongke0711 · 27/9/23

thnghiachau đã viết:
Chào Bác @ongke0711 ,
khi chạy phát sinh cái lỗi:

View attachment 295192

Không biết mình có làm lộn cái gì không nữa, chưa có test debug nên ko biết dòng nào...

Cám ơn Bác nhiều.

Có thể do chọn trường làm tên file lưu đó (mục 4). Tên file không được quá 255 ký tự.

thnghiachau · 27/9/23

ongke0711 đã viết:
Có thể do chọn trường làm tên file lưu đó (mục 4). Tên file không được quá 255 ký tự.

Ah Đúng rồi... em chọn "Việc cần làm" làm tên file lưu...
Cám ơn anh nhiều.

quochoandkh · 28/9/23

cho mình hỏi, khi mình chạy thì ví dụ cột A là [STT] không có dữ liệu, nhưng khi chạy thì file word vẫn hiện [STT] chứ không mặc định thay thế bằng rỗng, giờ muốn nó thay thế bằng rỗng nếu không có dữ liệu thì làm ntn bác?

ongke0711 · 28/9/23

quochoandkh đã viết:
cho mình hỏi, khi mình chạy thì ví dụ cột A là [STT] không có dữ liệu, nhưng khi chạy thì file word vẫn hiện [STT] chứ không mặc định thay thế bằng rỗng, giờ muốn nó thay thế bằng rỗng nếu không có dữ liệu thì làm ntn bác?

À còn nhiều mục tôi chưa bẫy lỗi kỹ. Bạn dùng file đính kèm bên dưới đã cập nhật.
Tôi đang tinh chỉnh xem có tăng tốc được chút nào không chứ dùng vòng lặp trong Word chạy chậm thật.

quochoandkh · 28/9/23

ongke0711 đã viết:
À còn nhiều mục tôi chưa bẫy lỗi kỹ. Bạn dùng file đính kèm bên dưới đã cập nhật.
Tôi đang tinh chỉnh xem có tăng tốc được chút nào không chứ dùng vòng lặp trong Word chạy chậm thật.

Mã:

Sub TaoDongTieuDe1()
    Dim arrTieuDe As Variant
    Dim rngTieuDe As Range
    Dim sTit As String, s As String, i As Long
    
    sTit = "T" & ChrW(7841) & "o d" & ChrW(242) & "ng ti" & ChrW(234) & "u " & ChrW(273) & ChrW(7873)
    s = vbNewLine & "Qu" & ChrW(233) & "t ch" & ChrW(7885) & "n d" & ChrW(242) & "ng Ti" & ChrW(234) & "u " & ChrW(273) & ChrW(7873) & " " & ChrW(273) & ChrW(7875) & " th" & ChrW(234) & "m d" & ChrW(7845) & "u ngo" & ChrW(7863) & "c vu" & ChrW(244) & "ng [...]." & vbNewLine & vbNewLine
    
    On Error Resume Next
    Set rngTieuDe = Application.InputBox(Prompt:=s, Title:=sTit, Type:=8)
    On Error GoTo 0
    
    If rngTieuDe Is Nothing Then Exit Sub
    
    ReDim arrTieuDe(1 To rngTieuDe.Columns.Count)
        
    For i = 1 To rngTieuDe.Columns.Count
        arrTieuDe(i) = "[" & rngTieuDe.Cells(1, i).Value & "]"
    Next
        
    rngTieuDe.Value = arrTieuDe
End Sub

Mình có sửa cái đoạn tạo dòng tiêu đề, để khi hiện hộp thoại thì nhấn esc không bị lỗi vì không chọn dải ô cần tạo.
Thấy file của bạn rất ổn rồi. Tốc độ thì mình thấy khá ok rồi.

lilknighthood · 11/10/23

Dạ, e chào các A.C, hiện tại em đang gặp một lỗi như trong ảnh:
- Khi làm file thì nhiều lúc cũng cần lọc những dòng mình cần xuất file, nhưng khi lọc thì file xuất ra không đủ.

- Mong A.C có thể sửa lỗi này giúp e, e cảm ơn

ongke0711 · 11/10/23

lilknighthood đã viết:
- Khi làm file thì nhiều lúc cũng cần lọc những dòng mình cần xuất file, nhưng khi lọc thì file xuất ra không đủ.

Đây là lỗi do tôi chưa sửa 1 dòng code sai trong việc đếm dòng.
Bạn tải lại file đính kèm và test xem còn sai cái gì nữa không nhé.

lilknighthood · 11/10/23

ongke0711 đã viết:
Đây là lỗi do tôi chưa sửa 1 dòng code sai trong việc đếm dòng.
Bạn tải lại file đính kèm và test xem còn sai cái gì nữa không nhé.

Đã được xử lý, e cảm ơn nhiều

VuCongThanhNHNo · 5/11/23

Rất cảm ơn bác ongke0711
Em có chỉnh lại file của bac 1 chút để phù hợp nhu cầu sử dụng. Nhưng bị báo lỗi run time error 91, bác em giúp e với ạ.

ongke0711 · 5/11/23

VuCongThanhNHNo đã viết:
Rất cảm ơn bác ongke0711
Em có chỉnh lại file của bac 1 chút để phù hợp nhu cầu sử dụng. Nhưng bị báo lỗi run time error 91, bác em giúp e với ạ.

Bạn kiểm tra đoạn code thêm dữ liệu cho comboBox chọn tên cột. Lỗi nằm ở đây.

VuCongThanhNHNo · 5/11/23

Cảm ơn bác rất nhiều. E đã xử lý được. chia sẻ file lên đây cho bác nào cần.
E đã chỉnh sửa 1 số để phù hợp nhu cầu sử dụng như sau:
- Tự động chọn hàng và cột của dữ liệu
- Chuyển nhập dữ liệu từ hàng thành cột
- Tự động tạo 1 thư mục với tên trong dữ liệu excel và lưu tất cả các file vào 1 thư mục đó
- Chuyển lưu tên lên trước để dễ quản lý file
Lưu ý: E có để số thứ tự nhập vào file word từ 01-50. Bác nào sử dụng nhập mục cần thay thế trong word theo cấu trúc [1]-[50].

ongke0711 · 5/11/23

VuCongThanhNHNo đã viết:
E đã chỉnh sửa 1 số để phù hợp nhu cầu sử dụng như sau:
- Tự động chọn hàng và cột của dữ liệu
- Chuyển nhập dữ liệu từ hàng thành cột
- Tự động tạo 1 thư mục với tên trong dữ liệu excel và lưu tất cả các file vào 1 thư mục đó

Nếu không lầm là bạn đang sử dụng cái phiên bản đời đầu của tôi thì phải, đã qua bao cuộc bể dâu chỉnh sửa, cập nhật code rồi đó bạn...

. Nhưng đúng là. các tính năng trên của bạn là file tôi không có.

VuCongThanhNHNo · 6/11/23

Bác ongke0711 cho e hỏi chức năng (Trộn bảng biểu Excel vào Word Table, giữ nguyên định dạng thiết kế trong Excel) sử dụng thế nào với ạ

ongke0711 · 6/11/23

VuCongThanhNHNo đã viết:
Bác ongke0711 cho e hỏi chức năng (Trộn bảng biểu Excel vào Word Table, giữ nguyên định dạng thiết kế trong Excel) sử dụng thế nào với ạ

Ý đó là bạn định dạng sẵn bảng biểu trong file Excel theo đúng yêu cầu rồi, thì khi trộn sang Word, table trong Word vẫn giữ nguyên cái định dạng đó, khỏi mất công định dạng lại.
Còn code thì trong file có sẵn luôn rồi đó bạn.

VuCongThanhNHNo · 6/11/23

Cùng 1 bảng excel, khi e copy thủ công bằng tay thì không bị lỗi gì (Ví dụ như font chữ Time new roman như bảng dưới thì không sao).
Khi e sử dụng hàm thì bị lỗi hiển thị, font chữ chuyển sang Arial)

ongke0711 · 7/11/23

VuCongThanhNHNo đã viết:
Cùng 1 bảng excel, khi e copy thủ công bằng tay thì không bị lỗi gì (Ví dụ như font chữ Time new roman như bảng dưới thì không sao).
Khi e sử dụng hàm thì bị lỗi hiển thị, font chữ chuyển sang Arial)

Vụ này thì tôi không biết rồi bạn. File tôi test thì không xảy ra như bạn nên cũng chưa biết cách xử lý ra sao.
Bạn gửi cái file của bạn lên đây xem như thế nào.

Maika8008 · 7/11/23

VuCongThanhNHNo đã viết:
Cùng 1 bảng excel, khi e copy thủ công bằng tay thì không bị lỗi gì (Ví dụ như font chữ Time new roman như bảng dưới thì không sao).
Khi e sử dụng hàm thì bị lỗi hiển thị, font chữ chuyển sang Arial)

Việc này tôi nghĩ là do style của Word. Bạn thử thay đổi các thông số về dinh dang font chữ trong style Normal.

Manhhung90 · 7/11/23

VuCongThanhNHNo đã viết:
Cảm ơn bác rất nhiều. E đã xử lý được. chia sẻ file lên đây cho bác nào cần.
E đã chỉnh sửa 1 số để phù hợp nhu cầu sử dụng như sau:
- Tự động chọn hàng và cột của dữ liệu
- Chuyển nhập dữ liệu từ hàng thành cột
- Tự động tạo 1 thư mục với tên trong dữ liệu excel và lưu tất cả các file vào 1 thư mục đó
- Chuyển lưu tên lên trước để dễ quản lý file
Lưu ý: E có để số thứ tự nhập vào file word từ 01-50. Bác nào sử dụng nhập mục cần thay thế trong word theo cấu trúc [1]-[50].

Cho mình file mình tham khảo được không ạ. Mình cũng đang thiết kế lại file nhập liệu như vậy.

hamhochoi66 · 9/11/23

giaiphap đã viết:
Dùng file này kết hợp với tiện ích của bạn xem có được không? Cái này chỉ dùng riêng cho cái tiện ích của bác thôi đấy nhé.

Cho em hỏi bị lỗi này xử lý sao vậy ạ?

hanhung87 · 9/11/23

Mình dùng Office 2010 bị lỗi này, có thể khắc phục được không các bạn, máy dùng Office 2013 thì không bị lỗi. Khổ lỗi mình làm cho các chi nhánh nên mỗi nơi 1 bản office. Plzz

ongke0711 · 10/11/23

hanhung87 đã viết:
Mình dùng Office 2010 bị lỗi này, có thể khắc phục được không các bạn, máy dùng Office 2013 thì không bị lỗi. Khổ lỗi mình làm cho các chi nhánh nên mỗi nơi 1 bản office. Plzz

Bạn kiếm đoạn code tô màu xanh như hình rồi sửa lại như bên dưới xem thử.

Mã:

WordDoc.SaveAs2 sFullPathFile, FileFormat:=12

Nếu số 12 không được thì đổi thành 16
- 12: wdFormatXMLDocument
- 16: wdFormatDocumentDefault

hanhung87 · 10/11/23

ongke0711 đã viết:
Bạn kiếm đoạn code tô màu xanh như hình rồi sửa lại như bên dưới xem thử.

Mã:

WordDoc.SaveAs2 sFullPathFile, FileFormat:=12

Nếu số 12 không được thì đổi thành 16
- 12: wdFormatXMLDocument

ongke0711 đã viết:

Bạn kiếm đoạn code tô màu xanh như hình rồi sửa lại như bên dưới xem thử.

Mã:

WordDoc.SaveAs2 sFullPathFile, FileFormat:=12

Nếu số 12 không được thì đổi thành 16
- 12: wdFormatXMLDocument
- 16: wdFormatDocumentDefault

Nhấp chuột vào đây để mở rộng...

- 16: wdFormatDocumentDefau

Mình đã làm được rồi, cảm ơn bạn nhiều

Hoangkhang01213 · 17/11/23

có cách nào chuyển dữ liệu trong excel thành dang đứng được k cho dể nhập

ongke0711 · 17/11/23

Hoangkhang01213 đã viết:
có cách nào chuyển dữ liệu trong excel thành dang đứng được k cho dể nhập

Bảng tính trong file này không phải là Form nhập liệu nhé bạn mà kết quả của việc tổng hợp dữ liệu, lấy ra kết quả cần trộn.
Bạn muốn nhập liệu kiểu gì đó theo yêu cầu thực tế của bạn thì bạn làm riêng nhé.

truong124 · 15/12/23

ongke0711 đã viết:
>> Cập nhật ngày 11/10/2023:
- Trộn bảng biểu Excel vào Word Table, giữ nguyên định dạng thiết kế trong Excel.

Hướng dẫn sử dụng trong video.

em đang muốn sử dụng tính năng này mà đường link video không khả dụng ạ

truong124 · 16/12/23

@ongke0711 em bị vướng lỗi này, mong thầy chỉ giúp với ạ.

ongke0711 · 16/12/23

truong124 đã viết:
@ongke0711 em bị vướng lỗi này, mong thầy chỉ giúp với ạ.

Bạn xem lại trong Tool - Reference có thiếu thư viện nào không (missing)?
Hàm Replace() mặc định có sẳn trong VBA.

truong124 · 16/12/23

ongke0711 đã viết:
Bạn xem lại trong Tool - Reference có thiếu thư viện nào không (missing)?
Hàm Replace() mặc định có sẳn trong VBA.

cuả em vầy thì không biết thiếu gì không ạ?

hoangtuan.net · 21/12/23

Em dùng Ondrive, thì báo lỗi này ạ!

ongke0711 · 21/12/23

hoangtuan.net đã viết:
Em dùng Ondrive, thì báo lỗi này ạ!
View attachment 297732

Lạ thật, trên máy tôi không thấy báo lỗi này. Cái gốc đường dẫn của bạn như thế nào vậy? (nhìn hình không thấy)
Các bạn khác nếu có thời gian thì kiểm tra thử giùm tôi vụ OneDrive nhé. Cảm ơn.

hoangtuan.net · 4/1/24

ongke0711 đã viết:
Lạ thật, trên máy tôi không thấy báo lỗi này. Cái gốc đường dẫn của bạn như thế nào vậy? (nhìn hình không thấy)
Các bạn khác nếu có thời gian thì kiểm tra thử giùm tôi vụ OneDrive nhé. Cảm ơn.

View attachment 297733 View attachment 297734

Bác cho em hỏi mục chèn bảng từ Excel sang Word, thì phần bảng có lưu ý gì không ạ:
- Em đã chuyển bảng về dạng Table-
- Tên name đã đặt theo kiểu tblBang1
Mà khi chuyển qua Word nó chỉ hiện tên bảng (tblBang1) ra thôi a!
Em cảm ơn!

hoangtuan.net · 4/1/24

hoangtuan.net đã viết:
Bác cho em hỏi mục chèn bảng từ Excel sang Word, thì phần bảng có lưu ý gì không ạ:
- Em đã chuyển bảng về dạng Table-
- Tên name đã đặt theo kiểu tblBang1
Mà khi chuyển qua Word nó chỉ hiện tên bảng (tblBang1) ra thôi a!
Em cảm ơn!

E tự hỏi tự trả lời sau khi đọc hết các bình luận trong bài. May quá nhìn thấy đoạn code này của bác!

hoangtuan.net · 4/1/24

Cơ mà font chữ của bảng em để bên File Excel là Times New Roman mà khi trộn qua Word (bên Word cũng đang để Times New Roman) lại thành Calibri 11. Em cũng đã sửa phần Normal của Excel sang Times New Roman mà trộn nó vẫn là Calibri 11.

hoangtuan.net · 5/1/24

Video hướng dẫn sử dụng:

Liên kết: https://youtu.be/MtRPc8vY8zg

ongke0711 · 5/1/24

hoangtuan.net đã viết:
Video hướng dẫn sử dụng:

Liên kết: https://youtu.be/MtRPc8vY8zg

Cảm ơn bạn nhiều nhé. Tôi nói để làm cái video mà tới giờ cũng chưa làm được...

.

hoangtuan.net · 5/1/24

ongke0711 đã viết:
Cảm ơn bạn nhiều nhé. Tôi nói để làm cái video mà tới giờ cũng chưa làm được... .

Dạ mong bác cập nhật nhiều tính năng mới hữu ích nữa ạ!

HeSanbi · 5/1/24

@ongke0711 Nếu trộn dữ liệu bình thường, em có thể viết mã trộn cho dự án này
với 500 dòng dữ liệu cho mỗi văn bản chỉ trong vòng 15 đến vài mươi giây
có thời gian em sẽ tham gia dự án.

hoangtuan.net · 5/1/24

HeSanbi đã viết:
@ongke0711 Nếu trộn dữ liệu bình thường, em có thể viết mã trộn cho dự án này
với 500 dòng dữ liệu cho mỗi văn bản chỉ trong vòng 15 đến vài mươi giây
có thời gian em sẽ tham gia dự án.

Idol Sanbi mà tham gia thì hay quá!

hoangtuan.net · 6/1/24

Từ file của bác @ongke0711 em có Save as sang file add-in. Bác nào cần có thể sử dụng ạ!

hoangtuan.net · 7/1/24

Bác @ongke0711 ơi, sẽ găp lỗi 1004 nếu định dạng tại cột Danh sách 'bảng biểu' là Custom mà không phải là General ạ!

--------------------------- Microsoft Excel ---------------------------
Error: 1004 Err content: Application-defined or object-defined error
--------------------------- OK ---------------------------

hoangtuan.net · 7/1/24

Phần tạo thư mục con cho từng dòng dữ liệu khi em test thì nó mỗi file lại tạo 1 folder, chứ không gom lại ạ!

ongke0711 · 7/1/24

hoangtuan.net đã viết:
Phần tạo thư mục con cho từng dòng dữ liệu khi em test thì nó mỗi file lại tạo 1 folder, chứ không gom lại ạ!
View attachment 298161

Tôi có ghi là tạo folder từng dòng mà. Còn muốn tạo kiểu khác nữa thì phải thiết kế thêm các tùy chọn thôi, tôi không làm tất cả mà chỉ làm phần chính thôi bạn.

hoangtuan.net · 7/1/24

ongke0711 đã viết:
Tôi có ghi là tạo folder từng dòng mà. Còn muốn tạo kiểu khác nữa thì phải thiết kế thêm các tùy chọn thôi, tôi không làm tất cả mà chỉ làm phần chính thôi bạn.

Vâng là từng dòng đó ạ. Ví dụ dòng STT 1 thì các file tạo ra cho dòng đó cùng gom vào 1 thư mục. Nhưng của em nó lại thành 1, 1_1, 1_2 ấy ạ

Bài đã được tự động gộp: 7/1/24

Phút 26:27 trong Video này ạ:

Liên kết: https://youtu.be/PV0QaBIjOkk?si=u4CXR4vG_dwPOj-J

hoangtuan.net đã viết:
Vâng là từng dòng đó ạ. Ví dụ dòng STT 1 thì các file tạo ra cho dòng đó cùng gom vào 1 thư mục. Nhưng của em nó lại thành 1, 1_1, 1_2 ấy ạ

ongke0711 · 7/1/24

hoangtuan.net đã viết:
Bác @ongke0711 ơi, sẽ găp lỗi 1004 nếu định dạng tại cột Danh sách 'bảng biểu' là Custom mà không phải là General ạ!
View attachment 298160
--------------------------- Microsoft Excel ---------------------------
Error: 1004 Err content: Application-defined or object-defined error
--------------------------- OK ---------------------------

Về cơ bản thì khi thiết kế, người dùng phải thiết lập kiểu dữ liệu chính xác cho từng cột dữ liệu chứ không dễ dãi, muốn để sao cũng được, rồi sau này đi dọn rác cho họ.
Nếu đã lỡ gặp trường hợp "Custom" thì bạn sửa đoạn code này xem như thế nào.

ongke0711 · 7/1/24

hoangtuan.net đã viết:
Vâng là từng dòng đó ạ. Ví dụ dòng STT 1 thì các file tạo ra cho dòng đó cùng gom vào 1 thư mục. Nhưng của em nó lại thành 1, 1_1, 1_2 ấy ạ

Bài đã được tự động gộp: 7/1/24

Phút 26:27 trong Video này ạ:

Liên kết: https://youtu.be/PV0QaBIjOkk?si=u4CXR4vG_dwPOj-J

Do lúc trước có bạn có nhu cầu là tạo Folder riêng cho từng file một nên tôi mới tạo cái hàm MakeRecursiveFolder().
Nếu nhu cầu chung thực tế chỉ cần tạo 1 folder rồi gộp các file cùng đối tượng vào thì đơn giản hơn.

- Bạn copy cái hàm này vào module modFunctions:

Mã:

Sub makeFolder(Path As String, filePath As String)
    Static sPath As String
    sPath = Path
   
    If dirExists(Path) = False Then
        creaFolder Path
    End If
    sFPath = sPath & "\" & filePath
End Sub

- Trong thủ tục "SearchAndReplaceText": thêm gọi cái hàm vừa tạo như hình. (Làm tương tự cho trường hợp "Word")

hoangtuan.net · 7/1/24

ongke0711 đã viết:
Do lúc trước có bạn có nhu cầu là tạo Folder riêng cho từng file một nên tôi mới tạo cái hàm MakeRecursiveFolder().
Nếu nhu cầu chung thực tế chỉ cần tạo 1 folder rồi gộp các file cùng đối tượng vào thì đơn giản hơn.

- Bạn copy cái hàm này vào module modFunctions:

Mã:

Sub makeFolder(Path As String, filePath As String) Static sPath As String sPath = Path If dirExists(Path) = False Then creaFolder Path End If sFPath = sPath & "\" & filePath End Sub

- Trong thủ tục "SearchAndReplaceText": thêm gọi cái hàm vừa tạo như hình. (Làm tương tự cho trường hợp "Word")

View attachment 298171

Dạ cảm ơn bác nhiều ạ

pham ha 94 · 9/1/24

Mình có chạy nhưng hình như header và footer sẽ không thể merge được đúng không bạn

ongke0711 · 9/1/24

pham ha 94 đã viết:
View attachment 298235
Mình có chạy nhưng hình như header và footer sẽ không thể merge được đúng không bạn

Vấn đề không phải là không thể mà vì khi code tôi không tính tới cái phần Header/Footer, không đưa vô tìm kiếm và thay thế. Để rảnh tôi sẽ thêm vô.

lilknighthood · 25/1/24

Các bạn có ai bị giống mình k nhỉ, mình sử dụng file này dùng trên OneDrive thì bị crash.
Còn dùng trên local thì k bị

Bài đã được tự động gộp: 25/1/24

Các bạn có ai bị giống mình k nhỉ, mình sử dụng file này dùng trên OneDrive thì bị crash.
Còn dùng trên local thì k bị

hoangtuan.net · 25/1/24

lilknighthood đã viết:
Các bạn có ai bị giống mình k nhỉ, mình sử dụng file này dùng trên OneDrive thì bị crash.
Còn dùng trên local thì k bị

Bài đã được tự động gộp: 25/1/24

Các bạn có ai bị giống mình k nhỉ, mình sử dụng file này dùng trên OneDrive thì bị crash.
Còn dùng trên local thì k bị

có thể là do đường dẫn dài quá bạn ạ! Của mình dùng cũng toàn copy ra ổ D chạy cho mượt!

lilknighthood · 25/1/24

Các bạn có ai bị giống mình k nhỉ, mình sử dụng file này dùng trên OneDrive thì bị crash.
Còn dùng trên local thì k bị

hoangtuan.net đã viết:
có thể là do đường dẫn dài quá bạn ạ! Của mình dùng cũng toàn copy ra ổ D chạy cho mượt!

quả thật là đường dẫn dài thật (nhưng đường dẫn mình đều đặt k dấu và không có space, để mình thử đổi lại đường dẫn ngắn hơn xem sao). cảm ơn ý kiến b

duy.tg · 25/1/24

Mình thấy có cách nào làm được như Misa thì dễ dùng hơn rất nhiều . Cả 2 phiên bản @ongke0711 và @Maika8008 đều là để table trên excel rồi copy qua word . Còn của misa là có sẵn table trên word rồi đưa tiêu đề cột vào nó tự co dãn theo key chính ở bảng dữ liệu nguồn

ongke0711 · 25/1/24

duy.tg đã viết:
View attachment 298766
Mình thấy có cách nào làm được như Misa thì dễ dùng hơn rất nhiều . Cả 2 phiên bản @ongke0711 và @Maika8008 đều là để table trên excel rồi copy qua word . Còn của misa là có sẵn table trên word rồi đưa tiêu đề cột vào nó tự co dãn theo key chính ở bảng dữ liệu nguồn

Làm như Misa thì code dễ hơn nhiều đó bạn. Cách tôi và bác Maika8008 nó tùy biến Table các kiểu, không phụ thuộc table thiết kế sẳn trong Word. Bạn ngâm cứu kỹ lại đi nhé.

duy.tg · 25/1/24

ongke0711 đã viết:
Làm như Misa thì code dễ hơn nhiều đó bạn. Cách tôi và bác Maika8008 nó tùy biến Table các kiểu, không phụ thuộc table thiết kế sẳn trong Word. Bạn ngâm cứu kỹ lại đi nhé.

Chắc do khả năng của mình là khó . Nếu được bạn giải thích giúp mình chỗ này
Ví dụ có sẵn 1 cái bảng trong word để tìm kiếm theo tiêu đề cột không khó gì , nhưng nếu tìm đc thì làm sao biết được nó nằm ở table nào trong word để còn insert dòng? Rồi trong 1 file word có nhiều table cần chèn thì sao được?

Bài đã được tự động gộp: 25/1/24

Trước đây mình từng hỏi cái này , nhớ có 1 bác trên này chỉ cho cách dùng tab nhưng có nhiều bảng dùng tab cũng không ổn lắm

Hoàng Tuấn 868 · 25/1/24

. . . . . .

ongke0711 · 26/1/24

duy.tg đã viết:
Ví dụ có sẵn 1 cái bảng trong word để tìm kiếm theo tiêu đề cột không khó gì , nhưng nếu tìm đc thì làm sao biết được nó nằm ở ..

Bạn gửi file mẫu Word và Excel thực tế của bạn lên để xử lý tiện hơn.

duy.tg · 26/1/24

Mình gửi bạn nhé, bạn xem giúp mình

hoangtuan.net · 26/1/24

duy.tg đã viết:
Mình gửi bạn nhé, bạn xem giúp mình

Bỏ dấu [] ở hàng số 5 đi bạn nhé!

duy.tg · 26/1/24

hoangtuan.net đã viết:
Bỏ dấu [] ở hàng số 5 đi bạn nhé!

Thanks bạn mình đã sửa

ongke0711 · 26/1/24

duy.tg đã viết:
Mình gửi bạn nhé, bạn xem giúp mình

Nhờ bạn @Hoàng Tuấn 868 hỗ trợ giùm nhe. Tôi thấy nó giống như cái bài trộn của đồng bào Đồng Văn hôm trước.

Hoàng Tuấn 868 · 26/1/24

ongke0711 đã viết:
Nhờ bạn @Hoàng Tuấn 868 hỗ trợ giùm nhe. Tôi thấy nó giống như cái bài trộn của đồng bào Đồng Văn hôm trước.

Cái này chắc cần bạn đó cho vài ba mẫu word với số lượng hàng hóa khác nhau đã hoàn thành xem cụ thể thế nào anh ạ.

duy.tg · 26/1/24

Hoàng Tuấn 868 đã viết:
Cái này chắc cần bạn đó cho vài ba mẫu word với số lượng hàng hóa khác nhau đã hoàn thành xem cụ thể thế nào anh ạ.

Mình dự liệu lên số lượng hàng hóa ứng với mỗi văn bản xuất ra đã khác nhau rồi bạn

Hoàng Tuấn 868 · 26/1/24

duy.tg đã viết:
Mình dự liệu lên số lượng hàng hóa ứng với mỗi văn bản xuất ra đã khác nhau rồi bạn

Bạn cứ đưa vài mẫu word số lượng khác nhau phù hợp với số liệu trong file excel lên mình xem thế nào nhé.

ongke0711 · 26/1/24

duy.tg đã viết:
Mình dự liệu lên số lượng hàng hóa ứng với mỗi văn bản xuất ra đã khác nhau rồi bạn

Nếu số lượng dòng trong hóa đơn không vượt quá một con số nào đó (cố định) thì dùng luôn chức năng Mail merger, khỏi phải code.

duy.tg · 26/1/24

Hoàng Tuấn 868 đã viết:
Bạn cứ đưa vài mẫu word số lượng khác nhau phù hợp với số liệu trong file excel lên mình xem thế nào nhé.

Mình gửi lên mẫu này phức tạp hơn , file word có 2 table chính có cấu trúc khác nhau , ngoài ra còn bị lẫn lộn thêm các table khác nữa

Bài đã được tự động gộp: 26/1/24

Hoàng Tuấn 868 đã viết:
Bạn cứ đưa vài mẫu word số lượng khác nhau phù hợp với số liệu trong file excel lên mình xem thế nào nhé.

Mình gửi lên mẫu này phức tạp hơn , file word có 2 table chính có cấu trúc khác nhau , ngoài ra còn bị lẫn lộn thêm các table khác nữa

ongke0711 đã viết:
Nếu số lượng dòng trong hóa đơn không vượt quá một con số nào đó (cố định) thì dùng luôn chức năng Mail merger, khỏi phải code.

Cái mail merge xử lý được table nay mình mới biết , mong được mở mang kiến thức . Một tờ hóa đơn mình làm hiếm khi vượt quá 30 dòng

Hoàng Tuấn 868 · 27/1/24

duy.tg đã viết:
Mình gửi lên mẫu này phức tạp hơn , file word có 2 table chính có cấu trúc khác nhau , ngoài ra còn bị lẫn lộn thêm các table khác nữa

Bài đã được tự động gộp: 26/1/24

Mình gửi lên mẫu này phức tạp hơn , file word có 2 table chính có cấu trúc khác nhau , ngoài ra còn bị lẫn lộn thêm các table khác nữa

Cái mail merge xử lý được table nay mình mới biết , mong được mở mang kiến thức . Một tờ hóa đơn mình làm hiếm khi vượt quá 30 dòng

Có vài vấn đề như sau bạn ạ:
1/ Mình bảo bạn gửi file word phù hợp với nội dung dữ liệu trong file excel thì chưa thấy (file excel cũ không đủ nội dung với file word này).
2/ Bạn cho mình xem file excel nguyên bản được không. (file excel bạn gửi đây là file của anh OngKe0711)
3/ Bạn có tất cả mấy mẫu file Word
4/ File word nào phải đi kèm với dữ liệu đồng bộ với file excel đó nhé.
Bạn thử đọc bài này thì sẽ thấy có trường hợp còn phức tạp hơn của bạn.

duy.tg · 27/1/24

Mình đã đưa data đồng bộ với file mẫu lên rồi còn lấy các mẫu làm gì không biết. Chắc bạn không hiểu ý mình
Mình ko cần bạn code toàn bộ làm gì cho mình, giúp mình 1 sub để đưa table vào là được rồi. Cụ thể như sau
Quét qua data, lấy cột số nghiệm thu làm key chính,( mỗi key chính có số dòng chi tiết có thể khác nhau ), mỗi key chính xuất ra 1 file word. trong file word có các table đã định vị sẵn các cột rồi chỉ đưa dữ liệu tương ứng với key là xong
Ví dụ như dữ liệu kiểu này dùng file của chủ topic mình phải tạo 100 rất nhiều table rồi đặt nhiều tên , hoặc tạo sub phụ để thay đổi dữ liệu bảng tương ứng nhưng như vậy khi cần áp dụng mẫu văn bản khác lại mất công viết lại sub phụ. Với dữ liệu kiểu này để sẵn table trong word rồi định vị cột cho nó vẫn là dễ dùng hơn, có đoạn code này mình tự cải biên lại file của chủ Topic để phù hợp hơn với công việc của mình

Hoàng Tuấn 868 · 27/1/24

duy.tg đã viết:
Với dữ liệu kiểu này để sẵn table trong word rồi định vị cột cho nó vẫn là dễ dùng hơn

Theo cách này của bạn thì mình chưa biết làm thế nào, bạn chịu khó nhờ thành viên khác vậy.

hoangtuan.net · 27/1/24

duy.tg đã viết:
Mình đã đưa data đồng bộ với file mẫu lên rồi còn lấy các mẫu làm gì không biết. ...

Em có một góp ý nhỏ: Chắc do đêm muộn, do áp lực, do nhiều lý do khác... khiến bác bực bội. Nhưng với tâm thế của một người đi nhờ, em nghĩ bác nên kiềm chế cảm xúc lại!

duy.tg · 27/1/24

hoangtuan.net đã viết:
Em có một góp ý nhỏ: Chắc do đêm muộn, do áp lực, do nhiều lý do khác... khiến bác bực bội. Nhưng với tâm thế của một người đi nhờ, em nghĩ bác nên kiềm chế cảm xúc lại!

Xin lỗi bạn chút nhé ! Có 2 cái dữ liệu và file mẫu mình đã cung cấp cả, bạn hỏi mẫu khác mình cũng đưa luôn. và bạn nói excel file word không phù hợp nội dung với nhau trong khi mình mất công index từng vị trí.
Và mình cũng khẳng định luôn để sẵn cái table trong word định vị sẵn vị trí sẽ khó hơn tạo cái bảng trong excel rồi copy qua nhiều vì nó còn phải xác định vị trí cái bảng đó rồi mới insert dòng đưa dữ liệu tương ứng vào từng cột.
Một đằng là paste qua một đằng có sẵn bảng rồi đưa dữ liệu vào nó rất khác nhau
Có lẽ bạn hiểu sai, mình không đi nhờ làm thay cho mình , mình muốn học hỏi kiến thức, để làm bảng trong excel rồi paste qua mình cũng tự làm được nhưng trên phương diện người dùng cuối là ko tối ưu

hoangtuan.net · 27/1/24

duy.tg đã viết:
Mình đã đưa data đồng bộ với file mẫu lên rồi còn lấy các mẫu làm gì không biết. ...

Em có một góp ý nhỏ: Chắc do đêm muộn, do áp lực, do nhiều lý do khác... khiến bác bực bội. Nhưng với tâm thế của một người đi nhờ, em nghĩ bác nên kiềm chế cảm xúc lại!

duy.tg đã viết:
Xin lỗi bạn chút nhé ! Có 2 cái dữ liệu và file mẫu mình đã cung cấp cả, bạn hỏi mẫu khác mình cũng đưa luôn. và bạn nói excel file word không phù hợp nội dung với nhau trong khi mình mất công index từng vị trí.
Và mình cũng khẳng định luôn để sẵn cái table trong word định vị sẵn vị trí sẽ khó hơn tạo cái bảng trong excel rồi copy qua nhiều vì nó còn phải xác định vị trí cái bảng đó rồi mới insert dòng đưa dữ liệu tương ứng vào từng cột.
Một đằng là paste qua một đằng có sẵn bảng rồi đưa dữ liệu vào nó rất khác nhau
Có lẽ bạn hiểu sai, mình không đi nhờ làm thay cho mình , mình muốn học hỏi kiến thức, để làm bảng trong excel rồi paste qua mình cũng tự làm được nhưng trên phương diện người dùng cuối là ko tối ưu
View attachment 298795

Dạ bác, em xin lỗi ạ!

quangminhici · 27/1/24

duy.tg đã viết:
Mình gửi bạn nhé, bạn xem giúp mình

Làm được bạn nhé.

duy.tg · 27/1/24

quangminhici đã viết:
Làm được bạn nhé.

Tuyệt quá, mình bí ngay khúc đầu là xác định cái bảng chứa nội dung cần insert là cái bảng nào . Bạn thử vẫn dữ liệu đó nhưng với cái file word #190 xem kết quả thế nào

HeSanbi · 27/1/24

quangminhici đã viết:
Làm được bạn nhé.

duy.tg đã viết:
Tuyệt quá, mình bí ngay khúc đầu là xác định cái bảng chứa nội dung cần insert là cái bảng nào . Bạn thử vẫn dữ liệu đó nhưng với cái file word #190 xem kết quả thế nào

Sao mà khi thực hiện nó cứ chớp chớp như bị điện giật vậy gọi là tuyệt sao bác.

Tôi đang thử viết phiên bản "1 chớp" với vài giây là gộp hàng trăm tệp. Tôi sẽ sớm chia sẻ bác nhé

ongke0711 · 27/1/24

duy.tg đã viết:
mình bí ngay khúc đầu là xác định cái bảng chứa nội dung cần insert là cái bảng nào.

Muốn xác định bảng nào trong Word thì tôi biết có 2 cách: dùng Bookmark (như bạn đang thiết lập) hoặc Title.

Mã:

Function getTable_title(sTitle As String) As Table
    Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
        If tbl.Title = sTitle Then
            Set getTable_title = tbl
            Exit Function
        End If
    Next
End Function

Function getTable_bookmark(sTableName As String) As Table
    On Error Resume Next
    Set getTable_bookmark = ThisDocument.Bookmarks(sTableName).Range.Tables(1)
End Function

Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711) (2 người xem)

Người dùng đang xem chủ đề này

Thành viên gắn bó

File đính kèm

Thành viên mới

Thành viên chính thức

Thành viên chính thức

Thành viên gắn bó

Thành viên mới

Thành viên chính thức

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên mới

Thành viên hoạt động

Thành viên mới

Thành viên gắn bó

File đính kèm

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên gắn bó

File đính kèm

Thành viên mới

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

Thành viên hoạt động

Thành viên gắn bó

Chỉ biết ngồi BÈ và PHÁN chuyện!!!

Thành viên mới

Thành viên gắn bó

File đính kèm

Thành viên mới

Thành viên mới

File đính kèm

Thành viên gắn bó

File đính kèm

Thành viên mới

Thành viên mới

File đính kèm

Thành viên gắn bó

Thành viên mới

File đính kèm

Thành viên gắn bó

Thành viên mới

Thành viên gắn bó

Thành viên mới

File đính kèm

Thành viên gắn bó

Thành viên gạo cội

Thành viên hoạt động

Thành viên chính thức

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên mới

File đính kèm

Thành viên gắn bó

Thành viên mới

Thành viên thường trực

Thành viên gắn bó

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên gắn bó

Thành viên thường trực

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên thường trực

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên thường trực