如何批量将文件夹下的EXCEL文件转存为二进制文件簿格式

孤独的打火机

liucf 发表于 2018-7-16 10:08
试试这个吧

有劳大哥了，我试过一下可以用，不过现在遇到了个新情况，就是之前删除公式的命令运行过后，概预算表格内出现了一点古怪的问题，就是删除公式后有部分值变成了其他内容：
未删除公式前：


删除公式后：


我想把原先的指令只保留转变成xlsb格式，但是对VBA还是不懂，所以一直没有搞定，买的《别怕，Excel VBA其实很简单》这本书还没有回到，你看方便帮忙弄一个只转xlsb的命令吗？

liucf

孤独的打火机 发表于 2018-7-18 16:30
有劳大哥了，我试过一下可以用，不过现在遇到了个新情况，就是之前删除公式的命令运行过后，概预算表格内 ...

意思就是又保留公式了?
如果是的华,去掉这3行就行
    For Each Sh In wb.Worksheets
      Sh.UsedRange.Value = Sh.UsedRange.Value
    Next Sh

liucf

孤独的打火机 发表于 2018-7-18 16:30
有劳大哥了，我试过一下可以用，不过现在遇到了个新情况，就是之前删除公式的命令运行过后，概预算表格内 ...

意思是不去掉公式,把For Each Sh   ..... Next 3行去掉即可

孤独的打火机

liucf 发表于 2018-7-18 17:05
意思是不去掉公式,把For Each Sh   ..... Next 3行去掉即可

先感谢
又有新问题，删掉您说的三行后运行一会（有1分钟左右），出现提示为400的错误，这个是啥情况啊？
电脑内存16G的，应该与内存无关吧？

liucf

孤独的打火机 发表于 2018-7-19 15:45
先感谢
又有新问题，删掉您说的三行后运行一会（有1分钟左右），出现提示为400的错误，这个是啥情况啊？ ...

那就不知道问题出在哪里了