以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何将Excel工作簿内和每一张表另存为一个新的工作簿?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6007)

--  作者:migold
--  发布时间:2010/2/25 16:52:00
--  如何将Excel工作簿内和每一张表另存为一个新的工作簿?

求助代码


--  作者:czy
--  发布时间:2010/2/25 17:29:00
--  

假设D盘有一A文件夹,保存有"test.xls”文件。

Dim Book As New XLS.Book("D:\\A\\test.xls")
Dim name as String
For i as Integer = 0 to Book.Sheets.Count - 1
    Book.Save("D:\\A\\" & Book.Sheets(i).Name & ".xls")
Next

如需判断文件是否已经存在请用FileSys.FileExists。


--  作者:migold
--  发布时间:2010/2/27 9:55:00
--  
问题已解决,谢谢!