como puedo agregar un documento Exel en la pantalla TFT, se puede a través de la MICROSD?
Puedes pasarle datos del Arduino a un excel usando Data Streamer pero no a la inversa.
Por falta de memoria para poder procesar el archivo.
En el 2022 respondí algo parecido, veo que no investigaste porque casi todas las preguntas ya fueron hechas en este foro
Sin embargo mi respuesta fue vaga, en el sentido que no lo he probado.
Requiere manejo de VBA para hacerlo, hoy creo que hay soporte Python en MS Excel.
O sea via serial si puedes enviar, también recibir.
Podrías si tomas la precaución de grabar el archivo como CSV, claro que tiene sus limitaciones (y muchas) pero si el objetivo es mostrar los datos, eventualmente, se podría.
Usa Google, como hice yo, que algo vas a encontrar.
Acá tienes con Python en versiones no se si 2016 2019 2021 (no aseguro la 16)
' Código VBA para leer datos del puerto serie
Dim Serial As Object ' Objeto para la comunicación serial
Dim Puerto As String
Dim Dato As String
Dim Fila As Integer
Sub IniciarSerial()
' Configurar el puerto serie (ej. COM3)
Puerto = "COM3"
Set Serial = CreateObject("MSCommLib.MSComm")
With Serial
.CommPort = 3 ' Ajustar si es necesario
.Settings = "9600,N,8,1" ' Ajustar la configuración si es necesario
.InBufferSize = 1024
.OutBufferSize = 1024
.InputMode = 1 ' Modo de entrada: texto
.RThreshold = 1
.PortOpen = True
End With
Fila = 1 ' Comenzar desde la fila 1
' Iniciar temporizador para leer datos continuamente
Application.OnTime Now + TimeValue("00:00:01"), "LeerDatos"
End Sub
Sub LeerDatos()
' Leer datos del puerto serial
If Serial.InBufferCount > 0 Then
Dato = Serial.Input
' Escribir los datos en la hoja de cálculo
ThisWorkbook.Sheets(1).Cells(Fila, 1).Value = Dato
Fila = Fila + 1
End If
' Llamar a la función LeerDatos de nuevo después de un segundo
Application.OnTime Now + TimeValue("00:00:01"), "LeerDatos"
End Sub
Sub DetenerSerial()
' Detener la lectura de datos
Application.OnTime Now + TimeValue("00:00:01"), "LeerDatos", , False
Serial.PortOpen = False
Set Serial = Nothing
End Sub
Este otro usando VBA (Visual Basic for Applications)