你好，代码如下：
第一句获取文件大小
第二句填充“A1”单元格
Sub main() iSize = Format(FileLen(ActiveWorkbook.FullName) / 1048576, "0.00") Range("A1").Value = iSize & "MB"End Sub
