① 请教下高手如何用EXCEL获取文件属性的大小
Dim TStr, Fstr As String
TStr = InputBox("请输入文来件自或文件夹的路径:", "提示", "C:\") '
ChDrive Left(TStr, 1)
ChDir Left(TStr, InStrRev(TStr, "\") - 1)
Fstr = Dir(TStr)
If Len(Fstr) Then
Range("B1").Select
ActiveCell.FormulaR1C1 = "找到该文件" & FileLen(Fstr) '加多如果找到改文件就在,Range("D1").Select输出文件的大小
Else
Range("C1").Select
ActiveCell.FormulaR1C1 = "文件不存在"
End If
返回的是多少字节
② 怎么用Excel的VBA获取本文件的属性,查看本文件有多大
你好,代码如下:
第一句获取文件大小
第二句填充“A1”单元格
Submain()
iSize=Format(FileLen(ActiveWorkbook.FullName)/1048576,"0.00")
Range("A1").Value=iSize&"MB"
EndSub
③ excel中如何减小文件大小
1、找到容量比较大的excel文件,右击文件,点击列表中的属性。
④ excel表格文件属性太大了,怎样能变小
可用清除在Excel表中是否有无用的对象的方法是文件属性变小。这样会使文件的读专、写等编辑保存时速度加快属,具体如下
1)如下图所示,一张普通用户表显示大笑为2.8M。