Hola Ce5aR.
Te envío un par de ejemplos de cómo cargar el flexgrid a partir de un archivo de texto delimitado (csv), ya que veo que exportas los datos del flexgrid de esa forma.
Ignoro el botón 'Guardar', ya que utilizando el archivo que exportas como csv ya es suficiente.
Ahí va:
' ********* Ejemplo1 *********
Dim intCanal As Integer
intCanal = FreeFile
Open "C:windowsEscritorioBorrar.csv" For Input As #intCanal
Dim lngRow As Long, lngCol As Long
Dim strRow() As String, str1 As String
ReDim strRow(Flex1.Cols)
Flex1.Clear
Do
Flex1.Row = lngRow
lngRow = lngRow + 1
Line Input #intCanal, str1
strRow() = Split(str1, ",", Flex1.Cols)
For lngCol = 0 To Flex1.Cols - 1
Flex1.Col = lngCol
Flex1.Text = Replace(strRow(lngCol), Chr(34), "")
Next lngCol
Loop While Not EOF(intCanal)
Close #intCanal
' ***************************************
' ********* Ejemplo2 *********
Dim intCanal As Integer
intCanal = FreeFile
Open "C:windowsEscritorioBorrar.csv" For Input As #intCanal
Dim lngRow As Long, lngCol As Long
Dim varRow() As Variant
ReDim varRow(Flex1.Cols)
Flex1.Clear
Do
Flex1.Row = lngRow
lngRow = lngRow + 1
Input #intCanal, varRow(0), varRow(1), varRow(2), varRow(3), varRow(4)
For lngCol = 0 To Flex1.Cols - 1
Flex1.Col = lngCol
Flex1.Text = varRow(lngCol)
Next lngCol
Loop While Not EOF(intCanal)
Close #intCanal
' ***************************************
'El ejemplo2 es algo más rápido que el anterior, pero tiene como inconveniente que hay que conocer el número de columnas del Flex a la hora de escribir el código.
Espero que esto te sirva.
Chao.
