标签:
Sub xls批量转换成xlsx()
Application.ScreenUpdating = False
MsgBox "现在开始转换,请稍候!"
mypath = ThisWorkbook.Path & "\"
mybook = Dir(mypath & "*.xls")
Do While Len(mybook)
Set wb = Workbooks.Open(mypath & mybook)
wb.SaveAs mypath & mybook & "x", xlOpenXMLWorkbook
wb.Close
p = p + 1
Application.StatusBar = "已转换" & p & "个工作薄"
If p Mod 5 = 0 Then DoEvents
Loop
Application.StatusBar = ""
MsgBox "全部转换完成!共 " & p & " 个!"
End Sub
标签:
原文地址:http://www.cnblogs.com/mahocon/p/5724904.html