exportar de datagridview a .cvs
Publicado por nato (59 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
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 Thenstrexport &= """" & c.Value.ToString & ""","
Else
strexport &= """" & "" & ""","
End If
Next
strexport = strexport.Substring(0, strexport.Length - 1)
strexport &= Environment.NewLine
Next
Dim savefiledialog As SaveFileDialog = New SaveFileDialogsavefiledialog.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
0