Xóa file hiện tại đang chứa code bị lỗi File not found (1 người xem)

[khongnhienttt]

Mình tìm thấy code dưới đây, đọc cũng thấy ok, tuy nhiên sao chạy thì nó báo lỗi, mong các bạn giúp đỡ

Sub Killed()
Application.DisplayAlerts = False
ThisWorkbook.ChangeFileAccess (xlReadWrite)
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
End Sub

 

[thaipv]

Mình tìm thấy code dưới đây, đọc cũng thấy ok, tuy nhiên sao chạy thì nó báo lỗi, mong các bạn giúp đỡ

Sub Killed()
Application.DisplayAlerts = False
ThisWorkbook.ChangeFileAccess (xlReadWrite)
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
End Sub

Bạn thay dòng số 3 thành :

ThisWorkbook.ChangeFileAccess (xlReadOnly)

 

[khongnhienttt]

Bạn thay dòng số 3 thành :

ThisWorkbook.ChangeFileAccess (xlReadOnly)

Vẫn thông báo lỗi bạn à, bạn có cách nào xóa file hiện tại rồi đóng file lại luôn không, kiểu như dùng file hết bản quyền thì hiện 1 msgbox thông báo xong rồi xóa luôn ấy

 

[thaipv]

Vẫn thông báo lỗi bạn à, bạn có cách nào xóa file hiện tại rồi đóng file lại luôn không, kiểu như dùng file hết bản quyền thì hiện 1 msgbox thông báo xong rồi xóa luôn ấy

Vậy bạn thử thêm dòng :
[GPECODE=vb]Thisworkbook.Save[/GPECODE]
Vào trước dòng số 3 xem sao, toàn bộ code sẽ là :
[GPECODE=vb]
Sub Killed()
Application.DisplayAlerts = False

With ThisWorkbook
.Saved = True
.ChangeFileAccess (xlReadOnly)
Kill .FullName
.Close False
End With
End Sub
[/GPECODE]

 

[khongnhienttt]

Vậy bạn thử thêm dòng :
[GPECODE=vb]Thisworkbook.Save[/GPECODE]
Vào trước dòng số 3 xem sao, toàn bộ code sẽ là :
[GPECODE=vb]
Sub Killed()
Application.DisplayAlerts = False

With ThisWorkbook
.Saved = True
.ChangeFileAccess (xlReadOnly)
Kill .FullName
.Close False
End With
End Sub
[/GPECODE]

Cám ơn bạn đã nhiệt tình với mình, nhưng xin bạn hãy test thử xem nó vẫn báo lỗi bạn à, ko xóa được

 

[Hau151978]

Bạn bấm debug xem báo lỗi ở dòng nào, nếu ở dòng close thì bỏ đi hoặc thay bằng application.quit

 

[khongnhienttt]

Bạn bấm debug xem báo lỗi ở dòng nào, nếu ở dòng close thì bỏ đi hoặc thay bằng application.quit

Lỗi ở đây bạn

 

[khongnhienttt]

à Mình tìm ra lý do rồi, do mình để trong thư mục có dấu tiếng việt nên nó không hiểu, vậy có cách nào để nó hiểu khi xóa trong thư mục tiếng việt không ạ

 

[ndu96081631]

à Mình tìm ra lý do rồi, do mình để trong thư mục có dấu tiếng việt nên nó không hiểu, vậy có cách nào để nó hiểu khi xóa trong thư mục tiếng việt không ạ

Sửa thành:

Sub Killed()
  [COLOR=#ff0000]Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
[/COLOR]  Application.DisplayAlerts = False
  ThisWorkbook.ChangeFileAccess xlReadOnly
  [COLOR=#ff0000]FSO.DeleteFile ThisWorkbook.FullName
  Set FSO = Nothing[/COLOR]
  ThisWorkbook.Close False
End Sub

Chơi cho biết thôi chư đây là con dao hai lưỡi nha bạn! Dùng không khéo có khi sẽ hối hận

 

[khongnhienttt]

Sửa thành:

Sub Killed()
  [COLOR=#ff0000]Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
[/COLOR]  Application.DisplayAlerts = False
  ThisWorkbook.ChangeFileAccess xlReadOnly
  [COLOR=#ff0000]FSO.DeleteFile ThisWorkbook.FullName
  Set FSO = Nothing[/COLOR]
  ThisWorkbook.Close False
End Sub

Chơi cho biết thôi chư đây là con dao hai lưỡi nha bạn! Dùng không khéo có khi sẽ hối hận

Dạ đúng ý rồi, cám ơn thầy nhiều, thật ra đây là file Tuxoafile trong thư mục LearnVBA của thầy đấy ạ