datagridview to excel - progressbar vb.net - vb.net

Question

I have a button that let's me export a datagridview to excel. Sometimes it has more than 5000 rows, so it takes a bit longer.
I tried to add a progress bar, but it is simply random ( the way it is below).
How can i implement the progressbar in a better way ? i don't think i need the timer anyway .
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim exeDir As New IO.FileInfo(Reflection.Assembly.GetExecutingAssembly.FullName)
Dim xlPath = IO.Path.Combine(exeDir.DirectoryName, "template.xlsx")
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
'Dim rTargetCell As Excel.Range
Dim misValue As Object = System.Reflection.Missing.Value
Dim i As Integer
Dim j As Integer
'TEST!
For i = 0 To i = ProgressBar1.Maximum
ProgressBar1.Value = i
ProgressBar1.Update()
Timer2.Start()
System.Threading.Thread.Sleep(25)
Next
'End Test!
xlApp = New Microsoft.Office.Interop.Excel.Application
xlWorkBook = xlApp.Workbooks.Open(xlPath)
xlWorkSheet = xlWorkBook.Worksheets("data")
For i = 0 To DataGridView2.RowCount - 1
For j = 0 To DataGridView2.ColumnCount - 1
For k As Integer = 1 To DataGridView2.Columns.Count
xlWorkSheet.Cells(i + 1, j + 1) = DataGridView2(j, i).Value
Next
Next
Next
xlWorkSheet.SaveAs("C:\Users\User\Desktop\" & TextBox3.Text & ".xlsx")
xlWorkBook.Close()
xlApp.Quit()
Process.Start("C:\Users\User\Desktop\" & TextBox3.Text & ".xlsx")
Me.Close()
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
ProgressBar1.Increment(1)
Label3.Text = "(...)"
If ProgressBar1.Maximum = DataGridView2.Rows.Count Then
Label3.Text = "Finished"
End If
Timer2.Stop()
End Sub

Answer 1

Assuming your progress bar is from min value 0 to max value 100. You should divide the row you are about to dump into excel by 100.
e.g under this line For i = 0 To DataGridView2.RowCount - 1
put this line ProgressBar1.Value = Int(i * (ProgressBar1.Maximum / DataGridView2.RowCount))
Then under that put this line to make sure the view updates, as you are not running the progress bar updates on a separate thread.My.Application.DoEvents()
So it should look like this
For i = 0 To DataGridView2.RowCount - 1
ProgressBar1.Value = Int(i * (ProgressBar1.Maximum / DataGridView2.RowCount))
My.Application.DoEvents()
For j = 0 To DataGridView2.ColumnCount - 1
For k As Integer = 1 To DataGridView2.Columns.Count
xlWorkSheet.Cells(i + 1, j + 1) = DataGridView2(j, i).Value
Next
Next
Next

Answer 2

You could try something like the below. before you start the loop you can set the progressbar maximum value to the total number or records you have.
me.progressbar1.maximum = DataGridView2.RowCount
For i = 0 To DataGridView2.RowCount - 1
For j = 0 To DataGridView2.ColumnCount - 1
For k As Integer = 1 To DataGridView2.Columns.Count
xlWorkSheet.Cells(i + 1, j + 1) = DataGridView2(j, i).Value
Next
Next
Me.ProgressBar1.performstep() 'increment your bar with each record
Next