Export Supermemo via Excel to Evernote

UPDATE: 11-30-2012. The method below won't include images or formatting. Booh!! So, I instead wrote a PHP program to do both of those things. You may download and use it for free (attribution would be nice though :-)). Here are the details on the Paper Upgrade Project's blog page. As an experiment, I transferred my entire SuperMemo collection, about 50K items, to Evernote by using Excel as a bridge. The goal is to have Flashcards of those items that Sync with, well, everything. SuperMemo locks you into Microsoft, whereas this approach would not. Sorry, these notes are rough, but they work: Open SumperMemo Export entire collection -- or better yet, go section by section -- as Q&A Open Notepad++ open the Q&A do Find and Replace like this: replace STX entries with ² (ALT + 0178) replace \r\nA: with ª (ALT + 0170) replace \r\n\r\n with \r\n replace Q: with (nothing) replace \r\nQ: with \r\n replace \r\nA: with ª force all cells to text format, then copy and paste back in as Value Open Excel Use Text to columns on (ALT+0170) copy and paste the following into a new Macro (change the path below to suit your needs), then ALT+F8, Run: Sub Export_Files() Dim sExportFolder, sFN Dim rArticleName As Range Dim rDisclaimer As Range Dim oSh As Worksheet Dim oFS As Object Dim oTxt As Object Dim i As Long 'sExportFolder = path to the folder you want to export to 'oSh = The sheet where your data is stored sExportFolder = "b:\evernote" Set oSh = Worksheets("Sheet1") Set oFS = CreateObject("Scripting.Filesystemobject") For Each rArticleName In oSh.UsedRange.Columns("A").Cells Set rDisclaimer = rArticleName.Offset(, 1) i = i + 1 'Add .txt to the article name as a file name 'sFN = rArticleName.Value & ".txt" sFN = i & ".txt" Set oTxt = oFS.OpenTextFile(sExportFolder & "\" & sFN, 2, True) If Not IsError(rArticleName.Value) Then oTxt.Write rArticleName.Value Else oTxt.Write "blank" End If oTxt.Write vbCrLf If Not IsError(rDisclaimer.Value) Then oTxt.Write rDisclaimer.Value Else oTxt.Write "blank" End If oTxt.Close Next End Sub