vb.net2005 读取 excel 表格数据填充 datagridview

来源：互联网发布：sql添加一个人信息语句编辑：程序博客网时间：2024/05/15 04:38

   '创建虚拟表
        Dim TelTable As DataTable = New DataTable("Tel")
        Dim tt As DataRow
        TelTable.Columns.Add("主叫号码", System.Type.GetType("System.String"))
        TelTable.Columns.Add("被叫号码", System.Type.GetType("System.String"))
        TelTable.Columns.Add("通话时间", System.Type.GetType("System.String"))

        TelTable.Columns.Add("通话时长", System.Type.GetType("System.String"))
        TelTable.Columns.Add("通信费用", System.Type.GetType("System.String"))
        TelTable.Columns.Add("业务类型", System.Type.GetType("System.String"))

Me.DataGridView1.AllowUserToAddRows = False

        Dim myapp As New Excel.Application()
        Dim xlsbook1 As Excel.Workbook
        xlsbook1 = myapp.Workbooks.Open("J:/2005VB.NET/test/WindowsApplication8/WindowsApplication8/bin/Debug/200702.xls")
        Dim xlssheet1 As Excel.Worksheet
        xlssheet1 = xlsbook1.Sheets("sheet1")

        Dim l As Integer = 1
        While (Convert.ToString(xlssheet1.Cells(l, 1).Value)) <> ""
            l += 1
        End While
        Dim i As Integer
        For i = 2 To l

            tt = TelTable.NewRow
            tt("主叫号码") = Convert.ToString(xlssheet1.Cells(i, 1).Value)
            tt("被叫号码") = Convert.ToString(xlssheet1.Cells(i, 2).Value)
            tt("通话时间") = Convert.ToString(xlssheet1.Cells(i, 3).Value)
            tt("通话时长") = Convert.ToString(xlssheet1.Cells(i, 4).Value)
            tt("通信费用") = Convert.ToString(xlssheet1.Cells(i, 5).Value)
            tt("业务类型") = Convert.ToString(xlssheet1.Cells(i, 6).Value)
            TelTable.Rows.Add(tt)

Next
Me.DataGridView1.DataSource = TelTable

vb.net2005 读取 excel 表格数据 填充 datagridview

vb.net2005 读取 excel 表格数据填充 datagridview