Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

Tiêu đề: [Hỏi] Sửa lỗi code VBA khi chọn "Cancel" hoặc "No" [In trang]

Tác giả: love04 Thời gian: 9/8/2016 10:08
Tiêu đề: [Hỏi] Sửa lỗi code VBA khi chọn "Cancel" hoặc "No"
Em có code này, khi chọn "Yes" thì code chạy bình thường, nhưng nếu chọn "Cancel" hoặc "No" thì nó hiện ra cửa sổ VBA. Em muốn khi chọn "Cancel" hoặc "No" thì nó không hiện ra bất kỳ cái gì mà kết thúc code luôn thì phải sửa code như thế nào ạ. Mọi người xem giúp em với ạ.

Sub Save_as_file_xls()

Dim TenFilegoc As String

Dim Duongdan As String

TenFilegoc = ActiveWorkbook.Name

Duongdan = ActiveWorkbook.Path

ActiveWorkbook.SaveAs Filename:="" & Duongdan& "\" & TenFilegoc & "", FileFormat:=xlNormal,Password:="", WriteResPassword:="",ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

Tác giả: tranhoe Thời gian: 9/8/2016 11:10
1./ Code đó là lưu file với chính tên của nó rồi nên mới hiện hộp thoại hỏi có ghi đè không. Vậy thì chỉ cần "ActiveWorkbook.Save" là xong
2./ Giả sử muốn dùng code đó thì thêm 2 dòng lệnh vào, như sau:

[Visual Basic] 纯文本查看 复制代码

Sub Save_as_file_xls()

    Dim TenFilegoc As String

    Dim Duongdan As String

    TenFilegoc = ActiveWorkbook.Name

    Duongdan = ActiveWorkbook.Path

    On Error Resume Next     ' Bỏ qua lỗi

    ActiveWorkbook.SaveAs Filename:=Duongdan & "\" & TenFilegoc, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

    On Error GoTo 0        'Khôi phục lại việc bắt lỗi 

End Sub

Tác giả: love04 Thời gian: 9/8/2016 13:02
Cảm ơn mọi người rất nhiều

Tác giả: love04 Thời gian: 9/8/2016 13:14
Anh ơi, code này có ý nghĩa là lưu file với chính tên và đường dẫn đó, khi chạy code xuất hiện hộp thoại thông báo và e muốn khi nhấn Yes thì code save này chạy bình thường, còn khi nhấn "Cancel" hoặc "No" thì code save này không chạy anh ạ.

Chào mừng ghé thăm Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng (https://xaydung360.vn/diendan/)