hola!
Ya he encontrado el error, era este .:
Código vb:
Ver original' -------------------------------------------------------------------------------------------
' \\ -- Botón para importar datos en un nuevo libro
' -------------------------------------------------------------------------------------------
Private Sub Command1_Click()
If Exportar_Excel("Y:\libro1.xls", MSFlexGrid1) Then
MsgBox " Datos exportados en " & App.Path, vbInformation
End If
End Sub
en la linea puse .:
If Exportar_Excel((App.Path & "Y:\libro1.xls", MSFlexGrid1) Then
en vez de esto .:
If Exportar_Excel(("Y:\libro1.xls", MSFlexGrid1) Then
debia de eliminar la parte roja;ahora solo me queda estudiar el codigo el porque de cada cosa.
Espero esto le sirva a alguien como a mi, si alguien me puede ayudar ahora con el .dat se lo agradeceria.
Un saludo