一聚教程网:一个值得你收藏的教程网站

热门教程

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

时间:2022-07-02 11:15:01 编辑:袖梨 来源:一聚教程网

    
程序需要,我在网上找了很久才找到,刚刚把程序写好,并加写了注释,希望能帮助大家
再写程序前先引用
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 = "汇报人"

热门栏目