zoukankan      html  css  js  c++  java
  • 如何编程实现VB.NET数据集中的数据导出到EXCEL

    1、首先在“解决方案”中的“项目”中的“引用”上点右键,引入COM组件中的EXEL组件,如下图所示:(版本可能不一样,这不影响,我安装的是OFFICE 2003)

    2、在程序的开始,添加如下语句:
    Imports Microsoft.Office.Interop
    3、建立一个新的过程函数输出到EXCEL中:
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim myexcel As New Excel.Application
            myexcel.Visible = True
            myexcel.Workbooks.Add()
            Dim col As Integer
            Dim row As Integer
            Dim col1 As Integer
              myexcel.Worksheets("sheet1").activate()
    '以下是修改输出到EXCEL表中的每一列的列名
            myexcel.Cells(1, 1).value = "单位名称"
            myexcel.Cells(1, 2).value = "单位性质"
            myexcel.Cells(1, 3).value = "办公地址"
            myexcel.Cells(1, 4).value = "通讯地址"
            myexcel.Cells(1, 5).value = "办公电话"
            myexcel.Cells(1, 6).value = "缴纳会费情况"
            myexcel.Cells(1, 7).value = "缴纳金额"
     '以下将数据集中的数据分别输出到EXCEL中的每一列中去,我的数据集是“dsresults”,根据每人的情况适当修改
          For row = 0 To dsresults.Tables("results").Rows.Count - 1
                For col = 1 To dsresults.Tables("results").Columns.Count - 1
                    myexcel.Cells(row + 2, col).value = dsresults.Tables("results").Rows(row)(col)
                Next
    'EXCEL中的每一列自动根据填充的数据自动调整
                myexcel.ActiveSheet.columns.autofit()
            Next
        End Sub
     4、最终输出效果为:

  • 相关阅读:
    js 控制页面跳转的5种方法
    弹性盒
    js中变量声明有var和没有var的区别
    解决Cannot read property 'style' of null中样式问题
    JS中用for循环解决重复定义的问题
    博客第一天
    jQuery 无缝轮播
    随鼠标移动
    倒计时
    轮播图
  • 原文地址:https://www.cnblogs.com/yunbo/p/234880.html
Copyright © 2011-2022 走看看