vb.net导出到excel

网了查了一堆资料,自己也写出了到出到excel的方法.记下来.

Try

            Dim errMsg As String = ""
            Dim CheckedCount As Integer = Me.GpDetailListView.CheckedItems.Count
            If CheckedCount < 1 Then
                MsgBox("请选择要导出的项!", MsgBoxStyle.Information, "提示")
                Return
            End If
            Console.WriteLine("选择数量:" & CheckedCount.ToString)

            Me.ExportButton.Text = "正在导出..."
            Me.ExportButton.Enabled = False
            Me.PictureBox1.Visible = True

            If Not My.Computer.FileSystem.DirectoryExists("ExportedExcel") Then
                My.Computer.FileSystem.CreateDirectory("ExportedExcel")
            End If

            Dim strNow As String = Format(Now(), "yyyy_MM_dd_HHmmss").ToString
            Dim strFileName As String = My.Computer.FileSystem.CurrentDirectory & "\ExportedExcel\ExportedGP" & strNow & ".xlsx"
            'System.IO.File.Create(strFileName)

            Dim excelApp = New Excel.Application ' CreateObject("Excel.Application")
            excelApp.Visible = False
            excelApp.DisplayAlerts = False
            Dim excelWorkbook As Excel.Workbook
            Dim misValue As Object = System.Reflection.Missing.Value
            excelWorkbook = excelApp.Workbooks.Add(misValue)
            Dim excelSheet As Excel.Worksheet = excelWorkbook.Worksheets(1)
            excelSheet.Name = "工票信息"
            Dim excelRange As Excel.Range
            excelSheet.Cells(1, 1) = "员工"
            excelSheet.Cells(1, 2) = "产品类别"
            excelSheet.Cells(1, 3) = "工位"
            excelSheet.Cells(1, 4) = "数量"
            excelRange = excelSheet.Cells(1, 1)
            excelRange.Font.FontStyle = FontStyle.Bold
            excelRange.Font.Size = 12
            excelRange = excelSheet.Cells(1, 2)
            excelRange.Font.FontStyle = FontStyle.Bold
            excelRange.Font.Size = 12
            excelRange = excelSheet.Cells(1, 3)
            excelRange.Font.FontStyle = FontStyle.Bold
            excelRange.Font.Size = 12
            excelRange = excelSheet.Cells(1, 4)
            excelRange.Font.FontStyle = FontStyle.Bold
            excelRange.Font.Size = 12
            excelSheet.

            For i As Integer = 0 To CheckedCount - 1
                Dim CheckItemId As String = Me.GpDetailListView.CheckedItems(i).SubItems.Item(4).Text
                For j As Integer = 0 To Me.dtGpInfo.Rows.Count - 1
                    Dim dtRowId As String = Me.dtGpInfo.Rows(j).Item("id").ToString
                    If CheckItemId = dtRowId Then
                        Dim cnName As String = Me.dtGpInfo.Rows(j).Item("cnName").ToString
                        Dim prdType As String = Me.dtGpInfo.Rows(j).Item("prdType").ToString
                        Dim posName As String = Me.dtGpInfo.Rows(j).Item("posName").ToString
                        Dim count As String = Me.dtGpInfo.Rows(j).Item("count").ToString

                        excelSheet.Cells(j + 2, 1) = cnName
                        excelSheet.Cells(j + 2, 2) = prdType
                        excelSheet.Cells(j + 2, 3) = posName
                        excelSheet.Cells(j + 2, 4) = count
                    End If
                Next
            Next
            excelWorkbook.SaveAs(strFileName)
            excelApp.Quit()
            Me.ExportButton.Text = "导出到Excel"
            Me.ExportButton.Enabled = True
            Me.PictureBox1.Visible = False
            MsgBox("导出成功:" & strFileName, MsgBoxStyle.MsgBoxSetForeground, "导出成功")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "导出异常")
            Me.ExportButton.Text = "导出到Excel"
            Me.ExportButton.Enabled = True
            Me.PictureBox1.Visible = False
            Return
        End Try