新用户扫码下载
扫码下载APP
及时接收最新考试资讯及
备考信息
工作簿中表格处理问题
【问题】
一个工作簿中有几十个表，怎么能把每个表都弄成一个单独的工作簿。有没有快速解决的方法？
【解答】
Sub 另存所有工作表为工作簿（）
Dim sht As Worksheet Application.ScreenUpdating = False '禁用屏幕刷新
ipath = ThisWorkbook.Path & "\" For Each sht In Sheets sht.Copy ActiveWorkbook.SaveAs ipath & sht.Name & ".xls" '（工作表名称为文件名）
'ActiveWorkbook.SaveAs ipath & sht.Name & Trim（sht.[d15]）& ".xls" '（工作表名称 & D15单元内容）
'ActiveWorkbook.SaveAs ipath & Trim（sht.[d15]） & ".xls" '（文件名称为D15单元内容）
ActiveWorkbook.Close Next Application.ScreenUpdating = True '恢复屏幕刷新
End Sub
责任编辑：zoe
实务学习指南
距6月报税结束还有天
新用户扫码下载
京公网安备 11010802023314号