WD The TableTo functions Export from Excel, Txt, Memoria, Word, Xml


sPath is string
sText is string
sExportFile is string

sPath = CompleteDir(fExeDir())
sExportFile = sPath + ["\"] + "export"
SWITCH RADIO_CHOICE
CASE 1 // Export to a Text file
sText = TableToText(Table_Contacts,taNoTitle)
sExportFile += ".txt"
fSaveText(sExportFile,sText)

CASE 2 // Export to the clipboard
TableToClipboard(Table_Contacts)
Info("Data exported to clipboard.")
RETURN
CASE 3 // Export to Word
sExportFile += ".rtf"
TableToWord(Table_Contacts,sExportFile)

CASE 4 // Export to Excel
sExportFile += ".xls"
TableToExcel(Table_Contacts,sExportFile)
CASE 5 // Export to an XML file
sExportFile += ".xml"
TableToXML(Table_Contacts,sExportFile)
END

IF YesNo(StringBuild("Data exported to <%1> :",sExportFile),"Do you want to open the file ?") THEN
ShellExecute(sExportFile)
END