版主帮我看看我这代码哪里出错的啊，项目放在E盘，名称为图纸分解，模板放在“E\图纸分解\相关文件”中Dim Book As New XLS.Book(ProjectPath & "相关文件\基本参数设置.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\基本参数设置.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0) '基本参数
Dim Sheet1 As XLS.Sheet = Book.Sheets(1) '特殊型号
Book.Build()
Book.Save(fl)
Dim Book1 As New XLS.Book("E:\图纸解析\相关文件\图纸.xls")
Dim Book2 As New XLS.Book("E:\图纸解析\Reports\基本参数设置.xls")
Dim Sheet3 = Book2.Sheets("基本参数设置")
Dim Sheet4 = Book2.Sheets("特殊型号")
Dim Sheet5 = Book1.Sheets("基本参数设置")
Dim Sheet6 = Book1.Sheets("特殊型号")
Book1.Sheets.Remove(Sheet5)
Book1.Sheets.Remove(Sheet6)
Book1.Sheets.Add(Sheet3)
Book1.Sheets.Add(Sheet4)
Book1.Save("E:\图纸解析\相关文件\图纸.xls")
提示“Sheet belongs to another book.”
加好友 
发短信
Post By：2015/3/10 22:08:00 [显示全部帖子]
