Nhờ các anh chị viết giúp em đoạn code đóng 1 file excel hiện tại và mở 1 file word (1 người xem)

[emonk]

Chả là em có 1 file mail merg, em đã tạo một nút bấm sử dụng hyperlink trong file excel để mở file word phục vụ việc in hợp đồng như nút New issue và re issue ảnh dưới.
,

nhưng nếu dùng cách này đôi lúc ngày tháng như ngày cấp cmt, ngày sinh nhật lại nhảy sang dạng số 38568 chứ không phải 04/08/2005 mặc dù em đã định dạng (\ @ "dd\mm\yyyy") trong file word rồi.
Nhưng nếu đóng file excel lại và mở file word đã merg với file excel đó thì mọi chuyện lại bình thường.
Vì vậy em muốn tạo 1 nút bấm trong file excel mà khi nhấp vào đó file excel lưu rồi đóng lại đồng thời hiện file word đã merg với nó để in hợp đồng.
Mong anh chị giúp đỡ. Em xin chân thành cảm ơn.

 

[Quang_Hải]

Chả là em có 1 file mail merg, em đã tạo một nút bấm sử dụng hyperlink trong file excel để mở file word phục vụ việc in hợp đồng như nút New issue và re issue ảnh dưới.

nhưng nếu dùng cách này đôi lúc ngày tháng như ngày cấp cmt, ngày sinh nhật lại nhảy sang dạng số 38568 chứ không phải 04/08/2005 mặc dù em đã định dạng (\ @ "dd\mm\yyyy") trong file word rồi.
Nhưng nếu đóng file excel lại và mở file word đã merg với file excel đó thì mọi chuyện lại bình thường.
Vì vậy em muốn tạo 1 nút bấm trong file excel mà khi nhấp vào đó file excel lưu rồi đóng lại đồng thời hiện file word đã merg với nó để in hợp đồng.
Mong anh chị giúp đỡ. Em xin chân thành cảm ơn.

Thử code này xem có xài được không
2 File này nằm chung 1 folder nhé

Sub Save_Open()
ThisWorkbook.Save
With CreateObject("Word.Application")
  .Visible = True
  .Documents.Open (ThisWorkbook.Path & "\tenfile.doc")
End With
Application.Quit
End Sub

 

[Hong.Van]

Thử code này xem có xài được không
2 File này nằm chung 1 folder nhé

Sub Save_Open()
ThisWorkbook.Save
With CreateObject("Word.Application")
  .Visible = True
  .Documents.Open (ThisWorkbook.Path & "\tenfile.doc")
End With
Application.Quit
End Sub

Em dùng ThisWorkbook.Close thay Application.Quit, để khỏi thoát Excel

 

[emonk]

Thử code này xem có xài được không
2 File này nằm chung 1 folder nhé

PHP Code:
Sub Save_Open()
ThisWorkbook.Save
With CreateObject("Word.Application")
.Visible = True
.Documents.Open (ThisWorkbook.Path & "\tenfile.doc")
End With
Application.Quit
End Sub

Cảm ơn bác em thử thì có 2 lỗi sau mà em chẳng biết làm thế nào:
- Không lưu được đoạn code trên vào command button nó báo thế này ạ

- 2 là khi chạy code trên thì đóng workbook hoặc excel mở ra file word nhưng file word này lại ko link (merg) với file excel nữa.
Các a/c có cách nào chỉ em với.

 

[Quang_Hải]

Em dùng ThisWorkbook.Close thay Application.Quit, để khỏi thoát Excel

Nếu không thoát excel thì anh dùng thế này thì sẽ lưu file và đóng file lại.

Thisworkbook.Close True

 

[Hong.Van]

- 2 là khi chạy code trên thì đóng workbook hoặc excel mở ra file word nhưng file word này lại ko link (merg) với file excel nữa.
Các a/c có cách nào chỉ em với.

Đúng là chạy code này thì File word mất đường Link
Bình thường khi mở File Word lên thì được thông báo như thế này
----

 

[emonk]

Lỗi này là thế nào ấy nhở

 

[nghiaphuc]

View attachment 89949Lỗi này là thế nào ấy nhở

Bạn cứ thử dịch nó sang tiếng Việt xem nó là cái gì?!
Bây giờ, bạn nhấn No, sẽ có 1 hộp thoại để bạn lưu file với định dạng khác (hộp thoại Save as). Trong hộp thoại này, tại mục Save as type, bạn chọn Excel Macro-Enabled Workbook (có phần mở rộng .xlsm) hoặc Excel 97-2003 Workbook (có phần mở rộng .xls) là sẽ lưu được Macro trong file.

 

[ndu96081631]

Lỗi này là thế nào ấy nhở

Thông báo xuất hiện, bấm "No" rồi Save với kiểu file xlsm hoặc xls là được
(lý do vì file xlsx sẽ xóa hết macro đang có trong file)

 

[emonk]

Em vẫn chưa khắc phục được việc sau khi chạy macro mở ra file word thì file word mất liên kết với file excel. Anh chị xem giúp em với?
many thanks!

 

[emonk]

BÁc nào giúp em với, còn mỗi khâu này mà vọc mãi ko đc