如何在VB.NET中将DataGridView中的数据导出到文本文件

Dim saveFileDialog As New SaveFileDialog()
saveFileDialog.Filter = "文本文件 (*.txt)|*.txt"
saveFileDialog.Title = "保存文件"
saveFileDialog.ShowDialog()

If saveFileDialog.FileName <> "" Then
    Dim filePath As String = saveFileDialog.FileName
    Dim fileStream As New FileStream(filePath, FileMode.Create, FileAccess.Write)
    Dim streamWriter As New StreamWriter(fileStream)

    ' 写入DataGridView中的数据到文本文件
    For Each row As DataGridViewRow In DataGridView1.Rows
        For Each cell As DataGridViewCell In row.Cells
            streamWriter.Write(cell.Value.ToString() & vbTab)
        Next
        streamWriter.WriteLine()
    Next

    ' 关闭流
    streamWriter.Close()
    fileStream.Close()
End If

MessageBox.Show("数据已成功导出到文本文件！", "导出完成", MessageBoxButtons.OK, MessageBoxIcon.Information)