Code VBA in file word từ excel

[BELION]

Chào các anh chị em của diễn đàn,

Em hiện đang làm một sáng kiến cho công ty, các phần khác hiện em đã hoàn thiện xong, chỉ duy có 1 phần em lay hoay hoài k làm được nên mạng phép nhờ anh chị em giúp đỡ em.
Hiện em đang kẹt ở phần sau:
+ Bấm nút để mở file word (với link được cài vào ô A1 với công thức =Hyperlink("Maubieu/totrinh.docx","Tờ trình")) ra in.
+ Có thể hiện file word khi in hoặc ẩn luôn càng tốt.
P/S: File word này có link nội dung từ file excel nên mỗi lần mở nó điều hiện một bảng reference confirm cần phải bấn"Yes", có cách nào để nó luôn cập nhật mà k cần bấm Yes k ạ.

Các anh chị em giúp em phần này với. Em xin cảm ơn và hậu tạ một phần quà nhỏ ạ!

 

[uglyman]

Cùng thắc mắc với bạn này.
Em có file Word (tạm gọi là Mau.docx) đã mail merge với 1 Danh sách excel.
Cần tạo 1 nút trong Danh sách excel đó để bấm mở ra file word Mau.docx, file mở ra tự động cập nhật dữ liệu hiện thời trong Danh sach excel mà không hỏi Yes/No
Các cao thủ giúp em với ah.

 

[thnghiachau]

Chào các anh chị em của diễn đàn,

Em hiện đang làm một sáng kiến cho công ty, các phần khác hiện em đã hoàn thiện xong, chỉ duy có 1 phần em lay hoay hoài k làm được nên mạng phép nhờ anh chị em giúp đỡ em.
Hiện em đang kẹt ở phần sau:
+ Bấm nút để mở file word (với link được cài vào ô A1 với công thức =Hyperlink("Maubieu/totrinh.docx","Tờ trình")) ra in.
+ Có thể hiện file word khi in hoặc ẩn luôn càng tốt.
P/S: File word này có link nội dung từ file excel nên mỗi lần mở nó điều hiện một bảng reference confirm cần phải bấn"Yes", có cách nào để nó luôn cập nhật mà k cần bấm Yes k ạ.
View attachment 242086
Các anh chị em giúp em phần này với. Em xin cảm ơn và hậu tạ một phần quà nhỏ ạ!

bạn dùng code này:

Sub PrintWordDoc(ByVal strFileWord As String)
Dim objWord As Object, objDoc As Object

    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Open(strFileWord)
    
    objWord.Visible = True
    objDoc.PrintOut
    objDoc.Close
    objWord.Quit
    
    Set objWord = Nothing
    Set objDoc = Nothing
End Sub

việc tự động update link/data kho open file thì mình nhớ là trong phần OPTION có việc chọn , bạn tìm nha

 

[nguyenduc1234]

Em xin lỗi vì đăng vào topic nhưng em có đăng ở nơi khác nhưng chắc k ai thấy để giúp ạ.

Em có file này (em xin lỗi vì đã phải xóa bớt thông tin), ở cột giá bán mỗi lần em nhập số liệu bằng tay vào là file bị đơ mất 20 s k phản hồi. Anh chị có thể giúp em được k ạ.

Em đã có tìm hiểu xóa style, name, object... mà k ăn thua ạ. Em cảm ơn anh chị.

 

[thnghiachau]

Em xin lỗi vì đăng vào topic nhưng em có đăng ở nơi khác nhưng chắc k ai thấy để giúp ạ.

Em có file này (em xin lỗi vì đã phải xóa bớt thông tin), ở cột giá bán mỗi lần em nhập số liệu bằng tay vào là file bị đơ mất 20 s k phản hồi. Anh chị có thể giúp em được k ạ.

Em đã có tìm hiểu xóa style, name, object... mà k ăn thua ạ. Em cảm ơn anh chị.

quay về https://www.giaiphapexcel.com/diendan/threads/file-excel-bị-lỗi-responding.151755/ nhá