主题：如何将Excel工作簿内和每一张表另存为一个新的工作簿？

求助代码

假设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。