vb.net操作excel文件

前端之家收集整理的这篇文章主要介绍了vb.net操作excel文件前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

[转自]http://news.dayoo.com/tech/201005/21/10000617_102079598.htm

要求将数据显示在Excel表中,并且要设好数据格式。虽说如此,真正实现了自己的功能,还是费了不少时间。相信还是有很多与我相似的人需要实现这种功能。那就做个小结吧。不妥之处,请指正哦。

  1.添加引用--com---microsoft excel 11.0 object library

  2在需要访问excel的过程中定义

dim exapp as excel.application  '定义excel应用程序
dim exbook as excel.workbook ‘定义工作簿
dim exsheet as excel.worksheet ‘定义工作表
dim exrange as excel.range   '定义工作区域

  3.有了上面的定义,基本上excel的操作就手到擒来了

  exapp.visible=true  '显示excel 程序
  exbook=exapp.workbooks.add  '添加新工作簿  或exbook=exapp.workbooks.open("薄名")  / 打开已在工作薄
  exsheet=exbook.sheets(n)   '获得第n个工作表的控制句柄,后面就由它处理了
  exsheet.cells(row,col)=值    '对指定单元格赋值,这个操作大量出现哦
  exsheet.range(cells,cells).font       '这个属性也常用到,设置格式就是它了:
  exsheet.range(cells,cells).font.colorindex=3  '设置颜色
exsheet.range(cells,cells).Borders.LineStyle=1'设边框线
exsheet.range(cells,cells).EntireColumn.AutoFit  '自动列宽  /可以改为自动行高哦
exsheet.range(cells,cells).merge         '合并单元格,复杂的表格这个也用的多哦
exsheet.range(cells,cells).HorizontalAlignment=3  '水平居中 ,当然也可以改为垂直的
exSheet.PageSetup.Orientation = 2   '页面横向

  熟练以上这些,基本上就可以实现一些要求了。

  4。最后是保存文件

  exsheet.saveas("文件名")

  或

  exbook.save

  5.清理变量

exsheet=nothing
exbook.close
exbook=nothing
exapp.quit
exapp=nothing

gc.collect()

原文链接:https://www.f2er.com/vb/260550.html

猜你在找的VB相关文章