Xuất lỗi 2 workbook và nhiều worksheet lỗi trong 1 file excel

[anhduc.94]

Mong mọi người giúp đỡ nguyên nhân và cách xóa những workbook và worksheet lỗi này ạ.

 

[YêuCN]

Mong mọi người giúp đỡ nguyên nhân và cách xóa những workbook và worksheet lỗi này ạ.

View attachment 235926

Bạn đưa cái hình ai xoá được !

 

[Kiều Mạnh]

Úp cái hình thì Bôi đen đi là xong à

 

[VetMini]

For each wb in WorkBooks
If wb.Lỗi Then
wbName = wb.FullName
wb.Close
Kill wbName
End If
Next wb

For Each sh In WorkSheets
If sh.Lỗi Then
If WorkSheets.Count > 1 Then
sh.Delete
End If
End If
Next sh

 

[befaint]

Vụ này diễn đàn có một chủ đề nói rồi.
Hiện tại chưa tìm ra cách xử lý được.

 

[VetMini]

Vụ này diễn đàn có một chủ đề nói rồi.
Hiện tại chưa tìm ra cách xử lý được.

Bạn nói "vụ này" là vụ gì?
Vụ "tương cái hình" hay vụ "xuất lỗi"?

 

[befaint]

Bạn nói "vụ này" là vụ gì?
Vụ "tương cái hình" hay vụ "xuất lỗi"?

Vụ lỗi thêm đối tượng giống như "ThisWorkbook" đó anh.

 

[be_09]

Vụ này đã dính 1 lần. Thường thì file có code VBA mà làm linh tinh như Delete Module, hay vô tình làm gì đấy bị lỗi...
Lúc mình có 1 file làm coi như hoàn thiện: cả đống Sheet, và cả mớ Module, UserFrom... Và hết cách.... vì không xóa được mấy cái sheet vô hình đó....

Đành phải copy từng sheet vào Book mới (để lấy format của sheet đã thiết kế), Export từng Module, User Form ròi import vào book mới....
Thật là phê....

Vì chủ Topic không đính kèm File nên không thể xác định chính xác.
Theo suy nghĩ của anh thì để xóa những biểu tượng giống như ThisWorkbook ta thử thực hiện một số cách sau:

- Cách 1: Trong cửa sổ VBE click vào biểu tượng lạ rồi vào cuối cửa sổ Properties xem có thấy mục Visible không? Nếu thấy mục Visible thì click bên phải nó chọn -1 – xlSheetVisible xong trở ra Excel để xóa sheet đó.

- Cách 2: Mở File đó lên và lưu lại dạng .xlsx, sau đó Mở File dạng .xlsx lên xem lại thấy có trở lại bình thường không? Nếu thấy nó trở lại bình thường thì lưu lại dang .xlsm.

- Cách 3: Mở File đó lên, click phải vào từng Module và Export File thành File bas, tiếp theo Lưu File lỗi ở dạng .xlsx, lưu và mở ra xem nó có trở lại bình thường không? Nếu nó trở lại bình thường thì lưu File đó lại ở dạng .xlsm rồi Import File bas đó trở lại.

 

[Kiều Mạnh]

Thấy mọi người bàn tán sôi nổi quá ... nhớ trên máy còn file đó của thành Viên GPE .... Úp cho các Bạn có File thực tế mà quậy cho vui vẻ he

 

[be_09]

Thấy mọi người bàn tán sôi nổi quá ... nhớ trên máy còn file đó của thành Viên GPE .... Úp cho các Bạn có File thực tế mà quậy cho vui vẻ he.

Anh đã thực hiện Cách 3 bài 9 thì vào cửa sổ VBE đã trở lại bình thường (các ThisWorkbook lỗi đã biến mất), Cách anh thực hiện như sau:

Bước 1: Mở File ExcelMessanger_Loi lên, vào cửa sổ VBE click phải vào từng Module và Export File thành File bas.
Bước 2: Lưu File lỗi ExcelMessanger_Loi (Save As) ở dạng .xlsx, xong nhấn nút lưu.
Bước 3: Mở File ExcelMessanger_Loi.xlsx và vào cửa sổ VBE thì nó đã trở lại bình thường.
Bước 4: Mở File ExcelMessanger_Loi.xlsx, lưu lại ở dạng .xlsm rồi Import File bas đó trở lại (là xong).

Đây là cách anh thao tác để phát hiện nguyên nhân lỗi có nhiều ThisWorkbook.
1/ Vào cửa sổ VBE và nhấn Ctrl+G để mở cửa sổ Immediate Window.
2/ Gán code sau vào cửa sổ Immediate Window và nhấn Enter sẽ xuất hiện thông báo lỗi (xem hình 1).

For Each ws In Sheets:ws.Visible=True:Next

3/ Nhấn nút OK của thông báo lỗi thì nó chỉ rõ LỖI MISSING cửa sổ References - VBAProject (xem hình 2).

Hình 1.


Hình 2.


Hình 3. Đã xử lý.

 

[YêuCN]

Anh đã thực hiện Cách 3 bài 9 thì vào cửa sổ VBE đã trở lại bình thường (các ThisWorkbook lỗi đã biến mất), Cách anh thực hiện như sau:

Bước 1: Mở File ExcelMessanger_Loi lên, vào cửa sổ VBE click phải vào từng Module và Export File thành File bas.
Bước 2: Lưu File lỗi ExcelMessanger_Loi (Save As) ở dạng .xlsx, xong nhấn nút lưu.
Bước 3: Mở File ExcelMessanger_Loi.xlsx và vào cửa sổ VBE thì nó đã trở lại bình thường.
Bước 4: Mở File ExcelMessanger_Loi.xlsx, lưu lại ở dạng .xlsm rồi Import File bas đó trở lại (là xong).

Đây là cách anh thao tác để phát hiện nguyên nhân lỗi có nhiều ThisWorkbook.
1/ Vào cửa sổ VBE và nhấn Ctrl+G để mở cửa sổ Immediate Window.
2/ Gán code sau vào cửa sổ Immediate Window và nhấn Enter sẽ xuất hiện thông báo lỗi (xem hình 1).

For Each ws In Sheets:ws.Visible=True:Next

3/ Nhấn nút OK của thông báo lỗi thì nó chỉ rõ LỖI MISSING cửa sổ References - VBAProject (xem hình 2).

Hình 1.
View attachment 236145

Hình 2.
View attachment 236146

Hình 3. Đã xử lý.
View attachment 236147

Cách này có nhược điểm nếu có nhiều sheet chứa Code thì giải quyết thế nào ? Em cũng đang thắc mắc !

 

[VetMini]

Cách này có nhược điểm nếu có nhiều sheet chứa Code thì giải quyết thế nào ? Em cũng đang thắc mắc !

Thắc mắc chi cho mệt. Ba cái đồ lỗi này quý giá gì mà giữ.
Gặp lỗi là cứ cố vớt vát dữ liệu lại, lập project mới.

Project lớn, hàng chục modules, hàng ngàn dòng code thì thực ra người quản lý đã export hết code ra mấy cái file bas để giành rồi. Đợi đến lúc lỗi tùm lum mới save code thì là chưa làm hết trách nhiệm.

 

[be_09]

Cách này có nhược điểm nếu có nhiều sheet chứa Code thì giải quyết thế nào ? Em cũng đang thắc mắc !

Thông thường các Add - Ins của Microsoft khi sử dụng thì nó đã đồng bộ hóa rồi nên không bị các ThisWorkbook tào lao.
Vì vậy, muốn File không bị hiển thị các ThisWorkbook ngoại lai thì trước khi di chuyển File nên tắt những Add - Ins nào không phải của Microsoft.