Mở File Excel bị lâu
- Thread starter daivu1307
- Ngày gửi
vu_tuan_manh_linh
linhvtm84@gmail.com
- Tham gia
- 27/2/10
- Bài viết
- 2,637
- Được thích
- 1,903
- Giới tính
- Nam
- Nghề nghiệp
- Kỹ sư Kinh tế Xây dựng
File nặng như thế mở lâu là đúng rồi bạn! Lại còn định dạng .xls nữa chứ!
PhanHa123
Thành viên mới
- Tham gia
- 3/8/18
- Bài viết
- 10
- Được thích
- 10
mình cũng gặp trường hợp này vài lần. Mình nghĩ là bị virut nên làm lại file mới chứ mở lên lâu lắm. làm thì siêu lâu.
tuquyen1711
Thành viên chính thức
- Tham gia
- 27/6/18
- Bài viết
- 94
- Được thích
- 17
Bạn lưu file dưới dạng excel binary workbook thử xem.
thanks bạn để mình thử
Bài đã được tự động gộp:
Bạn có hướng giải quyết ko bạn
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Có 2 files, trong đó file Nhật ký VCBT T7-2018.xls đã bị hư (không mở được). Riêng file Bao cao kho T7-2018.xls đang chứa quá nhiều objects rác (là những hình vẽ bị thu nhỏ nên không nhìn thấy). Tổng cộng chắc cũng đến vài trăm ngàn objects
Đã xóa và lưu sang định dạng xlsx, dung lượng còn lại là 570 KB
Cảm ơn bạn nhiều nhé, bạn có thể hướng dẫn mình cách xóa objects rác đi không để mình có thể tự sửa file khác ạ.
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Tôi xóa bằng code bạn à. Code này đây:
Mã:
Sub DelObjects()
Dim i As Long, wks As Worksheet
On Error Resume Next
Set wks = ActiveSheet
For i = 1 To 10000
wks.Shapes(1).Delete
Next
MsgBox "Còn " & wks.Shapes.Count & " objects"
End SubCode này dùng thế nào hả bạn
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Cách dùng (chung cho tất cả)
Riêng với file của bạn, phần kiểm tra ở bước 6 có nghĩa là bạn xem khi nào code chạy xong sẽ xuất hiện 1 thông báo, nếu thấy ghi "còn xyz objects" gì đó thì bạn phải quay lại bước 5 run code tiếp. Đến khi nào nhận được thông báo "Còn 0 object" thì chuyển sang sheet khác và bắt đầu thao tác từ bước 5. Cứ thế tiếp tục cho tất cả các sheet
Thanks bạn để mình thử lại file lúc nãy có 2 file 1 file bạn làm giúp rùi, còn 1 file lỗi mình vừa recovery lại được để mình thử luôn
hoanglocphat
Thành viên thường trực
- Tham gia
- 27/1/13
- Bài viết
- 258
- Được thích
- 30
Cho tôi hỏi có code nào đếm số object trong một sheet không?
Vì trong 1 sheet tôi có vẽ khoảng 5-10 object, tôi muốn chạy code để kiểm tra xem ngoài những object của tôi thì có những object ẩn nào không?
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Trong code có ghi đó bạn: wks.Shapes.Count
mà wks đã được chỉ định trước đó bằng câu lệnh: Set wks = ActiveSheet
Vậy chung quy lại thì câu lệnh bạn cần là ActiveSheet.Shapes.Count
Mình làm theo hướng dẫn mà ko được bạn giúp mình tí nha, thanks bạn nhìu. Mình up lại file lúc trước lỗi !
PhanHa123
Thành viên mới
- Tham gia
- 3/8/18
- Bài viết
- 10
- Được thích
- 10
em thực hiện với file của em như A hướng dẫn nhưng hiện 0 object ạ. file vẫn nặng. hơn 40KB. mà dữ liệu k hề nhiều ạ.
Có cách nào nữa không ạ?
hoanglocphat
Thành viên thường trực
- Tham gia
- 27/1/13
- Bài viết
- 258
- Được thích
- 30
Bạn cho hỏi code này nó xóa luôn validation, có cách nào để khi chạy code nó không xóa validation không! cảm ơn bạn
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
File này thì lại không bị objects rác mà bị... thứ khác. Cụ thể là bạn đã format thừa quá nhiều
Cách khắc phục: Bắt đầu từ sheet NKVC 15.6 trở về sau, nếu để ý bạn sẽ thấy thanh trượt dọc bị thu nhỏ đi rất nhiều trong khi dữ liệu lại chẳng có bao nhiêu. Có thể suy ra rằng khoảng không bên dưới đang chứa "cái gì đó" bạn không nhìn thấy như nó là thứ khiến cho file nặng đồng thời làm thanh trượt dọc thu nhỏ. Vậy bạn chọn từ dòng dưới cùng có dữ liệu đến cuối bảng tính rồi clear toàn bộ sẽ giải quyết được vấn đề
Đã là cho bạn rồi đây
Bài đã được tự động gộp:
Bạn đóng file + save, sau đó mở lại thử xem. Tôi nghĩ là Validation sẽ tự phục hồi
Cảm ơn bạn nhiều nha
Bài viết mới nhất
- Question
- Question
- Đã giải quyết
- Question
