2014年3月24日
execl一个工作薄中有几个个工作表，将这几个个工作表分别保存到不同execl文件中
摘要： 用宏运行：Sub QEJebel() Dim sh As Worksheet Dim Pa As String Pa = ThisWorkbook.Path For Each sh In ThisWorkbook.Sheets sh.Copy ActiveWorkbook.SaveAs Pa & "\ " & sh.Name & ".xls" ActiveWorkbook.Close NextEnd Sub摘自：http://club.excelhome.net/thread-208892-1-1.html 阅读全文
posted @ 2014-03-24 17:43 白糖365 阅读(436) 评论(0) 推荐(0)