批量清除文件夹下excel文件的公式，但保留数值的VBN宏代码

lsc900707

踏歌123 发表于 2016-12-2 19:05
我建了一个压缩包，文件夹里的形式就是这种差不多的
但是能不能把那个文件夹名改成可以选择某个文件夹形 ...

新建一个操作文件，把它放在要修改的文件夹的外面（同目录下）

lsc900707

踏歌123 发表于 2016-12-2 19:14
清楚公式，但要保留数值，你这个代码是把内容全部都删除了

sh.UsedRange = sh.UsedRange.Value
这是你自己原来的代码耶，你不是说修改成功了吗？

踏歌123

lsc900707 发表于 2016-12-2 19:21
sh.UsedRange = sh.UsedRange.Value
这是你自己原来的代码耶，你不是说修改成功了吗？

原来那个代码，是我每个表都导入进去运行，但是只是删掉的公式，没有把文本和公式所得的值删掉，而且那个代码可以删掉工作薄内全部工作表的公式，你刚才发的代码，我试了一下，只能把此文件第一个工作表的内容全部删掉，此文件内其他工作表公式和其他excel文件都还在

lsc900707

踏歌123 发表于 2016-12-2 19:29
原来那个代码，是我每个表都导入进去运行，但是只是删掉的公式，没有把文本和公式所得的值删掉，而且那个 ...

Sheet1.UsedRange.Offset(1, 0).ClearContents
抱歉。要把这句删掉>>>>>>>>>

踏歌123

lsc900707 发表于 2016-12-2 19:42
Sheet1.UsedRange.Offset(1, 0).ClearContents
抱歉。要把这句删掉>>>>>>>>>

还是不行，引用还在，公式也还在

lsc900707

踏歌123 发表于 2016-12-2 19:49
还是不行，引用还在，公式也还在

那是没有附件写的，先不要用了，我根据你的附件再写吧

lsc900707

踏歌123 发表于 2016-12-2 19:49
还是不行，引用还在，公式也还在

还是算了，不光有父文件夹，还有子文件夹，孙文件夹、曾孙文件夹，我晕！

踏歌123

lsc900707 发表于 2016-12-2 20:01
还是算了，不光有父文件夹，还有子文件夹，孙文件夹、曾孙文件夹，我晕！

哈哈哈，那你帮我写个删除当前文件夹内的excel文件公式的吧，大不了我以后删公式的时候，自己一个文件夹一个文件夹的删吧
关键是批量删除哦，就是说在这个文件夹里的excel文件，不管它里面有多少个工作表，全部都要把公式和引用那些删掉，但要保留数值或者文本，还有不用手动打开每个文件，代码要能够自动打开文件，清除公式和引用（保留数值），保存关闭。

lsc900707

踏歌123 发表于 2016-12-2 20:18
哈哈哈，那你帮我写个删除当前文件夹内的excel文件公式的吧，大不了我以后删公式的时候，自己一个文件夹 ...

晚一点给吧>>>>>>>>>>>>>

踏歌123

lsc900707 发表于 2016-12-2 20:25
晚一点给吧>>>>>>>>>>>>>

可以，先谢谢大神了啊