Cho em hỏi về lỗi khi dùng Mail Merge

[phananhvusv]

Tình hình là em cài Mail Merge xong xuôi, nhưng mở cùng lúc 2 file thì bị báo lỗi như thế này:
Em chọn dòng nào nó cũng chỉ mở file excel read only thôi. Mà nhu cầu của em là phải liên kết động trên cả 2 file. Nhờ mấy anh chị giúp em với ạ. Em cám ơn.

 

[minhdang_9]

Cái này chịu thôi, bạn phải đóng file word thì mới mở được file excel. Do đó để có đc liên kết động bạn mở file excel cập nhật trước rồi mở file word sau và kết nối. Giải pháp thứ 2 là bạn sử dụng excel và tạo sheet thư sao cho in ra giống với file word thì mới liên kết động được!

 

[vanle33]

Tình hình là em cài Mail Merge xong xuôi, nhưng mở cùng lúc 2 file thì bị báo lỗi như thế này:View attachment 217637
Em chọn dòng nào nó cũng chỉ mở file excel read only thôi. Mà nhu cầu của em là phải liên kết động trên cả 2 file. Nhờ mấy anh chị giúp em với ạ. Em cám ơn.

Tôi thấy lỗi này khi làm Mail Merge và đơn giản khắc phục bằng cách: Sau khi đã trộn từ Excel sang Word/lưu file/ mở file Word lên (không mở file Excel) thử chạy Mail Merge --> Không có lỗi như trên hình.
ps: Nếu bạn cố tình mở thì sẽ gây lỗi cho file Word

 

[phananhvusv]

Tôi thấy lỗi này khi làm Mail Merge và đơn giản khắc phục bằng cách: Sau khi đã trộn từ Excel sang Word/lưu file/ mở file Word lên (không mở file Excel) thử chạy Mail Merge --> Không có lỗi như trên hình.
ps: Nếu bạn cố tình mở thì sẽ gây lỗi cho file Word

Cái này thì rõ ràng rồi, nhưng mình muốn có liên kết động trực tiếp á bạn. chứ làm số lượng nhiều mà phải tắt mở nhiều lần vậy thì mất thời gian quá.

Bài đã được tự động gộp: 21/5/19

Cái này chịu thôi, bạn phải đóng file word thì mới mở được file excel. Do đó để có đc liên kết động bạn mở file excel cập nhật trước rồi mở file word sau và kết nối. Giải pháp thứ 2 là bạn sử dụng excel và tạo sheet thư sao cho in ra giống với file word thì mới liên kết động được!

Mình cũng nghĩ đến làm file excel rồi dùng liên kết trực tiếp. Nhưng làm sao để chuyển qua các dòng dữ liệu như Mail Merge được nhỉ? Bạn hướng dẫn mình được ko?

 

[vanle33]

1) Cái này thì rõ ràng rồi, nhưng mình muốn có liên kết động trực tiếp á bạn. chứ làm số lượng nhiều mà phải tắt mở nhiều lần vậy thì mất thời gian quá.

Bài đã được tự động gộp: 21/5/19

2) Mình cũng nghĩ đến làm file excel rồi dùng liên kết trực tiếp. Nhưng làm sao để chuyển qua các dòng dữ liệu như Mail Merge được nhỉ? Bạn hướng dẫn mình được ko?

1) Thì quy định của người ta (Microsoft) như vậy rồi. Bạn cứ tạo file Excel chính xác toàn bộ dữ liệu rồi trộn qua Word có 1 lần duy nhất rồi in (hay làm gì tiếp theo thì làm).
2) Link trực tiếp trên Excel thì cũng phải có toàn bộ dữ liệu trên 1 sheet Excel (A) sau đó link sang 1 sheet khác (các nội dung cố định y hệt như file Word ở mục 1) các nội dung thay đổi thì dùng công thức = sang sheet (A) hoặc dùng hàm (VLOOKUP chẳng hạn) sang sheet (A).

 

[minhdang_9]

Cái này thì rõ ràng rồi, nhưng mình muốn có liên kết động trực tiếp á bạn. chứ làm số lượng nhiều mà phải tắt mở nhiều lần vậy thì mất thời gian quá.

Bài đã được tự động gộp: 21/5/19

Mình cũng nghĩ đến làm file excel rồi dùng liên kết trực tiếp. Nhưng làm sao để chuyển qua các dòng dữ liệu như Mail Merge được nhỉ? Bạn hướng dẫn mình được ko?

Cách field trong merge bạn có thể dùng hàm vlookup hoặc hàm index kết hợp match là đc. Bạn attack file mẫu dữ liệu và mẫu thư bên word mình xem thử

 

[phananhvusv]

Cách field trong merge bạn có thể dùng hàm vlookup hoặc hàm index kết hợp match là đc. Bạn attack file mẫu dữ liệu và mẫu thư bên word mình xem thử

 

[minhdang_9]

Bạn xem thử đã đúng yêu cầu chưa?
Do không biết bên bạn có cho dùng macro không nên mình viết code riêng

Sub Inphieutra()
' Macro inphieu
' Khi nào can in ?ien ?ay ?u tham so vào ô K2 ?en K4 cua sheet Mau)5_HDSD'
Dim a, b, c As Integer
Windows("tra buu dien.xlsx").Activate
Sheets("Mau05_HSBD").Select
a = Range("K2")
b = Range("K3")
c = Range("K4")
On Error GoTo MSG
For i = a To b
    Range("K1").FormulaR1C1 = i
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=c
Next i
Range("K2").Value = Range("K1")
Range("K3").Value = Range("K1")
Range("K4").Value = c
Exit Sub
MSG:
    MsgBox "Ban chua nhap du lieu in", vbOKOnly
End Sub