導出到Excel-將DateTime列設置為Date

Question

我的應用程序中有一個“導出到Excel”功能。 程序本身沒有問題，但是在導出數據時，它將DateTime值顯示為dd/MM/yyyy 00:00:00 ，在導入之前在DataGridView上顯示它們時，某些地方顯示空單元格。

我需要調整導出代碼以刪除數據的時間部分，僅顯示日期。 當我在Excel中突出顯示單元格時，我將其格式化為dd/MM/yyyy格式的“日期”。

如何以編程方式執行此操作？

我的密碼

Dim xlapp As Excel.Application
Dim xlWorkbook As Excel.Workbook
Dim xlWorksheet As Excel.Worksheet
Dim misvalue As Object = Reflection.Missing.Value

xlapp = New Excel.Application
xlWorkbook = xlapp.Workbooks.Add(misvalue)
xlWorksheet = xlWorkbook.Sheets.Add
xlWorksheet.Name = "SupplierInformation"
xlWorksheet.Cells.NumberFormat = "@"

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

  For i = 0 To dgvExport.RowCount - 1
    For j = 0 To dgvExport.ColumnCount - 1
       xlWorksheet.Cells(i + 2, j + 1) = dgvExport(j, i).Value.ToString
     Next
   Next

xlWorksheet.Columns.AutoFit()

Answer 1

• 聲明一個將用於引用范圍的變量，例如；

Dim eRange as Excel.Range

• 然后，在Worksheet設置范圍

eRange = xlWorksheet.Range("A1", B5")

• 然后使用.NumberFormat設置格式

eRange.NumberFormat = "dd/MM/yyyy"

僅供參考： 此鏈接包含有關使用VB格式化Excel數據和單元格所需的幾乎所有信息。