Importar .txt

[erbuson]

La Exportación con la propiedad Clip sería como sigue:

Imaginate que tienes un MsFlexgrid llamado Personas con datos en sus Filas y Columnas, para exportarlo directamente podrías hacer lo siguiente:

Código vb:

Private Sub Command1_Click()
  ' Seleccionar la Primera Fila
  Personas.Row = 0
  ' Seleccionar la Primera Columna
  Personas.Col = 0
  ' Seleccionar la última Fila
  Personas.RowSel = Personas.Rows - 1
  ' Seleccionar la última Columna
  Personas.ColSel = Personas.Cols - 1
  ' Abrir el Archivo
  Open "C:\Prueba.txt" For Output As #1
  ' Imprimir la propiedad Clip 
  Print #1, Personas.Clip
  ' Cerrar el archivo
  Close #1
End Sub
 

' Si lo tienes exportado de esta manera, lo puedes importar de un modo similar pero linea a linea no ser que leas todo el archivo, por ejemplo así

Código vb:

Private Sub Command1_Click()
  ' Seleccionar la Primera Fila
  Personas.Row = 0
  ' Seleccionar la Primera Columna
  Personas.Col = 0
  ' Seleccionar la última Fila
  Personas.RowSel = Personas.Rows - 1
  ' Seleccionar la última Columna
  Personas.ColSel = Personas.Cols - 1
  ' Variables necesarias, Linea y Registros
  Dim Linea As String, Registros As String
  ' Abrimos el fichero
  Open "C:\Prueba.txt" For Input As #1
  ' Procesamos hasta el final
  While Not EOF(1)
    ' Leemos una linea completa
    Line Input #1, Linea
    ' La añadimos a una variable de memoria con vbCr  al final
    Registros = Registros & Linea & vbCr
  Wend
  ' Cerramos Fichero
  Close #1
  ' Aplicamos la propiedad
  Personas.Clip = Registros
End Sub
 

Solucionado.


Ten en cuenta que los delimitadores están tal como indica la ayuda que te he copiado antes o sea Chr(9) para separar campos entre columnas y Chr(13) para separar registros

Saludos