vb.net对excel的操作------感谢:就爱小毛虫
2008-11-19 13:15
405 查看
vb.net对excel的操作
要求将数据显示在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
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
要求将数据显示在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
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
1、定义excel操作变量 |
dim objexcelfile as excel.application dim objworkbook as excel.workbook dim objimportsheet as excel.worksheet |
2、打开excel进程,并打开目标excel文件 |
set objexcelfile = new excel.application objexcelfile.displayalerts = false set objworkbook = objexcelfile.workbooks.open(strfilename) set objimportsheet = objworkbook.sheets(1) |
3、获取excel有效区域的行和列数 |
intlastcolnum = objimportsheet.usedrange.columns.count intlastrownum = objimportsheet.usedrange.rows.count |
4、逐行读取excel中数据 |
由于前两行为header部分,所以需要从第三行读取 如果第1到第10个单元格的值均为空或空格,则视为空行 for intcounti = 3 to intlastrownum check if empty data row blnnullrow = true for inti = 1 to 10 if trim$(objimportsheet.cells(intcounti, inti).value) <> "" then blnnullrow = false end if next inti 若不是空行,则进行读取动作,否则继续向后遍历excel中的行 if blnnullrow = false then 获取单元格中的数据,做有效性check,并将合法数据创建为实体存入对象数组中 objimportsheet.cells(intcounti, 1).value …… end if next intcounti |
5、退出excel进程,并关闭excel相关操作对象 |
objexcelfile.quit set objworkbook = nothing set objimportsheet = nothing set objexcelfile = nothing |
相关文章推荐
- vb.net excel 操作两个SHEET
- vb.net 操作excel
- 通过vb.net 和NPOI实现对excel的读操作
- VB.NET使用EXCEL常见操作
- vb.net操作excel时,如何判断单元格内容为空
- vb.net office excel 和wps共存,创建正确的excel对象以便操作excel表格
- (vb.net)操作Excel文件1
- vb.net操作Excel常用命令
- vb.net 开发 excel Addin学习(3)---- 菜单 的 操作
- VB.Net操作Excel
- [VB.NET]关于vb.net操作Excel发生
- VB.NET使用EXCEL常见操作
- [VB.NET源码]读写Excel的操作应用
- vb.net操作EXCEL
- ASP.NET环境下,VB.NET语言,数据保存EXCEL模板操作
- VB.NET使用EXCEL常见操作
- ASP.NET环境下,VB.NET语言,数据保存EXCEL模板操作
- VB.NET使用EXCEL常见操作
- 【转】asp.net 在IIS下操作Excel文件权限不足的解决方法
- VB.NET导出Excel报表时格式化单元格