NHỜ HỖ TRỢ LỖI RUN-TIME ERROR " 1004 " KHI DÙNG ADD IN SAVEASWORKBOOK (1 người xem)

[htktdm2020]

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




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ị !

 

[Bluestar092011]

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ử.

 

[Nhattanktnn]

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ị !

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.

 

[befaint]

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.

 

[Nhattanktnn]

Ở listbox đã chọn sheet(s) giữ lại rồi

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

 

[VetMini]

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.

 

[HieuCD]

Có chứ. Vì đó là các sheets được liệt kê trong listbox, mà nó được lấy từ workbook lên mà.

Mình không tìm thấy lệnh gán tên sheet vào List box

 

[befaint]

Mình không tìm thấy lệnh gán tên sheet vào List box

Khúc đó bị che khuất rồi anh ạ.

 

[huuthang_bd]

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ỉ.

 

[befaint]

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ỉ.

Còn một trường hợp nữa là xóa sheet có thiết lập xlSheetVeryHidden.