① 請教下高手如何用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。