Thoát khỏi Microsoft Word với lệnh Từ 1 file Excel ? (1 người xem)

[TrungChinhs]

Tôi có 1 File Excel và 1 File Word để cùng một thư mục. Khi mở cả 2 File từ thư mục bằng thủ công (đúp chuột) rồi từ file Excel dùng lệnh sau để đóng file Word và thoát khỏi Microsoft Word thì không được (tôi đoán là Excel không tìm thấy đường dẫn ThisWorkbook.Path & "\" ).

Sub Macro1()
    With CreateObject("Word.Application")
        .Documents([COLOR=#ff0000]ThisWorkbook.Path & "\"[/COLOR] & "File_Mau.doc").Close (True)
        .Quit
     End With
End Sub

Vậy muốn Thoát khỏi Microsoft Word với lệnh Từ 1 file Excel thì code viết như thế nào ? Nhờ các bạn viết giúp.
Thanks !

 

[Quang_Hải]

Tôi có 1 File Excel và 1 File Word để cùng một thư mục. Khi mở cả 2 File từ thư mục bằng thủ công (đúp chuột) rồi từ file Excel dùng lệnh sau để đóng file Word và thoát khỏi Microsoft Word thì không được (tôi đoán là Excel không tìm thấy đường dẫn ThisWorkbook.Path & "\" ).

Sub Macro1()
    With CreateObject("Word.Application")
        .Documents([COLOR=#ff0000]ThisWorkbook.Path & "\"[/COLOR] & "File_Mau.doc").Close (True)
        .Quit
     End With
End Sub

Vậy muốn Thoát khỏi Microsoft Word với lệnh Từ 1 file Excel thì code viết như thế nào ? Nhờ các bạn viết giúp.
Thanks !

Anh thử thế này coi sao

Sub CloseWordApp()
On Error Resume Next
GetObject(Class:="Word.Application").Quit True
End Sub

 

[ndu96081631]

Tôi có 1 File Excel và 1 File Word để cùng một thư mục. Khi mở cả 2 File từ thư mục bằng thủ công (đúp chuột) rồi từ file Excel dùng lệnh sau để đóng file Word và thoát khỏi Microsoft Word thì không được (tôi đoán là Excel không tìm thấy đường dẫn ThisWorkbook.Path & "\" ).

Sub Macro1()
    With CreateObject("Word.Application")
        .Documents([COLOR=#ff0000]ThisWorkbook.Path & "\"[/COLOR] & "File_Mau.doc").Close (True)
        .Quit
     End With
End Sub

Vậy muốn Thoát khỏi Microsoft Word với lệnh Từ 1 file Excel thì code viết như thế nào ? Nhờ các bạn viết giúp.
Thanks !

Thật ra anh chỉ cần nhớ nguyên tắc "nông dân" này:
- Create là tạo mới, Get là lấy ra dùng
- Cái nào chưa có thì ta CreateObject
- Cái nào đã có rồi (giờ lấy ra xử lý) thì GetObject
Vậy thôi

 

[TrungChinhs]

Anh thử thế này coi sao

Sub CloseWordApp()
On Error Resume Next
GetObject(Class:="Word.Application").Quit True
End Sub

Cảm ơn quanghai, Code của Hải OK rồi.

Cảm ơn Ndu về Create và Get (bây giờ mới hiểu)