求助一组代码，功能是检查工作簿里面每一张工作表的大小（占用容量），在一张空表输出

lxmspm

求助一组代码，功能是检查工作簿里面每一张工作表的大小（占用容量），在一张空表输出

ykcbf1100

能说具体一点吗？是占用多少行多少列吗？

饮冰e士

占用容量什么意思？使用了多少个单元格？还是在保存的文件中占了多少个字节？

lxmspm

ykcbf1100 发表于 2024-9-10 08:51
能说具体一点吗？是占用多少行多少列吗？

主要是看文件大小，就是我们可以看到整个工作簿的大小，但看不到每个工作表的大小，现在想做一个VBA检查下每个工作表的大小，然后在其中一个空表中按行输出,"工作表名“+多少KB或者多少MB。

lxmspm

饮冰e士 发表于 2024-9-10 08:52
占用容量什么意思？使用了多少个单元格？还是在保存的文件中占了多少个字节？

主要是看文件大小，就是我们可以看到整个工作簿的大小，但看不到每个工作表的大小，现在想做一个VBA检查下每个工作表的大小，然后在其中一个空表中按行输出,"工作表名“+多少KB或者多少MB。

ykcbf1100

lxmspm 发表于 2024-9-10 09:51
主要是看文件大小，就是我们可以看到整个工作簿的大小，但看不到每个工作表的大小，现在想做一个VBA检查 ...

没有附件，给你代码你自己能整吗？

lxmspm

ykcbf1100 发表于 2024-9-10 10:25
没有附件，给你代码你自己能整吗？

可以，我在模块里粘贴，再弄个控件

ykcbf1100

lxmspm 发表于 2024-9-10 10:31
可以，我在模块里粘贴，再弄个控件

不很精确，仅供参考。。。

1. Function GetUsedSheetSizeInKB(ws As Worksheet) As Double
   
2.     totalBytes = 0
   
3.     For Each cell In ws.UsedRange
   
4.         cellValue = cell.Value
   
5.         If VarType(cellValue) = vbString Then
   
6.             cellSize = Len(cellValue) * 2 ' 假设每个字符占2字节
   
7.         Else
   
8.             cellSize = 8 ' 假设非字符串类型的数据占用8字节
   
9.         End If
   
10.         totalBytes = totalBytes + cellSize
    
11.     Next cell
    
12.     GetUsedSheetSizeInKB = totalBytes / 1024
    
13. End Function
    
14. 
    
15. Sub 工作表大小()    '//不太精确,供供参考
    
16.     Dim ws As Worksheet
    
17.     Dim sizeInKB As Double
    
18.     Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你想要检查的工作表名
    
19.     sizeInKB = GetUsedSheetSizeInKB(ws)
    
20.     MsgBox "工作表已使用的字节数（近似）: " & sizeInKB & " KB"
    
21. End Sub
    

复制代码

lxmspm

ykcbf1100 发表于 2024-9-10 11:11
不很精确，仅供参考。。。

谢谢

lxmspm

ykcbf1100 发表于 2024-9-10 11:11
不很精确，仅供参考。。。

能不能历遍当前工作簿里的所有工作表，在其中一张空表（比如sheet1）里在每个单元格里输出，按行输出