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

孤独的打火机

看了坛子里将将Excel文件批量删除公式的办法，现在想在这个基础上再将文件夹下面的Excel文件转存为二进制工作簿格式，之前那的帖子：http://club.excelhome.net/forum. ... ead&tid=1305117
之前的VBA指令：

Sub 批量转换() Application.ScreenUpdating = False Dim wb As Excel.Workbook Dim sh As Excel.Worksheet f = Dir(ThisWorkbook.Path & "\*.xls*") '生成查找EXCEL的目录,可以适应不同版本 Do While f <> "" '在目录中循环 If f <> ThisWorkbook.Name Then  '如果不是打开的工作簿 Set wb = Workbooks.Open(ThisWorkbook.Path & "" & f) '依次打开目录工作薄 For Each sh In wb.Worksheets '在打开的工作薄的工作表中循环 sh.UsedRange.Value = sh.UsedRange.Value '假定你需要转换的是第一张工作表       Next sh     wb.Close True '关闭并保存打开的工作薄     End If     f = Dir     Loop '结束循环     Application.ScreenUpdating = True End Sub 复制代码

麻烦各位大神了~

孤独的打火机

没有办法，顶一个~

liucf

稍微改改就行
Sub 批量转换()
  Application.EnableEvents = False
  Dim wb As Excel.Workbook
  P = ThisWorkbook.Path & "\"
  F = Dir(P & "*.xls*") '生成查找EXCEL的目录,可以适应不同版本
  Do While F <> "" '在目录中循环
    If F <> ThisWorkbook.Name Then '如果不是打开的工作簿
    X = Split(F, ".")(0)
      Set wb = Workbooks.Open(P & F) '依次打开目录工作薄
      wb.SaveAs P & X & ".XLSB", 50
      wb.Close False '关闭并保存打开的工作薄
    End If
    F = Dir
  Loop '结束循环
  Application.EnableEvents = True
End Sub

孤独的打火机

liucf 发表于 2018-7-13 17:29
稍微改改就行
Sub 批量转换()
  Application.EnableEvents = False

亲测可用，非常感谢

如果要转换的文件在一个文件夹下面的子文件夹（可能有几级）下，可以实现转换吗？转换后可以删掉源文件吗？

liucf

孤独的打火机 发表于 2018-7-13 17:46
亲测可用，非常感谢

如果要转换的文件在一个文件夹下面的子文件夹（可能有几级）下，可以实现转换吗？ ...

删除源文件:在CKOSE语句后加一句Kill P & F 即可

至于子文件夹,论坛中有的是,找找自己改一下就行

孤独的打火机

liucf 发表于 2018-7-13 17:55
删除源文件:在CKOSE语句后加一句Kill P & F 即可

至于子文件夹,论坛中有的是,找找自己改一下就行

好的，非常感谢了~

孤独的打火机

liucf 发表于 2018-7-13 17:55
删除源文件:在CKOSE语句后加一句Kill P & F 即可

至于子文件夹,论坛中有的是,找找自己改一下就行

大哥，我是个菜鸟入门级别的，方便帮忙改一下吗？因为急着今晚要搞好上传系统

liucf

孤独的打火机 发表于 2018-7-13 18:03
大哥，我是个菜鸟入门级别的，方便帮忙改一下吗？因为急着今晚要搞好上传系统

改了一下,参考

孤独的打火机

liucf 发表于 2018-7-14 08:02
改了一下,参考

谢谢，试工发现有点问题，不知道原因在哪里。
1、将文件放置在文件夹内无法处理子文件夹下面的文件；
2、如果放在与文件一起的话，可以将文件转存为二进制文件簿格式，但是转存出来的文件还保留着公式

liucf

孤独的打火机 发表于 2018-7-15 18:59
谢谢，试工发现有点问题，不知道原因在哪里。
1、将文件放置在文件夹内无法处理子文件夹下面的文件；
2 ...

试试这个吧