- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：多个工作表合成一个工作簿，怎么取消第一个sheet1？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92337)
-- 发布时间：2016/11/1 9:49:00
-- 求助：多个工作表合成一个工作簿，怎么取消第一个sheet1？
Dim Book As New XLS.Book() \'定义一个Excel工作簿
For Each fl As String In filesys.getfiles("C:\\reports")
Dim Book1 As New XLS.Book(fl) \'
Dim Sheet As XLS.Sheet = Book1.Sheets(0)\'引用工作簿的第一个工作表
book1.Sheets.Removeat(0)
sheet.name = filesys.getname(fl)
book.Sheets.Add(sheet)
Next
book.save("c:\\reports\\工作簿.xls")
此主题相关图片如下：222.png
怎么去掉红色框中的工作表呢？
-- 发布时间：2016/11/1 10:18:00
--
Dim Sheet As XLS.Sheet = Book1.Sheets(0)\'引用工作簿的第一个工作表
book.Sheets.Add(sheet)
-- 发布时间：2016/11/1 10:47:00
-- 回复：（blackzhu） Dim Sheet As XLS.Sheet = B...
Dim Book As New XLS.Book() \'定义一个Excel工作簿
For Each fl As String In filesys.getfiles("C:\\reports")
Dim Book1 As New XLS.Book(fl) \'
Dim Sheet As XLS.Sheet = Book1.Sheets(0)\'引用工作簿的第一个工作表
book1.Sheets.Removeat(0)
sheet.name = filesys.getname(fl)
book.Sheets.Add(sheet)
Next
book.save("c:\\reports\\工作簿.xls")
代码中已有了！ 你的意思是让我删除还是？
-- 发布时间：2016/11/1 10:52:00
--
你 add了呀
-- 发布时间：2016/11/1 11:14:00
--
最后删掉不就好了？
book1.Sheets.Removeat(0)
-- 发布时间：2016/11/1 11:34:00
-- 回复：（blackzhu） 你 add了呀
怎么破解 敬请朱老师多多指导 谢谢！
-- 发布时间：2016/11/1 12:03:00
--
Dim Book As New XLS.Book() \'定义一个Excel工作簿
For Each fl As String In filesys.getfiles("C:\\reports")
Dim Book1 As New XLS.Book(fl) \'
Dim Sheet As XLS.Sheet = Book1.Sheets(0)\'引用工作簿的第一个工作表
book1.Sheets.Removeat(0)
sheet.name = filesys.getname(fl)
book.Sheets.Add(sheet)
Next
book.Sheets.Removeat(0)
book.save("c:\\reports\\工作簿.xls")
-- 发布时间：2016/11/1 12:09:00
-- 回复：（有点蓝）Dim Book As New XLS.Book() '定义一...
谢谢 难怪我一直提示超出范围 原来必须在NEXT后！