Forum Discussion
A tool for exporting all to-do items to a data file, such as CSV or JSON
While I would indeed need the export function I do not think that this is required by GDPR.
The right to portability concerns personal data i.e. data that can link to a specific person. A list of task is not personal data by definition (unless I add sensible data to tasks, but this is my specific decision and use of the application). E.g. the task "call the tv technician on Monday" is not sensible or personal data while the task "call the doctor on Monday for routine check of my diabetes" is.
- jale4itAug 23, 2023Copper ContributorHi Mario,
I do no not agree - all personal data are in scope. "Personal data is any information that relates to an identified or identifiable living individual" refer to
definition of personal data: https://commission.europa.eu/law/law-topic/data-protection/reform/what-personal-data_en or you can find it in WP136.
GDPR (protection of natural persons with regard to the processing of personal data and on the free movement of such data), ie . the idea is to give a person control of their own personal data. Refer to GDPR, https://eur-lex.europa.eu/legal-content/EN/TXT/HTML/?uri=CELEX:32016R0679#d1e40-1-1 - see (6) and (7).
The sensibility is about how it should be protected and has nothing to do with control of your data.- JamesEricksonAug 26, 2023Copper Contributor
jale4it This is indeed one of those things that I wished ToDo had. I needed exportability as we have hundreds of tasks and I move them to archive folders each week so we dont muck up our workflow. I ended up using PowerAutomate in order to export the list. If you have PowerAutomate you can go through each list and write it to an online Excel file.
The other way to do it.
Move all the tasks to "export" to a new export to do list.
For this list go to print list or Email List. Your goal is to get the list on your clipboard.
Once you do you can run this simple script on new Excel worksheet
Sub ParseToDoClipboard() Dim c As Range, ws As Worksheet, rw As Long Dim s As String, x As Long Set ws = ActiveSheet Range("a1").Select ws.PasteSpecial "text" rw = 1 x = 0 For Each c In Selection x = x + 1 'check for header If x = 1 Then ws.Range("J" & rw).Value = c.Value rw = rw + 1 End If s = c.Value If Left(s, 1) = "?" Then s = Replace(s, "?", "") ws.Range("J" & rw).Value = Mid(s, 2) rw = rw + 1 End If Next c End Sub
They are both not the most elegant suggestions but it's something. Let me know if you have any questions.