Skip to main content

Export Datagridview to Excel

Export Datagridview to Excel + Simple Database Query( Add, update, Delete, Search) Hope You Like It Guys :)

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:

1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

Comments

Submitted byAnonymous (not verified)on Sun, 03/14/2010 - 13:57

Umm.....thanks for the sharing of code. I was looking for something like this.
Submitted bycedon Tue, 03/16/2010 - 17:52

In reply to by Anonymous (not verified)

dont mention it heheh dream it code it
Submitted bycidfreyon Tue, 03/16/2010 - 23:35

In reply to by ced

Tol ang ibig sabihin nya kung pwede gumamit ng access instead of excel nyahahaha
Submitted byAnonymous (not verified)on Fri, 03/26/2010 - 13:17

In reply to by cidfrey

hahaha toink conflict naman kasi ung comment nya hahaha
Submitted byAnonymous (not verified)on Wed, 07/21/2010 - 17:04

Coolllllll..Thank u

look for my work.. (login form) ???? try this.. hehe 'assume mo nalang cn = connection, dr = datareader, txtusername and txtpassword are textfield with cmd .connection = cn .commandtext = "Select * from tblLogin Where Username = ''' & txtUsername.text & "' and Password = '" & txtpassword.text & "' " end with dr = cmd.executeReader while dr.read if dr.hasrows then 'allow user else 'invalid username and password end if end while
Submitted byAnonymous (not verified)on Sun, 10/03/2010 - 18:01

Hello i was try to run this code but i got this error message: Error 6 Type 'Excel.Application' is not defined. C:\Users\Administrator\Desktop\Excel\WindowsApplication1\Form1.vb 51 22 WindowsApplication1
Submitted byAnonymous (not verified)on Fri, 12/31/2010 - 15:26

TRY THIS CODE ITS 100% working Code below creates Excel File and saves it in D: drive It uses Microsoft office 2007 FIRST ADD REFERRANCE (Microsoft office 12.0 object library ) to your project Then Add code given bellow to the Export button click event- Private Sub Export_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXPORT_Button.Click Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet Dim misValue As Object = System.Reflection.Missing.Value Dim i As Integer Dim j As Integer xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = xlWorkBook.Sheets("sheet1") For i = 0 To DataGridView1.RowCount - 2 For j = 0 To DataGridView1.ColumnCount - 1 For k As Integer = 1 To DataGridView1.Columns.Count xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString() Next Next Next xlWorkSheet.SaveAs("D:\vbexcel.xlsx") xlWorkBook.Close() xlApp.Quit() releaseObject(xlApp) releaseObject(xlWorkBook) releaseObject(xlWorkSheet) MsgBox("You can find the file D:\vbexcel.xlsx") End Sub Private Sub releaseObject(ByVal obj As Object) Try System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) obj = Nothing Catch ex As Exception obj = Nothing Finally GC.Collect() End Try End Sub
Submitted byuzumakicat (not verified)on Mon, 02/06/2012 - 14:36

thanks for this code. me project kasi ako...our client ask for excel. ... and i look for tutorials sa ibat ibang sites. thanks =D

Add new comment