Hola a todos, tengo una consulta, lo que pasa es tengo una funcion para exportar mis archivos de un MshFlexgrid a Excel, el problema es que cuando exporto 56 columnas me sale el error.
aqui mando el codigo haber si alguien puede ayudarme.
Gracias de antemano

Public Sub ExportarGrid(Grid As MSHFlexGrid, FileName As String, FileType)

Dim I As Long
Dim J As Long

On Error GoTo ErrHandler

Screen.MousePointer = vbHourglass

If FileType = 1 Then 'Exportar a Excel

Dim wkbNew As Excel.Workbook
Dim wkbSheet As Excel.Worksheet
Dim Rng As Excel.Range

If Dir(FileName) <> "" Then
Kill FileName
End If

On Error GoTo CreateNew_Err

Set wkbNew = Workbooks.Add
wkbNew.SaveAs FileName

Set wkbSheet = wkbNew.Worksheets(1)

Set Rng = wkbSheet.Range("A1:" + Chr(Grid.Cols + 64) + CStr(Grid.Rows))
For J = 0 To Grid.Cols - 1
For I = 0 To Grid.Rows - 1
Rng.Range(Chr(J + 1 + 64) + CStr(I + 1)) = Grid.TextMatrix(I, J)
Next
Next

wkbNew.Close True

GoTo NoErrors

CreateNew_Err:
wkbNew.Close False
Set wkbNew = Nothing
Resume ErrHandler

Else

Dim Fs As Variant
Dim a As Variant

On Error GoTo ErrHandler
Set Fs = CreateObject("Scripting.FileSystemObject")
Set a = Fs.CreateTextFile(FileName, True)
Dim Line As String
For J = 0 To Grid.Rows - 1
For I = 0 To Grid.Cols - 1
Line = Line + Grid.TextMatrix(I, J) + vbTab
Next
a.WriteLine (Line)
Line = ""
Next
a.Close

End If

NoErrors:
Screen.MousePointer = vbDefault
MsgBox "El archivo ha sido guardado satisfactoriamente.", vbOKOnly, "Grabación Finalizada ..."
Exit Sub

ErrHandler:
Screen.MousePointer = vbDefault
MsgBox "No puedo exportar el fichero, Porfavor reinice el programa y vuelva a intentarlo.", vbOKOnly, "Sis - Error"
Exit Sub
End Sub