2016年8月1日
用VB把xls转换为xlsx
摘要： Sub xls批量转换成xlsx()Application.ScreenUpdating = FalseMsgBox "现在开始转换，请稍候！"mypath = ThisWorkbook.Path & "\"mybook = Dir(mypath & "*.xls")Do While Len(myb 阅读全文
posted @ 2016-08-01 10:41 mahocon 阅读(858) 评论(0) 推荐(0)
用VB把xlsx转换为xls
摘要： Sub Test()Dim wb As Workbook, mPath As String, f As StringApplication.DisplayAlerts = FalseApplication.ScreenUpdating = FalseApplication.Calculation = 阅读全文
posted @ 2016-08-01 10:40 mahocon 阅读(1022) 评论(0) 推荐(0)