Nhờ các bạn giúp khắc phục file có dung lượng lớn.

[mualaphongdo]

Mình có file copy dữ liệu trên mạng xuống, dung lượng lớn, nhờ các bạn giúp mình cách xử lý trên file với (không dùng Clear all vì sẽ mất hết dữ liệu và không sử dụng copy dữ liệu dán sang file khác vì định dạng file tại ô, dòng, cột mất thời gian lắm) cảm ơn các bạn

 

[befaint]

Xóa hết dữ liệu rồi còn làm ăn gì.

Cách: 7z + Python.

 

[mualaphongdo]

Cách này hay hơn:

View attachment 261088

Mình xóa dữ liệu nhưng file vẫn đang còn trên 4Mb

Bài đã được tự động gộp: 22/6/21

Ý của mình là File copy dữ liệu trên mạng về dán thì dung lượng rất lớn có dữ liệu 4MB, mình xóa dữ liệu đi vẫn còn 4Mb; vậy cái gì đang còn trên file trắng đó, khi biết được sẽ xử lý được gốc của các trường hợp khác. Cảm ơn các bạn

 

[HUONGHCKT]

Mình có file copy dữ liệu trên mạng xuống, dung lượng lớn, nhờ các bạn giúp mình cách xử lý trên file với (không dùng Clear all vì sẽ mất hết dữ liệu và không sử dụng copy dữ liệu dán sang file khác vì định dạng file tại ô, dòng, cột mất thời gian lắm) cảm ơn các bạn

Bạn dán đoạn code này vào môt modul và chạy thử, sau đó lưu lại với đuôi.xlsm xem sao.
Đoạn code này của anh nào trên diễn đàn mình không nhớ nữa.
Sub StyleKill()
Dim StyT As Style
Dim t As Long
On Error Resume Next
For Each StyT In ActiveWorkbook.Styles
If Not StyTButton Then
t = t + 1
If StyT.Name <> "1" Then StyT.Delete
End If
Next StyT
MsgBox t
MsgBox "XONG"
End Sub

file của bạn mình thử thì nó xóa được 172 styles không cần thiết, sau khi ghi lại với đuôi là. xlsm thì nó giảm xuống còn 570Kb.
Chúc thành công.

 

[ptm0412]

vậy cái gì đang còn trên file trắng đó

26363 objects (shapes)

 

[batman1]

Ý của mình là File copy dữ liệu trên mạng về dán thì dung lượng rất lớn có dữ liệu 4MB, mình xóa dữ liệu đi vẫn còn 4Mb; vậy cái gì đang còn trên file trắng đó, khi biết được sẽ xử lý được gốc của các trường hợp khác. Cảm ơn các bạn

Tập tin của bạn cân nặng 4,73 MB. Mở tập tin và lưu lại ở dạng XLSX chỉ còn hơn 400 KB.

Đóng tập tin -> phải chuột trên tập tin -> chọn Open with ... -> chọn WinRAR hoặc 7-Zip -> tôi dùng WinRAR -> đúp chuột vào xl để mở thư mục xl -> click vào thư mục drawings -> nhấn Delete trên thanh công cụ -> đóng cửa sổ WinRAR



Tập tin bây giờ chỉ cân nặng 19 KB.

-> mở tập tin XLSX -> nếu được hỏi thì chọn Yes.

Chưa xóa các Styles đã chỉ còn 19 KB.

Nếu làm chỉ còn 570 KB thì chỉ cần mở ra lưu lại thành XLSX là đã có, chả phải nhọc công code làm gì. Cái nặng ký là OBJECTS kìa.

 

[mualaphongdo]

Tập tin của bạn cân nặng 4,73 MB. Mở tập tin và lưu lại ở dạng XLSX chỉ còn hơn 400 KB.

Đóng tập tin -> phải chuột trên tập tin -> chọn Open with ... -> chọn WinRAR hoặc 7-Zip -> tôi dùng WinRAR -> đúp chuột vào xl để mở thư mục xl -> click vào thư mục drawings -> nhấn Delete trên thanh công cụ -> đóng cửa sổ WinRAR

View attachment 261122

Tập tin bây giờ chỉ cân nặng 19 KB.

-> mở tập tin XLSX -> nếu được hỏi thì chọn Yes.

Chưa xóa các Styles đã chỉ còn 19 KB.

Nếu làm chỉ còn 570 KB thì chỉ cần mở ra lưu lại thành XLSX là đã có, chả phải nhọc công code làm gì. Cái nặng ký là OBJECTS kìa.

Mình đã làm theo hướng dẫn của bạn và đã thành công. Cảm ơn bạn rất nhiều, Bạn siêu siêu siêu giỏi

Bài đã được tự động gộp: 30/6/21

Bạn dán đoạn code này vào môt modul và chạy thử, sau đó lưu lại với đuôi.xlsm xem sao.
Đoạn code này của anh nào trên diễn đàn mình không nhớ nữa.
Sub StyleKill()
Dim StyT As Style
Dim t As Long
On Error Resume Next
For Each StyT In ActiveWorkbook.Styles
If Not StyTButton Then
t = t + 1
If StyT.Name <> "1" Then StyT.Delete
End If
Next StyT
MsgBox t
MsgBox "XONG"
End Sub

file của bạn mình thử thì nó xóa được 172 styles không cần thiết, sau khi ghi lại với đuôi là. xlsm thì nó giảm xuống còn 570Kb.
Chúc thành công.

Cảm ơn bạn hướng dẫn, nhưng trình cao quá, mình chưa biết cách "dán đoạn code này vào môt modul"

 

[HUONGHCKT]

Bạn làm theo như cách của anh Batman chưa.
Nếu muốn " Cảm ơn bạn hướng dẫn, nhưng trình cao quá, mình chưa biết cách "dán đoạn code này vào môt modul" thì làm theo hướng đãn dưới đây:

Bạn mở file Excel, vào Workbook cần giảm dung lượng bấm nhấn phím ALt và phím F11 để mở của sổ VBE ra, sau đó kích chuột vào tab Insert chọn Modul (trên danh sách sổ xuống) một của sổ sẽ hiện ra ở bên cạnh rồi copy đoạn code trên và dán vào đó, để chuột nhấp nháy trong doạn code trên và kích chuột và Tab Run và OK là được. Sau đó lưu lại Workbook với SaveAs : ở mục Filename tên cũ hay tên mới tùy ý, ở mục Save at type bạn lưu với 1 trong 2 lựa chọn: Excel macro Enabled Workboook (đuôi .xlsm) hoặc Excel Binary Workbook ( đuôi. xlsb) và Ok là xong. Nếu woorbook đã lưu có đuôi là 2 đuôi nói trên thì chỉ cần Ok là được mà không phải Save As . Kiểm tra lại dung lương của Workbook( hay của file). Có thể cho chạy code trên nhiều lần.
Chúc thành công.