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