NHỜ HỖ TRỢ LỖI RUN-TIME ERROR " 1004 " KHI DÙNG ADD IN SAVEASWORKBOOK

Liên hệ QC

htktdm2020

Thành viên mới
Tham gia
21/8/20
Bài viết
25
Được thích
0
Chào Anh/Chị Diễn Đàn !

Em đang sử dụng Addin Saveasworkbook nhưng khi dùng file báo lỗi sau


1617349791354.jpg1617349830912.jpg

Em không biết bị lỗi nằm ở đâu . Em nhờ các Anh / Chị hướng dẫn khắc phục lỗi
Em xin cám ơn Anh / Chị !
 
Chào Anh/Chị Diễn Đàn !

Em đang sử dụng Addin Saveasworkbook nhưng khi dùng file báo lỗi sau


View attachment 256483View attachment 256485

Em không biết bị lỗi nằm ở đâu . Em nhờ các Anh / Chị hướng dẫn khắc phục lỗi
Em xin cám ơn Anh / Chị !
Xoá sheet nhưng sheet có tồn tại hay không? thử dùng msgbox để hiển thị tên sheet trước khi xoá và kiểm tra thử.
 
Xoá sheet nhưng sheet có tồn tại hay không
Có chứ. Vì đó là các sheets được liệt kê trong listbox, mà nó được lấy từ workbook lên mà.

Cái sheet đó là sheet duy nhất còn tồn tại trên bảng tính nên không thể xóa được.
Không đúng. Ở listbox đã chọn sheet(s) giữ lại rồi, vậy nên luôn luôn và luôn luôn tồn tại ít nhất 1 sheet không xóa.

Nếu không chọn sheet nào thì đã có dòng kiểm tra biến k và thoát.
 
Cái này ở khúc nào vậy anh? i=0 to listbox1.listcount-1 là toàn bộ mà anh
Sửa: à đúng rồi, nếu k=0 thì đã exit sub mất rồi
Lỗi tại kiểu viết code này khá cà chớn.
Code sử dụng dấu hai chấm (*1) là loại code viết chỉ riêng mình đọc và bảo quản. Đưa cho người khác debug khùng luôn.

(*1) Trừ phi hai dấu chấm ấy dùng cho Label.
 
Không đúng. Ở listbox đã chọn sheet(s) giữ lại rồi, vậy nên luôn luôn và luôn luôn tồn tại ít nhất 1 sheet không xóa.

Nếu không chọn sheet nào thì đã có dòng kiểm tra biến k và thoát.
Nếu nói là lỗi do xóa sheet duy nhất không bị ẩn thì chắc hợp lý nhỉ.
 
Web KT
Back
Top Bottom