Hi All

I created a visual basic report using report tool. when i tried to download this report to MSexcel, it takes times when the report is too large.

Below is the code that i am using for transfer

Private Sub exporttoexcel()
Dim strTbl As String
Dim strFld As String
Dim NoRows As Double
Dim NoCols As Double
Dim i As Integer
Dim TbName As String
Dim j As Integer
On Error GoTo ExpErrCheck



Screen.MousePointer = vbHourglass
Working (False) 'Disabling Buttons
ExNoRows = 0
Set xla = CreateObject("Excel.Application") 'look for a running copy of Excel

Set xlb = xla.Workbooks.Add
Set xls = xlb.Worksheets.Add
xls.Activate
DoEvents
ExNoRows = 0

For j = 0 To Mf.rows - 1
ExNoRows = ExNoRows + 1
Dim dt As String
dt = " "
For i = 0 To Mf.Cols - 1
If IsDate(AvNullS(Mf.TextMatrix(j, i))) Then 'Date checking

If Format(AvNullS(Mf.TextMatrix(j, i)), "dd-mm-yyyy") <> "30-12-1899" Then 'add for zero value checking

xls.Cells(ExNoRows, i + 1) = Trim(AvNullS(Mf.TextMatrix(j, i)))
Else

xls.Cells(ExNoRows, i + 1) = Trim(AvNullS(Mf.TextMatrix(j, i)))
End If
Else
xls.Cells(ExNoRows, i + 1) = Trim(AvNullS(Mf.TextMatrix(j, i)))
End If


Next i
Next j


xla.Visible = True
Working (True)
Screen.MousePointer = vbNormal
Exit Sub
ExpErrCheck:
If Err.Number <> 1004 Then
MsgBox Err.Description
Working (True)
Screen.MousePointer = vbNormal
Exit Sub
Else
Resume Next
End If
End Sub

Is there any other way to transfer vb report to excel fastly.
Takes this as an urgent. Waiting for ur reply.........

Bijeesh