【求助】如何将excel的sheet表批量分离成一个个excel文件

估计得用VBA了 查到这个 例三、 有一份公司所有员工工资表(或各代理处的存货表)，你想把这个总表按个人(代理处)分离成单个的EXCEL表，然后分发给对应的人(代理处) 简答：需要应用到FSO对象，FSO控制文件的复制、命名等。首先利用Dim wkbook As Workbook和Set wkbook = Workbooks.Add新建一个工作簿，range("a:b").Copy 和Sheets("sheet1").Paste 可以把指定内容复制到新工作簿中，wkbook.SaveAs方法可以用变量给文件命名，变量可以是姓名或代理处名。然后调用JMAIL或其它控件把文件发到指定的邮箱。 具体实现我晚上回去研究下 恩恩 PS：某人别光改标题不说话呀 【 在 mike7019 (小小) 的大作中提到: 】 : 求助

我去google了。。。 5555 but，什么也没找到。。 【 在 xiongQQ (万能的黑手) 的大作中提到: 】 : 估计得用VBA了 : 查到这个 : 例三、 有一份公司所有员工工资表(或各代理处的存货表)，你想把这个总表按个人(代理处)分离成单个的EXCEL表，然后分发给对应的人(代理处) 简答：需要应用到FSO对象，FSO控制文件的复制、命名等。首先利用Dim wkbook As Workbook和Set wkbook = Workbooks.Add新建一个 : ...................

vba，靠你了。。。 不知道把这些东西怎么串起来。。 【 在 xiongQQ (万能的黑手) 的大作中提到: 】 : 估计得用VBA了 : 查到这个 : 例三、 有一份公司所有员工工资表(或各代理处的存货表)，你想把这个总表按个人(代理处)分离成单个的EXCEL表，然后分发给对应的人(代理处) 简答：需要应用到FSO对象，FSO控制文件的复制、命名等。首先利用Dim wkbook As Workbook和Set wkbook = Workbooks.Add新建一个 : ...................

我这也是google出来的 不过东西确实很少 【 在 police (我其实想换个名。。。。) 的大作中提到: 】 : 我去google了。。。 : 5555 : but，什么也没找到。。 : ...................

我也不会VBA呀 这几天才开始玩玩 【 在 police (我其实想换个名。。。。) 的大作中提到: 】 : vba，靠你了。。。 : 不知道把这些东西怎么串起来。。

我看好你 【 在 xiongQQ (万能的黑手) 的大作中提到: 】 : 我也不会VBA呀 : 这几天才开始玩玩

jxl，读出来，重新写入

搞定了 =。= VBA各种不智能 用得好不爽哇 Sub SplitSave() Dim no As Integer Dim na As String no = ThisWorkbook.Sheets.Count For i = 1 To no na = Sheets(i).Name Sheets(i).Select Sheets(i).Copy ChDir "C:\Documents and Settings\XiongQQ\桌面" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\XiongQQ\桌面\" + na, FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.Close Next i End Sub 【 在 police (我其实想换个名。。。。) 的大作中提到: 】 : 我看好你

大赞。。。 【 在 xiongQQ (万能的黑手) 的大作中提到: 】 : 搞定了 : =。= : VBA各种不智能 : ...................