
Dim xlApp As .Application Dim xlWorkBook As .Workbook Dim xlWorkSheet As .Worksheet Dim misValue As Object System.

Imports System.DataImports Excel = Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim cnn As SqlConnection Dim connectionString As String Dim sql As String connectionString = "data source=servername " & _ "initial catalog=databasename user id=username password=password " cnn = New SqlConnection(connectionString) cnn.Open() sql = "SELECT * FROM Product" Dim dscmd As New SqlDataAdapter(sql, cnn) Dim ds As New DataSet dscmd.Fill(ds) DataGridView1.DataSource = ds.Tables(0) cnn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Dim misValue As Object = Dim i As Integer Dim j As Integer xlApp = New Excel.ApplicationClass xlWorkBook = (misValue) xlWorkSheet = xlWorkBook.Sheets("sheet1") For i = 0 To DataGridView1.RowCount - 2 For j = 0 To DataGridView1.ColumnCount - 1 xlWorkSheet.Cells(i + 1, j + 1) = _ DataGridView1(j, i).Value.ToString() Next Next xlWorkSheet.SaveAs("C:\vbexcel.xlsx") xlWorkBook.Close() xlApp.Quit() releaseObject(xlApp) releaseObject(xlWorkBook) releaseObject(xlWorkSheet) MsgBox("You can find the file C:\vbexcel.xlsx") End Sub Private Sub releaseObject(ByVal obj As Object) Try .ReleaseComObject(obj) obj = Nothing Catch ex As Exception obj = Nothing Finally GC. public class form1 private sub form1load (sender as system.object, e as system.eventargs) handles mybase.load me.binddata () end sub protected sub binddata () dim con as sqlconnection new sqlconnection (nnectionstrings ('constring'). I found this code: How to export datagridview to excel using vb.net I was wondering if someone could explain me this code: VB.
