- ·上一篇：EXCEL表格怎么把一行下拉到最后
- ·下一篇：怎么计算多个EXCEL表格表数相加
电脑怎么改EXCEL表格后缀
2026-01-22 12:29:56
1.Excel工作表转文件
只需将代码中SaveAs这句稍作修改，指定文件类型即可
Sub sheet转***文件（）
Dim sht As WorksheetApplication.ScreenUpdating = False
ipath = ThisWorkbook.Path &"\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name,-4143
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub