盘一个Excel文件管理器!番外打补丁-文件大小
- 2026-11-13 13:39:11
盘一个Excel文件管理器!番外打补丁-文件大小有道友留言能否增加针对文件大小的信息，那必须是可以的，先看看图吧。 
主要还是fs文件流size属性的引用。 
对应文件属性中的字节大小（任意文件鼠标右键，属性） 
代码上下文就不贴了，只看数据处理部分，按不同大小范围输出合适的文件大小数据到单元格中。 更新后的xlsm文件已上传，有需要自取。 
Select Case True '文件大小Case Mfile.Size >= 1073741824.Cells(Spos, 5) = Round(Mfile.Size / 1024 ^ 3, 2) & " GB"Case Mfile.Size >= 1048576.Cells(Spos, 5) = Round(Mfile.Size / 1024 ^ 2, 2) & " MB"Case Mfile.Size >= 1024.Cells(Spos, 5) = Round(Mfile.Size / 1024, 2) & " KB"Case Else.Cells(Spos, 5) = Mfile.Size & " Byte"End Select
本文来自网友投稿或网络内容，如有侵犯您的权益请联系我们删除，联系邮箱：wyl860211@qq.com 。
