抹灰厚度计算OptionExplicitDimxlExcelAsNewExcel.ApplicationDimxlBookAsNewExcel.WorkbookDimxlSheetAsNewExcel.WorksheetDimiRowAsLong,jColAsLong,maxfAsLongDima()AsDoubleDimmaxfeAsIntegerDimmaxfgAsInteger'DimAppExcelAsObjectPrivateSubisButton1_Click()CommonDialog1.ShowOpenIfRight(Common