你們好,最近小極發(fā)現(xiàn)有諸多的小伙伴們對(duì)于工作簿文件的擴(kuò)展名叫什么,工作簿這個(gè)問題都頗為感興趣的,今天小活為大家梳理了下,一起往下看看吧。
1、打開表格,如下一個(gè)工作簿中有多個(gè)工作表。
2、右擊工作表名稱,點(diǎn)擊查看代碼(V)。
3、顯示如下頁面。
4、空白處,復(fù)制黏貼如下信息:
5、 Private Sub 分拆工作表()
6、 Dim sht As Worksheet
7、 Dim MyBook As Workbook
8、 Set MyBook = ActiveWorkbook
9、 For Each sht In MyBook.Sheets
10、 sht.Copy
11、 ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '將工作簿另存為EXCEL默認(rèn)格式
12、 ActiveWorkbook.Close
13、 Next
14、 MsgBox "文件已經(jīng)被分拆完畢!"
15、 End Sub
16、點(diǎn)擊運(yùn)行-運(yùn)行子過程/用戶窗體。
17、完成后,保存,顯示如下。
以上就是工作簿這篇文章的一些介紹,希望對(duì)大家有所幫助。
免責(zé)聲明:本文為轉(zhuǎn)載,非本網(wǎng)原創(chuàng)內(nèi)容,不代表本網(wǎng)觀點(diǎn)。其原創(chuàng)性以及文中陳述文字和內(nèi)容未經(jīng)本站證實(shí),對(duì)本文以及其中全部或者部分內(nèi)容、文字的真實(shí)性、完整性、及時(shí)性本站不作任何保證或承諾,請(qǐng)讀者僅作參考,并請(qǐng)自行核實(shí)相關(guān)內(nèi)容。