求教：怎么才能删除文件夹中Excel表格中的公式，只保留数值

小菜鸟哦哦 · 发表于 2017-12-18 14:39

求教：怎么才能删除文件夹中Excel表格中的公式，只保留数值，也包括文件夹里面的子文件夹中的Excel文件～谢谢各位大神们了

迪尼索斯 · 发表于 2017-12-19 12:38

你这个要用VBA做了

迪尼索斯 · 发表于 2017-12-19 12:40

先获取所有地址，然后循环打开，遍历表格，复制粘贴数值。

小菜鸟哦哦 · 发表于 2017-12-21 10:06

迪尼索斯发表于 2017-12-19 12:40
先获取所有地址，然后循环打开，遍历表格，复制粘贴数值。

文件夹中的文件可以弄了，但是子文件夹下的文件实现不了啊。求大神帮帮忙写个代码吧

小菜鸟哦哦 · 发表于 2017-12-21 10:10

就像这样的，文件夹中还有子文件夹，需要吧文件夹和子文件夹中的excel文件中的所有公式都删除，只保留数值

迪尼索斯 · 发表于 2017-12-21 12:53

小菜鸟哦哦发表于 2017-12-21 10:10
就像这样的，文件夹中还有子文件夹，需要吧文件夹和子文件夹中的excel文件中的所有公式都删除，只保留数值

本文件夹的文件你可以通过VBA解决，子文件你就解决不了，因为获取不到地址，是这个意思吗

lss001 · 发表于 2017-12-21 22:34

本帖最后由 lss001 于 2017-12-24 16:35 编辑

Sub LFso()
Call LFs("F:\文件夹") '只需要指定文件夹路径，其它不作改动
End Sub
Function LFs(myPath$)
Set Fso = CreateObject("Scripting.FileSystemObject").getfolder(myPath)
For Each F In Fso.Files
      If F.Name <> ThisWorkbook.FullName Then
         Workbooks.Open (F)
         For Each sh In ActiveWorkbook.Sheets
            sh.Activate
            If Cells.HasFormula = False Then GoTo x
         Selection.SpecialCells(xlCellTypeFormulas, 23).ClearContents
x:       Next
      ActiveWorkbook.Close Savechanges:=True
      End If
Next
For Each Fs In Fso.subfolders
      Call LFs(Fs.Path)
Next
End Function

		自动登录	找回密码
密码			免费注册