Giúp code lấy dung lượng File Excel (1 người xem)

[congnguyen88]

Các bạn giúp mình làm sao lấy giá trị dung lượng File Excel Đang hoạt động. giá trị này phải là number tính toán + - * / được nhé. Thank

 

[Quang_Hải]

Các bạn giúp mình làm sao lấy giá trị dung lượng File Excel Đang hoạt động. giá trị này phải là number tính toán + - * / được nhé. Thank

Sub kich_co_mot_file()
With CreateObject("Scripting.FileSystemObject")
   MsgBox .GetFile(ThisWorkbook.FullName).Size
End With
End Sub

 

[sealand]

Bạn thử thế này xem sao

Sub ThisFileSize()
            
 MsgBox FileLen(ThisWorkbook.FullName)

End Sub

 

[Quang_Hải]

Bạn thử thế này xem sao

Sub ThisFileSize()
            
 MsgBox FileLen(ThisWorkbook.FullName)

End Sub

Cách này hơi rắc rối nếu file được đặt tên tiếng Việt có dấu.

 

[congnguyen88]

Sub kich_co_mot_file()
With CreateObject("Scripting.FileSystemObject")
   MsgBox .GetFile(ThisWorkbook.FullName).Size
End With
End Sub

Code của bạn thì ok quá tuyệt vời rồi, nhưng mình muốn lấy giá trị đó hiện ra 1 ô luôn để mình tính toán + - * / ví dụ lấy giá trị ra ô range("A1") chẳng hạn

 

[ndu96081631]

Code của bạn thì ok quá tuyệt vời rồi, nhưng mình muốn lấy giá trị đó hiện ra 1 ô luôn để mình tính toán + - * / ví dụ lấy giá trị ra ô range("A1") chẳng hạn

Vụ gì vậy? Bỏ chữ MsgBox, thế bằng Range("A1").Value = là xong
Đáng lẽ câu mà bạn cần hỏi là: "Kết quả trên được tính bằng đơn vị gì?" nhưng bạn lại không hỏi
???

 

[congnguyen88]

Vụ gì vậy? Bỏ chữ MsgBox, thế bằng Range("A1").Value = là xong
Đáng lẽ câu mà bạn cần hỏi là: "Kết quả trên được tính bằng đơn vị gì?" nhưng bạn lại không hỏi
???

Cảm ơn anh. Uh em cũng quên hỏi nửa hình như Unit là byte phải không anh

 

[be_09]

Cảm ơn anh. Uh em cũng quên hỏi nửa hình như Unit là byte phải không anh

Vấn đề này tôi đã có File gứi lên diễn đàn rồi (hình như là trong Topic theo dõi công văn đến và đi) lâu rồi tôi không nhớ chính xác, trong đó có tự động tạo Link đến bất kỳ thư mục và lấy dung lượng của tất cả File chứa trong thư mục đó, đơn vị tính là kb.

Hiện nay tôi đã bổ sung thêm chức năng phân loại hồ sơ theo tên File.