Visual Basic Resources | VBprofs.com - VB: Export recordset to Excel File

Main Menu

Home

Premium Content

Become a member to get access to our premium content!

Membership is entirely free, and allows you to:

access programming projects posted by our partners;
publish your articles, news, links;
publish a project request;
access our VB Careers section.

Polls

Buy Text Link Ad

LinkWorth Stats
Check our stats on LinkWorth. If you like what you see, signup with LinkWorth and buy a link with us.

Home

Source Codes

Visual Basic

VB: Export recordset to Excel File

Source Codes - Visual Basic
Written by Thomas Kaloyani
Translation of Export DataGrid to Excel File with VB.NET source code to Visual Basic using recordset instead of datatable Private Sub ExportToExcel(ByVal rs As ADODB.Recordset) Dim oApp As New Excel.Application Dim oBook As Excel.Workbook Dim oWorkSheet As Excel.Worksheet Dim oField As ADODB.Field Dim c As Long Dim i As Long On Error GoTo ErrorHandler Set oBook = oApp.Workbooks.Add Set oWorkSheet = oBook.Worksheets.Item(1) oApp.Visible = False With oWorkSheet c = Asc("A") For Each oField In rs.Fields .Range(C hr(c) & "1").Value = oField.Name .Range(C hr(c) & "1").Font.Bold = True c = c + 1 Next i = 2 If rs.RecordCount > 0 Then rs.MoveFirst While Not rs.EOF c = Asc("A") For Each oField In rs.Fields .Range(C hr(c) & i).Value = rs(oField.Name) c = c + 1 Next i = i + 1 rs.MoveNext Wend End With oApp.Visible = True Exit Sub GoTo CleanExit ErrorHandler: MsgBox Err.number & ": " & Err.Description CleanExit: If Not oApp Is Nothing Then Set oApp = Nothing If Not oBook Is Nothing Then Set oBook = Nothing If Not oWorkSheet Is Nothing Then Set oWorkSheet = Nothing End Sub Thomas is an experienced Visual Basic developer, with expertise of 7+ years developing especially financial applications. His main IT skills are VB, SQL, Crystal Reports - should you need a Visual Basic developer for your projects feel free to contact Thomas through his personal website www.Kaloyani.com or through VBprofs.com - the newest Visual Basic and VB.NET resources portal. Source: www.VBprofs.com

Next >

[ Back ]

Antivirus Shop
BitDefender Antivirus v10

Newsflash

PowerRefresh 1.0 released!
A simple yet extremely useful tool for webmasters, publishers and SEO working bees: PowerRefresh allows you to automatically refresh your IE windows every x minutes. It can handle unlimited number of windows and, unlike similar applications, is using full browsers.

Get PowerRefresh from Kaloyani.com: download

Popular
Export DataGrid to Excel File with VB.NET How to Read Excel file using OleDBDataAdapter Navision Database access via C/ODBC WebService/ASP.NET Application VB.NET: Dynamic Usage of Event Handlers Zip/Unzip files from your VB.NET application

VBprofs.com - online resources for Visual Basic and VB.NET professionals: Visual Basic and VB.NET articles, industry news and events, career tools, VB / VB.NET books, calendar and much more. VBprofs.com is an interactive web site with free membership.