| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]狐表如何把EXCEL中的工作表移动到另一工作簿 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65184) |
| -- 作者：moxuejiahui -- 发布时间：2015/3/10 22:08:00 -- [求助]狐表如何把EXCEL中的工作表移动到另一工作簿 如题，想把通过模板生成的EXCEL中的工作表复制到另一EXCEL文件中药怎么写代码啊，求助啊 |
| -- 作者：有点甜 -- 发布时间：2015/3/10 22:10:00 -- 参考 http://www.foxtable.com/help/topics/1465.htm
|
| -- 作者：moxuejiahui -- 发布时间：2015/3/10 22:35:00 -- 版主帮我看看我这代码哪里出错的啊，项目放在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.” |
| -- 作者：moxuejiahui -- 发布时间：2015/3/10 22:37:00 -- 如果只是下面代码的话能很好的引用数据并生成文件 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) 是不是我生成的文件是活动的啊
|
| -- 作者：有点甜 -- 发布时间：2015/3/10 23:15:00 -- 要先remove才能加入
Dim Book1 As New XLS.Book("E:\\图纸解析\\相关文件\\图纸.xls") |