16,554
社区成员
发帖
与我相关
我的任务
分享
'1、添加引用--com---microsoft excel 11.0 object library
'2、定义 Excel 函数
Dim xlApp As Excel.Application '定义 Excel 程序
Dim xlBook As Excel.Workbook '定义 Excel 工作簿
Dim xlSheet As Excel.Worksheet '定义 Excel 工作表
'3、进行Excel操作
xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlBook = xlApp.Workbooks.Add() '新增新表,如有表使用下方
xlBook = xlApp.Workbooks.Open("S:\Visual Basic.Net\my.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True 'Excel的可见性
xlSheet = xlBook.Worksheets(1) '设置活动工作表 表名可用 1\2\3\4代替
xlSheet.Cells(1, 4) = 100 '给单元格(row行,col列)赋值
XX = xlSheet.Cells(1, 4).Value '获取单元格(row行,col列) 必须添加 .value 不然会报Range 转 String出错
xlBook.Save() '保存Excel
xlBook.SaveAs("d:\Test.xls") '另存为
xlBook.Close(True) '关闭Excel
xlBook = Nothing '释放 xlBook
xlApp.Quit() '结束EXCEL对象
xlApp = Nothing '释放xlApp对象
'4、由于 .net 的特殊性,上方的关闭无法将Excel进程结束,需要调用以下函数进行关闭.
GC.Collect() '调用回收程序内存垃圾,结束EXCEL进程.