掃碼下載APP
及時(shí)接收最新考試資訊及
備考信息
安卓版本:8.7.50 蘋果版本:8.7.50
開發(fā)者:北京正保會(huì)計(jì)科技有限公司
應(yīng)用涉及權(quán)限:查看權(quán)限>
APP隱私政策:查看政策>
HD版本上線:點(diǎn)擊下載>
【問(wèn)題】
一個(gè)工作簿中有幾十個(gè)表,怎么能把每個(gè)表都弄成一個(gè)單獨(dú)的工作簿。有沒(méi)有快速解決的方法?
【解答】
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
安卓版本:8.7.50 蘋果版本:8.7.50
開發(fā)者:北京正保會(huì)計(jì)科技有限公司
應(yīng)用涉及權(quán)限:查看權(quán)限>
APP隱私政策:查看政策>
HD版本上線:點(diǎn)擊下載>
官方公眾號(hào)
微信掃一掃
官方視頻號(hào)
微信掃一掃
官方抖音號(hào)
抖音掃一掃
Copyright © 2000 - galtzs.cn All Rights Reserved. 北京正保會(huì)計(jì)科技有限公司 版權(quán)所有
京B2-20200959 京ICP備20012371號(hào)-7 出版物經(jīng)營(yíng)許可證 京公網(wǎng)安備 11010802044457號(hào)