- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：如何通过代码控制并修改或者删除excel表中对应的列，并形成新的EXCEL文件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131014)
-- 发布时间：2019/2/14 13:08:00
-- 求助：如何通过代码控制并修改或者删除excel表中对应的列，并形成新的EXCEL文件
求助：如何通过代码控制并修改或者删除excel表中对应的列，并形成新的EXCEL文件
此主题相关图片如下：11.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:公诉信息表.xls |
我要删除表格中的承办单位 是否关联
将承办部门 改成承办组
然后保存形成新的EXCEL表格文件 请问怎么操作呢？
[此贴子已经被作者于2019/2/14 13:09:24编辑过]
-- 发布时间：2019/2/14 15:09:00
--
Dim Book As New XLS.Book("d:\\公诉信息表.xls") \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
sheet(0,4).value = "承办组"
sheet.Cols.RemoveAt(1)
Book.Save("d:\\test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "d:\\test.xls"
Proc.Start()
-- 发布时间：2019/2/14 15:24:00
-- 回复：（有点甜）Dim Book As New XLS.Book("d:\公诉信...
如果是要删除承办单位这个列呢
[此贴子已经被作者于2019/2/14 15:24:28编辑过]
-- 发布时间：2019/2/14 15:38:00
--
Dim Book As New XLS.Book("d:\\公诉信息表.xls") \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
sheet(0,4).value = "承办组"
sheet.Cols.RemoveAt(1)
sheet.Cols.RemoveAt(3)
Book.Save("d:\\test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "d:\\test.xls"
Proc.Start()