返回首页
当前位置: 首页 > VB.NET教程 >

vb.net操作excel文件

时间:2009-10-14 07:53来源:未知 作者:admin 点击:我要投稿  高质量的ASP.NET空间,完美支持1.0/2.0/3.5/4.0/MVC等

要求将数据显示在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

本站推荐文章:
本站热点文章:
顶一下
(5)
100%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色 情、暴力、反动的言论。
评价:
表情:
用户名:密码: 验证码:点击我更换图片