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:P1")
14. .MergeCells = True
15. End With
16.
17. With excel.ActiveSheet.Range("A3:P3")
18. .MergeCells = True
19. End With
20.
21. For i As Integer = 1 To col
22. Hoja.Cells.Item(1, i) = dgv1.Columns(i - 1).Name.ToString
23. Next
24.
25. excel.Workbooks(1).Worksheets(1).cells(1, 1).value = "รายงานการรับงานของเจ้าหน้าที่ประเมินตามวันที่"
26.
27. excel.Workbooks(1).Worksheets(1).cells(3, 1).value = "จากวันที : " & dtp1.Value.ToShortDateString() & " " & "ถึงวันที่ : " & dtp2.Value.ToShortDateString()
28.
29. excel.Workbooks(1).Worksheets(1).cells(5, 1).value = "หลักประกัน"
30. excel.Workbooks(1).Worksheets(1).cells(5, 2).value = "วันที่รับงาน"
31. excel.Workbooks(1).Worksheets(1).cells(5, 3).value = "ชื่อ"
32. excel.Workbooks(1).Worksheets(1).cells(5, 4).value = "รหัสรายงาน"
33. excel.Workbooks(1).Worksheets(1).cells(5, 5).value = "ตำบล"
34. excel.Workbooks(1).Worksheets(1).cells(5, 6).value = "อำเถอ"
35. excel.Workbooks(1).Worksheets(1).cells(5, 7).value = "จังหวัด"
36. excel.Workbooks(1).Worksheets(1).cells(5, 8).value = "ประเภททรัพย์สิน"
37. excel.Workbooks(1).Worksheets(1).cells(5, 9).value = "กำหนดส่ง"
38. excel.Workbooks(1).Worksheets(1).cells(5, 10).value = "วันที่ส่งรายงาน"
39. excel.Workbooks(1).Worksheets(1).cells(5, 11).value = "วันที่ส่ง PS"
40. excel.Workbooks(1).Worksheets(1).cells(5, 12).value = "สถานะงาน"
41. excel.Workbooks(1).Worksheets(1).cells(5, 13).value = "ค่าบริการ"
42. excel.Workbooks(1).Worksheets(1).cells(5, 14).value = "ค่าบริการ PS"
43. excel.Workbooks(1).Worksheets(1).cells(5, 15).value = "จนท.ประเมิน 1"
44. excel.Workbooks(1).Worksheets(1).cells(5, 16).value = "จนท.ประเมิน 2"
45.
46. For fila As Integer = 0 To row - 1
47. For e As Integer = 0 To col - 1
48. Hoja.Cells.Item(fila + 6, e + 1) = dgv1.Rows(fila).Cells(e).Value
49.
50. Next
51. Next
52. Hoja.Rows.Item(1).font.bold = 1
53. Hoja.Rows.Item(3).font.bold = 1
54. Hoja.Rows.Item(5).font.bold = 1
55. Hoja.Rows.Item(1).font.size = 7
56. Hoja.Rows.Item(3).font.size = 7
57. Hoja.Rows.Item(5).font.size = 7
58. Hoja.PageSetup.Orientation = Microsoft.Office.Interop.Excel.XlPageOrientation.xlLandscape
59. Hoja.Rows.Item(1).horizontalAlignment = 3
60. Hoja.Rows.Item(3).horizontalAlignment = 3
61. Hoja.Columns.AutoFit()
62. excel.Application.Visible = True
63. excel.Application.WindowState = Microsoft.Office.Interop.Excel.XlWindowState.xlMaximized
64. Hoja = Nothing
65. Libro = Nothing
66. excel = Nothing
67. End Sub
