我的思路是这样:找出合计为0的列,把它的宽度设为0
示例
Dim Book As New XLS.Book("c:\reports\test.xls") '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Style.ForeColor = Color.Red '设置样式的字体颜色
Sheet.Cols(0).Width = 0 '设置第1列的宽度
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File =
"c:\reports\test.xls"
Proc.Start()
[此贴子已经被作者于2014-4-9 22:17:32编辑过]