excel拆分工作表,是一個(gè)很典型的應(yīng)用。比如一個(gè)excel工作簿中,有60張工作表,F(xiàn)在想利用excel拆分工作表來(lái)將這60個(gè)工作表分別下發(fā)給不同的人員。
下面這段excel拆分工作表的代碼可以實(shí)現(xiàn)將excel拆分為不同的excel文件。
使用方法如下:
1.打開(kāi)需要進(jìn)行拆分的excel文件。
2.按ALT+F11,打開(kāi)VBE編輯器。
3.單擊插入——模塊,復(fù)制下面的代碼,然后按F5鍵運(yùn)行。
通過(guò)三步就可以完成excel拆分工作表,拆分的工作表文件存放在和此文件同一路徑之下。
Sub 拆分工作表()
Dim sht As Worksheet
Application.DisplayAlerts = False
For Each sht In Worksheets
sht.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sht.Name & ".xls"
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
End Sub
下面是excel拆分工作表的一個(gè)演示截圖:
核心關(guān)注:拓步ERP系統(tǒng)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊(yùn)涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務(wù)管理理念,功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理,全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域,是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請(qǐng)注明出處:拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題:excel拆分工作表代碼
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139215057.html