Hola seba123neo
Lo he cambiado mas o menos al reves pero me sigue sin salir me podrias decir que falla??
Cita: Private Sub Command6_Click()
Dim blni As Boolean
blni = Importar_practicas_txt(MSFlexGrid1, "practicas.txt", vbTab)
If blni Then
MsgBox "txt importado", vbInformation
End If
End Sub
Public Function Importar_practicas_txt(Path_txt As Object, _
practicas As String, _
Delimitador As Variant) As Boolean
Dim Fila As Integer
Dim Columna As Integer
Dim Free_File As Integer
Free_File = FreeFile
Open Path_txt For Input As #Free_File
For Fila = 0 To _
practicas.Rows - 1
practicas.Row = Fila
For Columna = 0 To _
practicas.Cols - 1
practicas.Col = Columna
'escribe el Delimitador
If Columna > 0 Then
Print #Free_File, Delimitador;
End If
Print #Free_File, vbNullString & practicas.Txt & vbNullString;
Next
Print #Free_File, ""
Next
Close
Importar_practicas_txt = True
Exit Function
Err_Funcion:
Close #Free_File
MsgBox Err.Description, vbCritical
End Function
Me dice que el calificador no es valido y me señala practicas.rows