曰韩无码一区二区三区,sese精品在线,国产午夜成人无码免费看,一级a爱做片观看免费国产

<p id="d4i8l"><label id="d4i8l"><noframes id="d4i8l"></noframes></label></p>
<b id="d4i8l"><legend id="d4i8l"></legend></b>

極客汽車網(wǎng)

工作簿文件的擴(kuò)展名叫什么(工作簿)

導(dǎo)讀 你們好,最近小極發(fā)現(xiàn)有諸多的小伙伴們對(duì)于工作簿文件的擴(kuò)展名叫什么,工作簿這個(gè)問題都頗為感興趣的,今天小活為大家梳理了下,一起往下看

你們好,最近小極發(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ì)大家有所幫助。