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

wsjlucy

我不管是用上面的代码，还是用测试文件都转转很久，也不出结果。
然后拷贝到文件运行代码的还是跳出一个对话框，我就点了run,这么操作对不对呀？

小菜鸟哦哦

lsc900707 发表于 2016-12-3 21:15
Dim arrf(), mf&
Sub lsc()
    Dim Fso As Object, i&, sFileType$, na As Name

太厉害了，大师啊！找了好久了，正好需要，谢谢lsc900707

小菜鸟哦哦

lsc900707 发表于 2016-12-3 21:15
Dim arrf(), mf&
Sub lsc()
    Dim Fso As Object, i&, sFileType$, na As Name

大神您好，为什么我运行您这个代码，有时候会显示 “6”溢出
请您帮忙解答一下吧！感激不尽！

lsc900707

小菜鸟哦哦 发表于 2017-12-27 20:41
大神您好，为什么我运行您这个代码，有时候会显示 “6”溢出
请您帮忙解答一下吧！感激不尽！

你不上传附件，我无能为力呀。

小菜鸟哦哦

lsc900707 发表于 2017-12-27 20:49
你不上传附件，我无能为力呀。

终于等到你啊，大神，我马上上传

小菜鸟哦哦

lsc900707 发表于 2017-12-27 20:49
你不上传附件，我无能为力呀。

大神，今天显示“溢出”的文件在我另一个U盘里，U盘忘记在办公室了。明天我上传文件您帮我看一下可以吗

lsc900707

小菜鸟哦哦 发表于 2017-12-27 21:38
大神，今天显示“溢出”的文件在我另一个U盘里，U盘忘记在办公室了。明天我上传文件您帮我看一下可以吗

好的，我有时间一定帮你看看怎么回事。

小菜鸟哦哦

lsc900707 发表于 2017-12-27 21:40
好的，我有时间一定帮你看看怎么回事。

大神，附件我已经上传了。您的代码处理其他的文件都没有问题，但是一处理到我上传附件里的这个文件就显示“溢出”。麻烦您帮我看看是什么问题。非常感谢您！

lsc900707

小菜鸟哦哦 发表于 2017-12-28 10:16
大神，附件我已经上传了。您的代码处理其他的文件都没有问题，但是一处理到我上传附件里的这个文件就显示 ...

你后面几个表中的焊工证号要设置成文本格式，你设置成了自定义日期格式！

小菜鸟哦哦

lsc900707 发表于 2017-12-28 11:46
你后面几个表中的焊工证号要设置成文本格式，你设置成了自定义日期格式！

大神，有没有可以消除这个“溢出”的错误？还是要把这些格式设置成文本才可以？