VB.NET 导出数据到EXCEL中

原创 2005年01月01日 01:10:00

----------VB.NET 导出数据到EXCEL中-------------

  在引用当中引入Microsoft Excel 11.0 Object Library

        Dim oExcel As New Excel.Application
        Dim obook As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Dim DataArray(2000, 2000) As Integer
        obook = oExcel.Workbooks.Open("c:/1.xls")
        oSheet = obook.Worksheets(1)
        oSheet.Name = "ok"
        Dim myAdapter As New OleDb.OleDbDataAdapter("select * from list", Module1.dbConn)
        Dim mydataset As New DataSet
        myAdapter.Fill(mydataset, "list")
        DataGrid1.DataSource = mydataset.Tables("list")
        Dim i As Integer
        Dim iCount As Integer
        iCount = mydataset.Tables("list").Rows.Count
        For i = 0 To iCount - 1
            DataArray(i, 0) = DataGrid1.Item(i, 0)
        Next
        oSheet.Range("b1").Resize(100, 1).Value = DataArray
        obook.Save()
        oExcel.Quit()

添加数据到EXCEL的行(列),源数据的数组要与EXCEL的行(列)对应。

上面代码使用的是DataGrid的控件,如果使用Table也是一样一样的哦

数组大小可以自己来定义,如果数据的数量大于数组的范围,那么以数组为准(谁叫要用数组输出呢 :-)

BTW:机器要安装了office才能够引用Microsoft Excel 11.0 Object Library
路径是*/Microsoft office/office11/execl.exe

第一次写blog,有什么写得不对的,高手请指点了

--------------完-------------------------------

【VB】MSHFlexGrid表格数据导出到Excel

【文章背景】 在VB系统中,通过添加“导出为Excel”按钮来实现将MSHFflexGrid表格中的数据导出到Excel表中,并由用户决定是否保存。 【如何实现】 在定义Excel对象之前...
  • u013201439
  • u013201439
  • 2015年08月16日 10:10
  • 1733

vb如何将查询到的记录导出为Excel

首先你需要点工程菜单,然后选用引用,找到MicrosoftExcel 12.0 Object Library,然后选中引用即可。中间的12.0是版本号,可能由于你的电脑装的Excel版本不一样而不一样...
  • u010168160
  • u010168160
  • 2013年11月30日 13:34
  • 2902

在VB.NET中,将数据库里的数据导出到Excel中

介绍 下面通过一步一步的介绍,如何通过VB.NET来读取数据,并且将数据导入到Excel中 第一步: 打开VS开发工具,并且添加引用 然后选择 Microsoft Excel 1...
  • rensd1978
  • rensd1978
  • 2015年06月09日 14:25
  • 496

VB.net导出花式Excel

第一接触导出Excel表格是在第一次做机房收费系统的时候,能够顺利导出以满足:         现在已经很简单了这个逻辑,其实就是通过代码将Excel表格画出来: '导出整段代码唯一不好...
  • Ljm15832631631
  • Ljm15832631631
  • 2016年05月15日 21:04
  • 1745

vb.net datagridview实现数据导出Excel

datagridview这一块的操作,对于我来说有些困难,先是从SQL server查询数据,在datagridview显示,再到从datagridview删除字段,最后是现在的将datagridvi...
  • u013044029
  • u013044029
  • 2015年03月20日 19:25
  • 3162

VB.Net导出Excel原理

在VB版的机房中我们就已经接触到了导出Excel的功能,再次接触这个功能有了不一样的认识 一、原理 要实现导出Excel的功能,首先要引用命名空间,目的是可以使用该命名空间下的方法和类 ...
  • u012704843
  • u012704843
  • 2015年03月15日 10:05
  • 2504

vb.net页面内容导出Excel,.net改改就可以用,2003 2007都能开

  • 2012年03月05日 09:45
  • 2KB
  • 下载

Vb.net dataGridView导出EXCEL

Public Function daochu(ByVal x As DataGridView) As Boolean '导出到Excel函数 Try If x....
  • u011788252
  • u011788252
  • 2016年12月16日 15:06
  • 457

vb读取写入导出excel

Sub test() '从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000) Dim xlApp As Excel.App...
  • weinianjie1
  • weinianjie1
  • 2010年10月31日 20:51
  • 5407

特别推荐:纯VB.NET代码直接生成Excel文件(不需要Excel)

几年前看见一VB6代码,直接生成Excel文件(不需要Excel),最近把它改写成VB.NET,支持简体中文。 原理:根据以公开的BIFF2.1文件格式,直接Binary写Excel文件。 ...
  • binyao02123202
  • binyao02123202
  • 2011年10月12日 09:23
  • 2225
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB.NET 导出数据到EXCEL中
举报原因:
原因补充:

(最多只允许输入30个字)