从VB中的Datagride中向excel导入数据

datagrid|excel|导入数据

  
程序需要我在网上找了很久才找到刚刚把程序写好并加写了注释希望能帮助大家
再写程序前先引用
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否则会报错
存储时系统会自动提示是否更换文件根据自己用发来用