<em>vb</em>6.0，如何把数据导入excel

介绍
下面通过一步一步的介绍，如何通过VB.NET来读取数据，并且将数据导入到Excel中。

第一步：
打开VS开发工具，并且添加引用。
然后选择。

Microsoft Excel 12.0 object library and。

Microsoft Excel 14.0 object library。

第二步：
创建一个Excle在你的电脑中。
 

第三步：
在VS中写入如下代码：

Imports System.Data

Imports System.Data.SqlClient

Imports Excel = Microsoft.Office.Interop.Excel。

Public Class excel

‘添加按钮

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

        Handles Button1.Click

        Try

            '创建连接

            Dim cnn As DataAccess = New DataAccess(CONNECTION_STRING)

            

            Dim i, j As Integer

            '创建Excel对象

            Dim xlApp As Microsoft.Office.Interop.Excel.Application

            Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook

            Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet

            Dim misValue As Object = System.Reflection.Missing.Value

            xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass

            xlWorkBook = xlApp.Workbooks.Add(misValue)

            ' 打开某一个表单

            xlWorkSheet = xlWorkBook.Sheets("sheet1")

            ' sql查询

            '  xlWorkBook.Sheets.Select("A1:A2")

            Dim sql As String = "SELECT * FROM EMP"

            ' SqlAdapter

            Dim dscmd As New SqlDataAdapter(sql, cnn.ConnectionString)

            ' 定义数据集

            Dim ds As New DataSet

            dscmd.Fill(ds)

           ‘添加字段e79fa5e98193e78988e69d83338信息到Excel表的第一行

            xlWorkSheet.Cells(1, 1).Value = "First Name"

            xlWorkSheet.Cells(1, 2).Value = "Last Name"

            xlWorkSheet.Cells(1, 3).Value = "Full Name"

            xlWorkSheet.Cells(1, 4).Value = "Salary"

            ' 将数据导入到excel

              For i = 0 To ds.Tables(0).Rows.Count - 1

                'Column

                For j = 0 To ds.Tables(0).Columns.Count - 1

                    ' this i change to header line cells >>>

                    xlWorkSheet.Cells(i + 3, j + 1) = _

                    ds.Tables(0).Rows(i).Item(j)

                Next

            Next

            'HardCode in Excel sheet

            ' this i change to footer line cells  >>>

           xlWorkSheet.Cells(i + 3, 7) = "Total"

            xlWorkSheet.Cells.Item(i + 3, 8) = "=SUM(H2:H18)"

            ' 保存到Excel

            xlWorkSheet.SaveAs("D:\vbexcel.xlsx")

            xlWorkBook.Close()

            xlApp.Quit()

            releaseObject(xlApp)

            releaseObject(xlWorkBook)

            releaseObject(xlWorkSheet)

            '弹出对话框显示保存后的路径

            MsgBox("You can find the file D:\vbexcel.xlsx")

        Catch ex As Exception

        End Try

    End Sub

    ' Function of Realease Object in Excel Sheet

    Private Sub releaseObject(ByVal obj As Object)

        Try

            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)

            obj = Nothing

        Catch ex As Exception

            obj = Nothing

        Finally

            GC.Collect()

        End Try

    End Sub

End Class

复制代码。

第四步：
看到如下导出结果。

     

假设你的两个数据为m,n
Dim D_Ex As Object
Dim D_ExBook As Object
Dim D_ExSheet As Object
Set D_Ex = CreateObject("Excel.Application")
Set D_ExBook = D_Ex.Workbooks.Open(FullName) 'FullName 是你excel的地址及文件名，如"C：\1.xls"。
Set D_ExSheet = D_ExBook.Worksheets(1)
D_Ex.Visible = False true也行，false看不见excel
D_Ex.Cells(i , 1).Value=m
D_Ex.Cells(i , 2).Value=n i是你循环的次数，循环一次i加1
D_ExBook.Save 保存e799bee5baa6e58685e5aeb9365
D_ExBook.Close 关闭
D_Ex .Quit 退出
就是这些，个人建议不要每次都打开和关闭excel，你可以在程序开始的时候打开excel，在不需要存数据的时候关闭，节省内存。也可以把数据存入一个TXT内，统一转换。
首先要引用Microsoft.Excel 11.0 Object Library 然后在程序知里写 继承 Imports Microsoft.Office.Interop 过程中 Dim Exl As New Excel.Application Dim ExlBook As Excel.Workbook = Exl.Workbooks.Add Dim ExlSheet As Excel.Worksheet = ExlBook.Worksheets(1) 此时你已经新建了一个EXCEL对象道,如果添加语句 exl.visible=true 将可以显示你回新建的EXCEL 其余操作语句如在EXCEL VBA里操作一样答,详细参考EXCEL VBA操作.

大量数据指的是什么呢？没理解