导出到 Excel 时更改日期格式

Question

我在程序中编写了导出到 Excel 的函数，这也与导入程序一致。

导入程序正在运行一些验证检查，但其中一些检查失败，因为 Excel 工作表将它们格式化为 MM/dd/yyyy，但大多数检查都存储为 dd/MM/yyyy。

查看我的导出程序后，我可以看到在导出之前，网格中的日期格式均正确为 dd/MM/yyyy，因此问题不在这里。

然而，当打开导出的 Excel 文件时，我可以看到某些日期存储为 MM/dd/yyyy。

我的电脑上的区域设置是正确的，设置为英国，甚至在检查列上的 Excel 格式后，我可以看到它设置为 dd/MM/yyyy。

那么，可能会出现什么问题呢？为什么有些出口不同？

网格中显示的值（正确格式 - 请参阅顶部 2 行“评价一次开始”，2016 年 1 月 6 日）

导出例程中的代码

Dim formatRange As Excel.Range
formatRange = xlWorksheet.Range("F2", "F99000")
formatRange.NumberFormat = "dd/MM/yyyy"

formatRange = xlWorksheet.Range("I1", "I99000")
formatRange.NumberFormat = "dd/MM/yyyy"

formatRange = xlWorksheet.Range("J1", "J99000")
formatRange.NumberFormat = "dd/MM/yyyy"

formatRange = xlWorksheet.Range("M1", "M99000")
formatRange.NumberFormat = "dd/MM/yyyy"

formatRange = xlWorksheet.Range("N1", "N99000")
formatRange.NumberFormat = "dd/MM/yyyy"

formatRange = xlWorksheet.Range("Q1", "Q99000")
formatRange.NumberFormat = "dd/MM/yyyy"

For k As Integer = 1 To dgvExport.Columns.Count
    xlWorksheet.Cells(1, k) = dgvExport.Columns(k - 1).HeaderText
Next

Dim eStr As String = ""
Dim nStr As String = ""

Me.Cursor = Cursors.WaitCursor

For i = 0 To dgvExport.RowCount - 1
  For j = 0 To dgvExport.ColumnCount - 1
     Try
       eStr = Trim(dgvExport(j, i).Value)
       nStr = eStr.Replace(vbCr, "").Replace(vbLf, "")
       xlWorksheet.Cells(i + 2, j + 1) = nStr
     Catch
       xlWorksheet.Cells(i + 2, j + 1) = dgvExport(j, i).Value
     End Try

   Next
Next

我导出的 Excel 文件（请注意，有些日期是 dd/MM，而有些日期是 MM/dd）

Answer 1

正如 @jkpieterse 所建议的，我只需要将日期值作为实际日期数据类型传递。为此，我修改了For Each循环。

原来的：

For i = 0 To dgvExport.RowCount - 1
  For j = 0 To dgvExport.ColumnCount - 1
    Try
       eStr = Trim(dgvExport(j, i).Value)
       nStr = eStr.Replace(vbCr, "").Replace(vbLf, "")
       xlWorksheet.Cells(i + 2, j + 1) = nStr
    Catch
      xlWorksheet.Cells(i + 2, j + 1) = dgvExport(j, i).Value
    End Try
  Next
Next

工作版本：

For i = 0 To dgvExport.RowCount - 1
  For j = 0 To dgvExport.ColumnCount - 1
     Try
       If j <> 5 AndAlso j <> 8 AndAlso j <> 9 AndAlso j <> 12 AndAlso j <> 13 AndAlso j <> 16 Then
         eStr = Trim(dgvExport(j, i).Value)
         nStr = eStr.Replace(vbCr, "").Replace(vbLf, "")
         xlWorksheet.Cells(i + 2, j + 1) = nStr
       Else
         xlWorksheet.Cells(i + 2, j + 1) = Convert.ToDateTime(dgvExport(j, i).Value).GetDateTimeFormats(Threading.Thread.CurrentThread.CurrentCulture.DateTimeFormat)
       End If
     Catch
       xlWorksheet.Cells(i + 2, j + 1) = dgvExport(j, i).Value
     End Try

  Next
Next

这意味着，如果正在评估的当前列的索引不是包含日期的列之一，则将其正常导出，但如果是，则将其转换为日期时间，其格式与线程的当前区域性格式。

这就像做梦一样。