[转自]https://blog.csdn.net/xiaolinyouni/article/details/7085606

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　　 '定义工作区域

• 1
• 2
• 3
• 4

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()