如何将datagridview的精确值导出到excel VB中
我有一个datagridview从一个导入的Excel文件中填充值。 我将datagridview中的headertext更改为另一个值，并对它们进行重新sorting，然后再将它们导出到excel文件中。 发生了什么是我得到的值被更改，但不是订单（顺序仍然是导入的Excel文件的顺序）。 如何导入我的datagridview的值和顺序？ 请参阅下面的代码：
'Code for Import Private Sub btnImport_Click(sender As System.Object, e As System.EventArgs) Handles btnImport.Click Dim result As DialogResult = OpenFileDialog1.ShowDialog() Dim path As String = OpenFileDialog1.FileName Me.TextBox1.Text = path.ToString Try Me.dgvFile.DataSource = Nothing Dim MyConnection As System.Data.OleDb.OleDbConnection Dim DtSet As System.Data.DataSet Dim MyCommand As System.Data.OleDb.OleDbDataAdapter MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Me.TextBox1.Text & "';Extended Properties=Excel 8.0;") MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyConnection) MyCommand.TableMappings.Add("Table", "Net-informations.com") DtSet = New System.Data.DataSet MyCommand.Fill(DtSet) Me.dgvFile.DataSource = DtSet.Tables(0) MyConnection.Close() MessageBox.Show("File successfully imported") Catch ex As Exception MessageBox.Show("Error") End Try End Sub 'Code for Convert Private Sub btnConvert_Click(sender As System.Object, e As System.EventArgs) Handles btnConvert.Click MysqlConn = New MySqlConnection MysqlConn.ConnectionString = "server=localhost;userid=root;password=NewPass;database=converter" Dim MysqlReader As MySqlDataReader 'Convert for Headers MysqlConn.Open() Dim MysqlQuery As String MysqlQuery = "SELECT * FROM headers" MysqlComm = New MySqlCommand(MysqlQuery, MysqlConn) MysqlReader = MysqlComm.ExecuteReader Dim y = 0 Dim arrayContain As New List(Of String) Dim arrayRemove As New List(Of String) 'Dim colIndex While MysqlReader.Read Dim header = MysqlReader.GetString("Header") Dim convert = MysqlReader.GetString("Convert") Dim strHeader = System.Convert.ToString(header) Dim strConvert = System.Convert.ToString(convert) Dim x = 0 For Each column As DataGridViewColumn In dgvFile.Columns If column.HeaderText = strHeader Then column.HeaderText = strConvert dgvFile.Columns(x).DisplayIndex = y y = y + 1 arrayContain.Add(column.HeaderText) Else x = x + 1 End If Next End While For Each remove As DataGridViewColumn In dgvFile.Columns If arrayContain.Contains(remove.HeaderText) = False Then arrayRemove.Add(remove.HeaderText) End If Next For count As Integer = 0 To arrayRemove.Count - 1 dgvFile.Columns.Remove(arrayRemove(count)) Next MysqlComm.Dispose() MysqlReader.Close() MysqlConn.Close() 'Code for Export Private Sub btnExport_Click(sender As System.Object, e As System.EventArgs) Handles btnExport.Click Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet Dim misValue As Object = System.Reflection.Missing.Value Dim sPath As String = String.Empty Dim dlgSave As New SaveFileDialog Dim i As Integer Dim j As Integer dlgSave.DefaultExt = "xlsx" dlgSave.Filter = "Microsoft Excel|*.xlsx" If dlgSave.ShowDialog = System.Windows.Forms.DialogResult.OK Then xlApp = New Microsoft.Office.Interop.Excel.Application xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = xlWorkBook.Sheets("sheet1") For i = 0 To dgvFile.RowCount - 1 For j = 0 To dgvFile.ColumnCount - 1 For k As Integer = 1 To dgvFile.Columns.Count xlWorkSheet.Cells(1, k) = dgvFile.Columns(k - 1).HeaderText xlWorkSheet.Cells(i + 2, j + 1) = "'" & dgvFile(j, i).Value.ToString() Next Next Next Dim sFileName As String = dlgSave.FileName 'Dim finalFilename As String = sFileName & ".xlsx" xlWorkSheet.SaveAs(sFileName) xlWorkBook.Close() xlApp.Quit() releaseObject(xlApp) releaseObject(xlWorkBook) releaseObject(xlWorkSheet) Dim res As MsgBoxResult res = MsgBox("Process completed, Would you like to open file?", MsgBoxStyle.YesNo) If (res = MsgBoxResult.Yes) Then Process.Start(sFileName) End If End If End Sub 'releaseObject Code Private Sub releaseObject(ByVal obj As Object) Try System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) obj = Nothing Catch ex As Exception obj = Nothing Finally GC.Collect() End Try End Sub 编辑
这是IMPORTED excel到datagridview的顺序。 
这是CONVERTED datagridview的顺序。 
这是excel的EXPORTED datagridview的顺序。 
您会注意到IMPORTED和EXPORTED具有相同的顺序。 我希望EXPORTED与CONVERTED的顺序相同。 我希望现在很清楚，希望有人能帮我解决这个问题。 谢谢 ：）
尝试在转换过程中使用您想要的值更改dt中的值，而不是更改datagridview，并使用转换后的值将您的dgv数据源设置为dt。 我认为导出得到dt内的值，而不是datagridview。