01.Imports System.Data
02.Imports System.Data.SqlClient
03.Imports Excel = Microsoft.Office.Interop.Excel
04.
05.
06.Public Class Form3
07.
08. Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
09.
10. End Sub
11.
12. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
13. Dim cnn As SqlConnection
14. Dim connectionString As String
15. Dim sql As String
16.
17. connectionString = "server = BEX-NB0020;database =db_checksa_sa;Trusted_Connection = yes"
18. cnn = New SqlConnection(connectionString)
19. cnn.Open()
20. sql = "SELECT * FROM SA_Doubly"
21. sql &= " Order by ID_SA asc"
22. Dim dscmd As New SqlDataAdapter(sql, cnn)
23. Dim ds As New DataSet
24. dscmd.Fill(ds)
25. DataGridView1.DataSource = ds.Tables(0)
26. cnn.Close()
27.
28. End Sub
29.
30. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
31. Dim xlApp As Excel.Application
32. Dim xlWorkBook As Excel.Workbook
33. Dim xlWorkSheet As Excel.Worksheet
34. Dim misValue As Object = System.Reflection.Missing.Value
35. Dim i As Integer
36. Dim j As Integer
37.
38. xlApp = New Excel.ApplicationClass
39. xlWorkBook = xlApp.Workbooks.Add(misValue)
40. xlWorkSheet = xlWorkBook.Sheets("sheet1")
41.
42. For i = 0 To DataGridView1.RowCount - 2
43. For j = 0 To DataGridView1.ColumnCount - 1
44. xlWorkSheet.Cells(i + 1, j + 1) = _
45. DataGridView1(j, i).Value.ToString()
46. Next
47. Next
48.
49. xlWorkSheet.SaveAs("C:\vbexcel.xlsx")
50. xlWorkBook.Close()
51. xlApp.Quit()
52.
53. releaseObject(xlApp)
54. releaseObject(xlWorkBook)
55. releaseObject(xlWorkSheet)
56.
57. MsgBox("You can find the file C:\vbexcel.xlsx")
58.
59. End Sub
60.
61. Private Sub releaseObject(ByVal obj As Object)
62. Try
63. System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
64. obj = Nothing
65. Catch ex As Exception
66. obj = Nothing
67. Finally
68. GC.Collect()
69. End Try
70. End Sub
71.
72.End Class
