ต้องการให้ไฟล์ Excel ที่Genออกมาในช่องที่เป็นตัวเลขให้มีคอมม่าและทศนิยมครับ

  Private Sub GirdToExcel1(ByRef dgvw As DataGridView)
        Dim excel As New Microsoft.Office.Interop.Excel.Application
        Dim Libro As Microsoft.Office.Interop.Excel.Workbook
        Dim Hoja As Microsoft.Office.Interop.Excel.Worksheet
        Dim col As Integer = dtg_marketedit.ColumnCount
        Dim row As Integer = dtg_marketedit.RowCount
        Libro = excel.Workbooks.Add
        Hoja = excel.Worksheets.Add()

        excel.Workbooks(1).Worksheets(1).cells(1, 1).columnWidth = 10
        excel.Workbooks(1).Worksheets(1).cells(1, 1).RowHeight = 20

        With excel.ActiveSheet.Range("A1:T1")
            .MergeCells = True
        End With

        ' With excel.ActiveSheet.Range("A3:O3")
        '.MergeCells = True
        '  End With

        For i As Integer = 1 To col
            Hoja.Cells.Item(1, i) = dtg_marketedit.Columns(i - 1).Name.ToString
        Next

        excel.Workbooks(1).Worksheets(1).cells(1, 1).value = "รายงานการจ่ายค่า Case ประจำเดือน " & dtp_1.Value.ToShortDateString() & ""


        excel.Workbooks(1).Worksheets(1).cells(3, 1).value = "สถาบันการเงิน"
        excel.Workbooks(1).Worksheets(1).cells(3, 2).value = "ผู้ว่าจ้าง"
        excel.Workbooks(1).Worksheets(1).cells(3, 3).value = "เลขที่รายงาน"
        excel.Workbooks(1).Worksheets(1).cells(3, 4).value = "ชื่อลูกค้า"
        excel.Workbooks(1).Worksheets(1).cells(3, 5).value = "รายละเอียดทรัพย์สิน"
        excel.Workbooks(1).Worksheets(1).cells(3, 6).value = "ตำบล"
        excel.Workbooks(1).Worksheets(1).cells(3, 7).value = "อำเภอ"
        excel.Workbooks(1).Worksheets(1).cells(3, 8).value = " จังหวัด "
        excel.Workbooks(1).Worksheets(1).cells(3, 9).value = "ผู้ประเมิน 1"
        excel.Workbooks(1).Worksheets(1).cells(3, 10).value = "ผู้ประเมิน 2"
        excel.Workbooks(1).Worksheets(1).cells(3, 11).value = "กำหนดส่งงาน"
        excel.Workbooks(1).Worksheets(1).cells(3, 12).value = "วันที่ส่งงาน"
        excel.Workbooks(1).Worksheets(1).cells(3, 13).value = "ค่าบริการ (รายงาน)"
        excel.Workbooks(1).Worksheets(1).cells(3, 14).value = "ยอดคิดค่าเครส (รายงาน)"
        excel.Workbooks(1).Worksheets(1).cells(3, 15).value = "ค่าเครส %(รายงาน) "
        excel.Workbooks(1).Worksheets(1).cells(3, 16).value = "ค่าเครสรวม(รายงาน) "
        excel.Workbooks(1).Worksheets(1).cells(3, 17).value = "ค่าเครสคนที่ 1 %(รายงาน) "
        excel.Workbooks(1).Worksheets(1).cells(3, 18).value = " คนที่ 1 "
        excel.Workbooks(1).Worksheets(1).cells(3, 19).value = " คนที่ 2 "
        excel.Workbooks(1).Worksheets(1).cells(3, 20).value = " บริษัทรับสุทธิ(รายงาน) "




        For fila As Integer = 0 To row - 1
            For e As Integer = 0 To col - 1
                Hoja.Cells.Item(fila + 4, e + 1) = dtg_marketedit.Rows(fila).Cells(e).Value
                Hoja.Cells(fila + 4, e + 1).Font.Size = 6
            Next

        Next
        Hoja.Rows.Item(1).font.bold = 1
        Hoja.Rows.Item(3).font.bold = 1
        Hoja.Rows.Item(5).font.bold = 1
        Hoja.Rows.Item(1).font.size = 8
        Hoja.Rows.Item(3).font.size = 8
        Hoja.Rows.Item(5).font.size = 6
        Hoja.PageSetup.Orientation = Microsoft.Office.Interop.Excel.XlPageOrientation.xlLandscape
        Hoja.Rows.Item(1).horizontalAlignment = 3
        Hoja.Rows.Item(3).horizontalAlignment = 3
        Hoja.Columns.AutoFit()
        excel.Application.Visible = True
        excel.Application.WindowState = Microsoft.Office.Interop.Excel.XlWindowState.xlMaximized
        Hoja = Nothing
        Libro = Nothing
        excel = Nothing
    End Sub