在一个文件夹下，如何批量转换xls到xlsx的格式

cqcbc

8楼的代码很好，批量转换工作簿，收藏了。

ltaandljb

jiminyanyan 发表于 2016-7-31 22:35

收藏学习！谢谢大侠

km122712

jiminyanyan 发表于 2016-7-31 22:35

收藏了，谢谢分享！

d346836673

jiminyanyan 发表于 2016-7-31 22:35

Application.AutomationSecurity = msoAutomationSecurityForceDisable

Application.AutomationSecurity = msoAutomationSecurityByUI

刚好用上 这2句   谢谢了

永在战场

使用应用转换，批量将非.xlsx格式（.xls，.xlsm等）的excel转换成.xlsx，需要安装.netfremwork3.5及以上并安装office2007及以上。视电脑配置，配置高转化速度快。下载地址https://pan.baidu.com/s/1A8N1a-tHuHcz1I0VoAk4Pw

eat2you

mark一下，正在找这类代码

qinhuan66

好好学习天天向上

gdqb521

Sub 批量转换工作簿()
    '变量声明
    Dim oPath        As String   '原始文件路径
    Dim oFName      As String   '原始文件名
    Dim dPath        As String   '目标文件路径
    Dim dFName      As String   '目标文件名
    '获取路径
    oPath = ThisWorkbook.Path & "\原工作簿"
    dPath = ThisWorkbook.Path & "\转换结果"
    '打开工作簿时强制禁止宏
    Application.AutomationSecurity = msoAutomationSecurityForceDisable
    '禁用警告
    Application.DisplayAlerts = False
    '查找xls文件
    oFName = Dir(oPath & "*.xls")
    '当文件被找到则不断循环
    Do While oFName <> ""
        '打开工作簿
        With Workbooks.Open(oPath & oFName)
            '判断工作簿是否含有VB工程
            If .HasVBProject Then
                '若含有VB工程，则另存为启用宏的工作簿
                dFName = oFName & "m"
                .SaveAs dPath & dFName, xlOpenXMLWorkbookMacroEnabled
            Else
                '若不含有VB工程，则另存为一般工作簿
                dFName = oFName & "x"
                .SaveAs dPath & dFName, xlOpenXMLWorkbook
            End If
            '关闭工作簿
            .Close False
        End With
        '查找下一个文件
        oFName = Dir
    Loop
    '恢复打开文件的宏安全性设置
    Application.AutomationSecurity = msoAutomationSecurityByUI
    '启用警告
    Application.DisplayAlerts = True
End Sub

我把上述代码在Excel2016 x64位中在模块1中插入后，运行无反应怎么回事？
在文档目录下也建立了两个子文件夹，也没反应
    oPath = ThisWorkbook.Path & "\原工作簿\"
    dPath = ThisWorkbook.Path & "\转换结果\"
增加了两个反斜杠后，在我电脑上测试正常了。这两个子文件夹可以根据自己情况改变。

gdqb521

不知道是共性问题，还是我的电脑的问题，这个宏不运行居然是路径的问题，少了一个反斜杠。

wjxxxing

jiminyanyan 发表于 2016-7-31 22:35

大佬，如果我想让xlsx转化成xlsm有办法吗