Mở Word với VBA

Chia sẻ bởi:hands

★★★★★

‹ Chương trình tự động làm giấy mời... Tách câu trong Word sang Excel bằng... ›

Quảng cáo

Xin chào anh chị GPE, em có viết một đoạn code để mở 1 file word có chứ Mail Merge, nhưng khi chạy code nó không có hỏi update dữ liệu như khi dùng chuột mở bình thường, anh chị xem em viết sai ở đâu ạ

Khi em ở thủ công thì nó báo thông báo này, mình bấm Yes thì nó cập nhật dữ liệu mới trong File Excel
2087

Nhưng khi em viết code VBA như này thì mở nó không hỏi, và cũng không update ạ!
Sub MoWord
Dim word_app As Object, link As Variant
Set word_app = CreateObject("Word.Application")

With word_app
    .Visible = True
    link = "E:Tron ThuXM - 1.doc"
    .documents.Open (link)
End With
End sub
Em phải sửa như thế nào, để nó không hỏi mà tự update luôn ạ, Em cám ơn anh chị ạ!

Cái này hình như phải thiết lập SQLSecurityCheck, lúc trước tôi có gặp mà quên rồi, nó ngăn chặn các virus chạy các câu lệnh SQL. Bạn kiếm từ khóa đó xem thử.
Chủ thớt thử tham khảo bài viết này xem, trên trang web của Microsoft.
support.microsoft.com/en-us/topic/you-receive-the-opening-this-will-run-the-following-sql-command-message-when-you-open-a-word-mail-merge-main-document-that-is-linked-to-a-data-source-aebb9d4b-003c-0d4b-2762-42ecdccbaced
Bạn thử code sau. Biết đâu lại may mắn.

"Nó" có hỏi hay không không quan trọng. Vấn đề là sau đó bạn không phải chọn nguồn dữ liệu thì có thể trộn thư luôn được không.

Cách test: trước hết mở tập tin Excel -> chỉnh sửa dữ liệu -> lưu lại -> đóng tập tin Excel -> chạy code bên dưới -> không chọn lại Repcipients -> Finish & Merge – > Kiểm ra xem kết quả có chứa cac chỉnh sửa hay không.

Sub MoWord()
Dim word_app As Object, doc As Object, link As Variant
    Set word_app = CreateObject("Word.Application")

With word_app
        .Visible = True
        link = "E:Tron ThuXM - 1.doc"
        Set doc = .documents.Open(link)
    End With
    doc.MailMerge.OpenDataSource Name:="<ĐƯỜNG DẪN TỚI TẬP TIN EXCEL>", SQLStatement:="SELECT * FROM `Word$`"
End Sub