å·¥å ·ï¼microsoft office excel 2007
æ¥éª¤ï¼
1ãæå¼microsoft office excel 2007ï¼å³é®ä»»æä¸ä¸ªå·¥ä½è¡¨æ ç¾ï¼å¨å¼¹åºçä¸æå表ä¸éæ©æ¥ç代ç ãå³å¼¹åºä»£ç çªå£ã
2ãç¹å»èåæå ¥-模åï¼å¨å¼¹åºç模å对è¯æ¡ä¸ï¼è¾å ¥ä»¥ä¸ä»£ç ï¼
Private Sub åæå·¥ä½è¡¨()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal 'å°å·¥ä½ç°¿å¦å为EXCELé»è®¤æ ¼å¼
ActiveWorkbook.Close
Next
MsgBox "æ件已ç»è¢«åæå®æ¯!"
End Sub
3ãåå»è¿è¡-è¿è¡åè¿ç¨|çªä½ï¼å¼¹åºæ示çªå£âæ件已被æåå®æ¯âãå®æã
右键 工作表 的标签,移动或复制 工作表 --到 新工作薄,重命名,保存,这个适合工作表少的。
工作表多的话,可以用Excel自带的VBA来完成,打开一个启用宏的工作薄,按alt + f11,进入VBE界面,菜单栏那---插入-模块 ,然后复制下面的代码进去,按F5运行,再按提示操作,新工作薄的名字是原来工作表的名字。
Sub 拆分()