从VB中的Datagride中向excel导入数据-.NET教程,VB.Net语言

  

程序需要，我在网上找了很久才找到，刚刚把程序写好，并加写了注释，希望能帮助大家

再写程序前先引用

microsoft excel 11.0 object library

我看到的文章是10.0的，我这是office2003是11.0，只要安了excel就有这个引用~

private sub cmdsave_click()

msgbox "文件保存为: d:\电网配电线路管理信息系统\信息查询结果\事故信息查询结果.xls"

    dim i as integer

    dim j as integer

    dim ex as object

    dim exwbook as object

    dim exsheet as object

    

    set ex = createobject("excel.application")

    set exwbook = nothing

    set exsheet = nothing

    set exwbook = ex.workbooks().add

    set exsheet = exwbook.worksheets("sheet1")

    

    ’在excel里表格的表头，这是根据我的需要添加的标头

    ex.range("c3").value = "日期"

    ex.range("d3").value = "时间"

    ex.range("e3").value = "站点"

    ex.range("f3").value = "汇报人"

    ex.range("g3").value = "线路双编号"

    ex.range("h3").value = "保护动作类型"

    ex.range("i3").value = "事故原因"

    ex.range("j3").value = "处理负责人"

    ex.range("k3").value = "处理方法"

    ex.range("l3").value = "处理结果"

    ex.range("m3").value = "结束时间"

    ex.range("n3").value = "备注"

    ’i为记录个数使用循环将数据全部添加

    for i = 1 to adodc1.recordset.recordcount

    j = 3 + i

    ’k为数据列数

    for k = 0 to 11

    ’通过使用变量k和j变换单元格位置

    q = chr(99 + k) & j

    ’将datagrid1的数据放到单元格内

    ex.range(q).value = datagrid1.columns(k)

    next k

    ’指针下移

    if adodc1.recordset.eof = false then

    adodc1.recordset.movenext

    end if

    next i

    

    ’保存输入到事故信息查询结果.xls

    exwbook.saveas "d:\电网配电线路管理信息系统\信息查询结果\事故信息查询结果.xls"

    ’退出excel

    ex.quit

end sub

我觉得这段程序很简单而且很使用，使用时不要打开 事故信息查询结果.xls否则会报错

存储时系统会自动提示是否更换文件，根据自己用发来用