新用戶掃碼下載
掃碼下載APP
及時(shí)接收最新考試資訊及
備考信息
工作簿中表格處理問題
【問題】
一個(gè)工作簿中有幾十個(gè)表，怎么能把每個(gè)表都弄成一個(gè)單獨(dú)的工作簿。有沒有快速解決的方法？
【解答】
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單元內(nèi)容）
'ActiveWorkbook.SaveAs ipath & Trim（sht.[d15]） & ".xls" '（文件名稱為D15單元內(nèi)容）
ActiveWorkbook.Close Next Application.ScreenUpdating = True '恢復(fù)屏幕刷新
End Sub
責(zé)任編輯：zoe
學(xué)員討論（0）
實(shí)務(wù)學(xué)習(xí)指南
距6月報(bào)稅結(jié)束還有天
新用戶掃碼下載
京公網(wǎng)安備 11010802044457號