Visual Basic.NET - exportar de datagridview a .cvs

   
Vista:

exportar de datagridview a .cvs

Publicado por nato (55 intervenciones) el 13/09/2017 01:48:33
gracias de antemano por su ayuda

tengo un datagrid que lleno con datos de unos texbox
el datagrid lo exporto a .cvs y lo hace bien mi problema es que la columna clave tiene ceros a la
izquierda y al pasar a .cvs no los pasa y si los nesecito pasarlos con los ceros a la zquierda
el dato se tendria que pasar como tipo texto pero no se como, ojala alguien me pueda orientar

gracias

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub btcvs_Click(sender As Object, e As EventArgs) Handles btcvs.Click
 
'para pasar de datagrid a .csv
'la pasamos sin encabezado solo los datos del datagridview
 
Dim ruta As String
Dim strexport As String = ""
 
 
 
For Each r As DataGridViewRow In DataGridView1.Rows
    For Each c As DataGridViewCell In r.Cells
        If Not c.Value Is Nothing Then
            strexport &= """" & c.Value.ToString & ""","
 
 
        Else
            strexport &= """" & "" & ""","
        End If
 
    Next
    strexport = strexport.Substring(0, strexport.Length - 1)
    strexport &= Environment.NewLine
 
Next
 
Dim savefiledialog As SaveFileDialog = New SaveFileDialog
 
savefiledialog.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
savefiledialog.Filter = "archivos CSV(*.CSV)|*.csv"
savefiledialog.FilterIndex = 2
If savefiledialog.ShowDialog = DialogResult.OK Then
    ruta = savefiledialog.FileName
    MsgBox("EXPORTADO CORRECTAMENTE", MsgBoxStyle.Information)
    Dim tw As IO.TextWriter = New IO.StreamWriter(ruta)
    tw.Write(strexport)
    tw.Close()
Else
 
    Return
 
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Revisar política de publicidad