如何在将 datagridview 导出到 excel 文件 VB.NET 时摆脱时间

Question

大家好，我有一个问题，关于如何在使用 vb.net

导出 datagridview 中的数据列表时摆脱日期后面的时间

这里是图片

这是 datagridview 中的日期，根本不是时间

但导出数据后变成日期时间..同样导出为pdf..还有时间..

   Private Sub tsbtnExcel_Click(sender As Object, e As EventArgs) Handles tsbtnExcel.Click
    With SaveFileDialog1

    End With
    If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
        Dim filename As String
        filename = SaveFileDialog1.FileName

        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
        xlApp = New Microsoft.Office.Interop.Excel.Application
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("sheet1")

        'Export Header Names Start
        Dim columnsCount As Integer = DataGridView1.Columns.Count
        For k As Integer = 1 To columnsCount
            xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText
        Next
        'Export Header Name End

        'Export Each Row Start
        Dim i As Integer = 0
        For Each row As DataGridViewRow In DataGridView1.Rows
            Dim checkselect As Integer = Convert.ToInt16(row.Cells("chkCheck").Value)
            If checkselect = 1 Then
                For columnIndex As Integer = 1 To columnsCount - 1
                    xlWorkSheet.Cells(i + 2, columnIndex + 1).Value = row.Cells(columnIndex).Value.ToString
                Next
                i += 1
            End If
        Next
        'Export Each Row End
        xlWorkSheet.SaveAs(filename + ".csv")
        xlWorkBook.Close()
        xlApp.Quit()
        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)
        MessageBox.Show("Export excel file successfully",
                        "Information",
                        MessageBoxButtons.OK,
                        MessageBoxIcon.Information)
    Else
        MessageBox.Show("Canceled, Export data failed",
                        "Information",
                        MessageBoxButtons.OK,
                        MessageBoxIcon.Information)
    End If

End Sub

这是将数据导出到 excel 的编码。我使用复选框数据网格视图，这样我就可以选择要导出的数据。所以我希望你们能帮助我摆脱时间导出到 excel

Answer 1

一个快速的解决方案是将您的日期转换为网格视图中的字符串。

date.ToString("dd/MM/yyyy")

因此导入会将这两列视为简单字符串。

否则

dataGridView1.Columns(12).DefaultCellStyle.Format = "dd/MM/yyyy"

假设 12 是您要编辑的列的索引

Answer 2

我知道了 xlWorkSheet.Cells(i + 2, columnIndex + 1).Value = row.Cells(columnIndex).Value.ToString1 这个编码应该是 xlWorkSheet.Cells(i + 2, columnIndex + 1).Value = row.Cells(columnIndex).Value ... ToString 在将 DGV 导出到 excel

时需要带时间的日期

如何在将 datagridview 导出到 excel 文件 VB.NET 时摆脱时间

How to get rid of time when export datagridview into excel file VB.NET

vb.net