《Private Sub 分拆工.doc》由会员分享,可在线阅读,更多相关《Private Sub 分拆工.doc(1页珍藏版)》请在金锄头文库上搜索。
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