![]() |
#2
luhai_fy2016-05-05 11:04
|

Dim SaveFile As New SaveFileDialog
SaveFile.Filter = "Excel 2003|*.xls|Excel 2007|*.xlsx"
SaveFile.OverwritePrompt = True
SaveFile.RestoreDirectory = True
SaveFile.InitialDirectory = "d:\"
SaveFile.ShowDialog()
Dim ws As New (SaveFile.OpenFile, System.Text.Encoding.Default)
Dim str As String = ""
For i As Integer = 0 To DGV.Columns.Count - 1
str += DGV.Columns(i).HeaderCell.Value.ToString & vbTab
Next
str += vbCrLf
For Each row As DataGridViewRow In DGV.Rows
For i As Integer = 0 To DGV.Columns.Count - 1
If Not row.IsNewRow Then
str += row.Cells.Item(i).Value.ToString & vbTab
End If
Next
str += vbCrLf
Next
ws.Write(str)
ws.Close()
End Sub
[此贴子已经被作者于2016-3-16 12:18编辑过]