
Ayuda con progressbar, donde lo pongo.
Publicado por Juan Carlos (11 intervenciones) el 30/10/2014 15:34:56
hola, tengo este codigo que me exporta los datos de un datagridview a excel, el detalle es que me demora la exportacion y no se cuando termina de exportar, quisiera saber donde puedo agregar la parte del progressbar para observar el progreso de exportacion en mi aplicacion.
he leido en internet que la parte del progressbar va entre el For y Next, intente ponerlo pero no funciona. espero y me ayuden a solucionar esto.
este es mi codigo
he leido en internet que la parte del progressbar va entre el For y Next, intente ponerlo pero no funciona. espero y me ayuden a solucionar esto.
este es mi codigo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub exportar_excel(ByVal datagridview1 As DataGridView, ByVal pth As String)
Dim xlApp As Object = CreateObject("Excel.Application")
Dim xlwoy As Object = xlApp.workbooks.add
Dim xlwoz As Object = xlwoy.worksheets(1)
For c As Integer = 0 To datagridview1.Columns.Count - 1
xlwoz.cells(1, c + 1).value = datagridview1.Columns(c).HeaderText
Next
For r As Integer = 0 To datagridview1.RowCount - 1
For c As Integer = 0 To datagridview1.Columns.Count - 1
xlwoz.cells(r + 2, c + 1).value = datagridview1.Item(c, r).Value
Next
Next
xlwoy.saveas(pth)
xlwoz = Nothing
xlwoy = Nothing
xlApp.quit()
xlApp = Nothing
End Sub
Valora esta pregunta


0