CodeXchange Friday, March 29, 2024
Home
What's it?
Download
Register
My Snippets
Add Snippet
Search
Faq
Contact Us
Sponsors

Website hosted by


Code Snippet Preview

Review the code snippet before inserting it on your project.

Snippet Metadata
Summary: Export DatagridView to CSV VB2005 -Pat Tormey
Language: VB.NET
Author: Pat Tormey
Author snippets RSS:
Culture: en-US
Bytes: 2520
Visual Studio 2005 Snippet:

Snippet Stats
Downloads: 5
Overall rating : 0
Average rating : Snippet rating

Snippet Preview
Code:
'Pat Tormey Foursquare Solutions Inc. www.4square.net Jun 06
'Recommended for export to Excel as comma delimited
'Suggest Isolated Storage for File to avoid security and multi user issues..
'Note: Replaces existing commas with space.
Imports System.IO
Namespace Modules
    Module modExportDataView
        Sub ExportDataGridView(ByVal Filename As String, ByVal dgv As DataGridView)
            Dim row As DataGridViewRow
            Dim col As DataGridViewColumn
            Dim sWriter As StreamWriter
            Dim sValue As String
            Try
                sWriter = New StreamWriter(Filename, False)
            Catch ex As System.IO.IOException
                Throw New Exception(Filename & " is in Use") 'probably
                Return
            End Try
            For Each col In dgv.Columns
                If col.Visible Then
                    sWriter.Write(col.HeaderText)
                    If col.Index < dgv.Columns.Count Then
                        sWriter.Write(",")
                    End If
                End If
            Next 'col
            sWriter.WriteLine()
            For Each row In dgv.Rows
                For Each col In dgv.Columns
                    If col.Visible Then
                        Try
                            If Not row.Cells(col.Index).Value Is Nothing Then
                                Select Case row.Cells(col.Index).ValueType.Name
                                    Case "String"
                                        sValue = CType(row.Cells(col.Index).Value, String)
                                        sValue = Replace(sValue, ",", " ") 'lose the commas
                                        sWriter.Write(sValue.Trim)
                                        'Case Additional Formatting Not Implemented
                                    Case Else
                                        sWriter.Write(row.Cells(col.Index).Value)
                                End Select
                            End If 'row.Cells(col.Index).Value i snothing
                            If col.Index < dgv.Columns.Count Then sWriter.Write(",")
                        Catch ex As Exception
                            Throw New Exception("Something went wrong Exporting DatagridView")
                        End Try
                    End If 'Visible
                Next 'Col
                sWriter.WriteLine()
            Next 'row
            sWriter.Flush()
            sWriter.Close()
        End Sub
    End Module
End Namespace

Snippet Comments
Comments:
No comments for this snippet

Other snippets that may interest you..
Related Snippets
TDT - GridPage - Page_Init (C#)
CustomValitaor (C#)
(C#)
Get the file extension from a file path or file name (VB.NET)
grab record from db and subtracts it from variable (VB.NET)



Copyright ©2009-2024 CodeXchange. Server version 1.0.3720.32855 Client Version 0.9.0.0

With from Barcelona

Most Helpful members
These are the members who have received the most points for their helpful samples
Zepho Zep
Robert Wagner
Galen Taylor

All time 'Hall of fame'
Formating a file size and adding the B, KB, MB and GB extension appropriately with string.Format (C#)
INI File Access (VB.NET)
Read XML from string into DataSet (C#)
Create Manifest File for your Application (VB.NET)
Round function to avoid banker's rounding (VB.NET)
Get Short and Long Path Names (VB.NET)
Sending Mail through authenticated SMTP server (C#)
One Way Hash for strings (C#)
Formating a file size and adding the B, KB, MB and GB extension appropriately with string.Format (C#)
How do I load an image from a URI address? (VB.NET)
Use our easy to use Visual Studio.NET addin client and start sharing code snippets with the CodeXchange community!
Refreshed: Friday, March 29, 2024