Exportar datos de un DGV a Excel
Publicado por Maria (7 intervenciones) el 24/08/2020 20:21:13
Tengo dos funciones, que quiero que al mandar llamar se visualice asi la informacion en mi DGV:
Adjunto imagen de como debe de quedar.
Adjunto imagen de como debe de quedar.
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
Function f() As Integer
'Esta funcion es para llenar la primer columnaDim Pz = Val(TextBox1.Text)
Dim x As Integer
For x = 1 To Pz - 1
x += 1
Next
Return x
End Function
Function p() As Integer
''Esta funcion es para llenar la segunda columnaDim Fol = Val(TextBox2.Text)
Dim i As Integer
For i = 0 To Fol - 1
i += 1
Next
Return i
End Function
Private Sub BttnInsert_Click(sender As Object, e As EventArgs) Handles BttnInsert.Click
' Al mandarla llamar en la funcion del DataGridVIew, quiero ordenarlas funciones anteriores en orden para que la informacion del TextBox1 quede en la primera columna y la informacion del TextBox2 quede en la segunda columnaDGV1.Rows.Add(f(), p())
End Sub
- Capture1.rar(5,3 KB)
Valora esta pregunta
0