Public Sub ExportToExcel()
If Me.VisibleRowCount > 0 Then
Dim NewfrmWaiting As New frmWaiting
NewfrmWaiting.Show("正在导出数据,请稍候......")
Try
Dim datav As New DataView
datav = m_DataTable.DefaultView
Dim i, j As Integer
Dim rows As Integer = datav.Table.Rows.Count
Dim cols As Integer = datav.Table.Columns.Count
Dim DataArray(rows - 1, cols - 1) As String
' Dim myExcel As Excel.Application = New Excel.Application
For i = 0 To rows - 1
For j = 0 To cols - 1
If datav.Table.Rows(i).Item(j) Is System.DBNull.Value Then
Else
DataArray(i, j) = datav.Table.Rows(i).Item(j)
End If
Next
Next
' myExcel.Application.Workbooks.Add(True)
' myExcel.Visible = True
For j = 0 To cols - 1
' myExcel.Cells(1, j + 1) = datav.Table.Columns(j).ColumnName
Next
' myExcel.Range("A2").Resize(rows, cols).Value = DataArray
Catch exp As Exception
MessageBox.Show("数据导出失败!请查看是否已经安装了Excel", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
Finally
NewfrmWaiting.Close()
End Try
Else
MessageBox.Show("没有数据!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub