遍历文件夹修改数据

乐乐2006201506 · 发表于 2016-5-9 16:14

本帖最后由乐乐2006201506 于 2016-5-9 16:20 编辑

希望各位老师能够不吝赐教。
      遍历电脑中某一个盘或所有盘（或某一个文件夹也可以），找到所有xlsx或xls格式的文件（工作簿），并清除所有文件（工作簿）中所有工作表中的公式（相当于做一次只复制值的选择性粘贴）和宏（这个我不知道怎么删除，如果是低版本的其实修改后缀，比如将xlsm保存为xlsx格式后，自动消除宏，但是我的部分文件是2016版本的，所以这个办法不起作用）
可以通过分步操作的方式来实现。
      消除不了宏就不用管了，实现清除公式的目的也可以。
      不胜感激！

乐乐2006201506 · 发表于 2016-5-9 16:17

消除不了宏就不用管了，实现清除公式的目的也可以。

爱疯 · 发表于 2016-5-9 17:28

遍历文件夹修改数据.rar (13.68 KB, 下载次数: 17)

乐乐2006201506 · 发表于 2016-5-9 19:29

请修改。出现以下错误，我估计是因为打开的工作簿中没有宏代码所导致。谢谢！
运行错误图.png

爱疯 · 发表于 2016-5-9 20:18

上传出错的附件看一下，才好找原因。

可先将附件中不方面公开的数据清除或替换。

乐乐2006201506 · 发表于 2016-5-9 20:54

你看看，当我把这句If fso.GetExtensionName(myPath & "\" & myFile) = "xls" Or _ fso.GetExtensionName(myPath & "\" & myFile) = "xlsx" Then

改为If fso.GetExtensionName(myPath & "\" & myFile) = "xls?" Or Then后，好像可以运行，但好像没有起到效果。

爱疯 · 发表于 2016-5-9 21:19

乐乐2006201506 发表于 2016-5-9 20:54
你看看，当我把这句If fso.GetExtensionName(myPath & "\" & myFile) = "xls" Or _ fso.GetExten ...

'遍历文件
For Each myFile In myFolder.Files
      If fso.GetExtensionName(myPath & "\" & myFile) = "xls" Or _
         fso.GetExtensionName(myPath & "\" & myFile) = "xlsm" Then
         Call demo(myPath, myFile.Name)
         Call delCode(myPath & "\" & myFile.Name)
      End If
Next

xlsx里根本无法保存代码，应该是xlsm。
是我忘修改了，不好意思。

乐乐2006201506 · 发表于 2016-5-9 21:28

老师，我要遍历电脑中某一个盘或所有盘（或某一个文件夹也可以），找到所有xlsx或xls格式的文件（工作簿），并清除所有文件（工作簿）中所有工作表中的公式和宏。
可以通过分步操作的方式来实现。

乐乐2006201506 · 发表于 2016-5-9 21:29

老师，按照您的代码修改后，又出现这种情况了。

爱疯 · 发表于 2016-5-9 21:40

乐乐2006201506 发表于 2016-5-9 21:29
老师，按照您的代码修改后，又出现这种情况了。

从这图，看不出是什么问题，是啥情况

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