Sub去公式()
DimFilenameAsString,MyPathAsString
DimsAsWorksheet
DimwbAsWorkbook
MyPath=ThisWorkbook.Path&"\"
Filename=Dir(MyPath&".xls")
DoWhileFilename<>""
Setwb=Workbooks.Open(MyPath&Filename)
''ForEachsInThisWorkbook.Sheets
s.UsedRange.Formula=s.UsedRange.Value
''Next
wb.Save
wb.CloseFalse
Filename=Dir
Loop
EndSub |
|