01.Private Sub GirdToExcel(ByRef dgvw As DataGridView)
02. Dim excel As New Microsoft.Office.Interop.Excel.Application
03. Dim Libro As Microsoft.Office.Interop.Excel.Workbook
04. Dim Hoja As Microsoft.Office.Interop.Excel.Worksheet
05. Dim col As Integer = dgv1.ColumnCount
06. Dim row As Integer = dgv1.RowCount
07. Libro = excel.Workbooks.Add
08. Hoja = excel.Worksheets.Add()
09.
10. excel.Workbooks(1).Worksheets(1).cells(1, 1).columnWidth = 10
11. excel.Workbooks(1).Worksheets(1).cells(1, 1).RowHeight = 20
12.
13. With excel.ActiveSheet.Range("A1:J1")
14. .MergeCells = True
15. End With
16.
17. For i As Integer = 1 To col
18. Hoja.Cells.Item(1, i) = dgv1.Columns(i - 1).Name.ToString
19. excel.Workbooks(1).Worksheets(1).cells(1, 1).value = "รายงานงานเสร็จแล้วตามวันที่"
20.
21.
22. excel.Workbooks(1).Worksheets(1).cells(3, 1).value = "รหัสลูกค้า"
23. excel.Workbooks(1).Worksheets(1).cells(3, 2).value = "รหัสงาน"
24. excel.Workbooks(1).Worksheets(1).cells(3, 3).value = "วันที่รับงาน"
25. excel.Workbooks(1).Worksheets(1).cells(3, 4).value = "ชื่อ"
26. excel.Workbooks(1).Worksheets(1).cells(3, 5).value = "ตำบล"
27. excel.Workbooks(1).Worksheets(1).cells(3, 6).value = "อำเภอ"
28. excel.Workbooks(1).Worksheets(1).cells(3, 7).value = "จังหวัด"
29. excel.Workbooks(1).Worksheets(1).cells(3, 8).value = "ผู้ประเมิน 1"
30. excel.Workbooks(1).Worksheets(1).cells(3, 9).value = "ผู้ประเมิน 2"
31. excel.Workbooks(1).Worksheets(1).cells(3, 10).value = "วันที่ส่งงาน"
32.
33. Next
34. For fila As Integer = 0 To row - 1
35. For e As Integer = 0 To col - 1
36. Hoja.Cells.Item(fila + 4, e + 1) = dgv1.Rows(fila).Cells(e).Value
37. Next
38.
39. Next
40. Hoja.Rows.Item(1).font.bold = 5
41. Hoja.Rows.Item(2).font.bold = 1
42. Hoja.Rows.Item(1).horizontalAlignment = 3
43. Hoja.Columns.AutoFit()
44. excel.Application.Visible = True
45. excel.Application.WindowState = Microsoft.Office.Interop.Excel.XlWindowState.xlMaximized
46. Hoja = Nothing
47. Libro = Nothing
48. excel = Nothing
49. End Sub
