TdeV 87 Posted February 15, 2015 Share Posted February 15, 2015 About a year ago, I imported (to Excel) all my Dad's address database from Palm data and massaged it so that all the relevant data classifications existed on every line in the spreadsheet, one line for each record. Somehow that was converted into something which then was imported into a new Evernote notebook, one new note for every row of the spreadsheet. I thought the solution was nearly perfect. Then I discovered that Evernote has NO features for low vision folks, so the solution wouldn't work for my Dad. I deleted my new notebook. A year later we still don't have an adequate solution and my Dad is still gamely trying to read his Palm data on his Windows computer. So, I'd like to retry the same solution, since it may be a poor improvement on the Palm data. But I can't remember how I got from the Excel spreadsheet to the automated EN import. Searching EN Discussions hasn't produced anything useful. Currently I'm EN 5.8.3 but wasn't a year ago. Windows 7 x64 EN Premium user. Ideas? Link to comment
TdeV 87 Posted February 15, 2015 Author Share Posted February 15, 2015 I'm pretty sure that my husband wrote an Excel macro to export the row data, each to a text file. I have found the directory on my computer where the temporary text files were created. So now I just have to locate Evernote help info telling me how to do an automated import. Thanks for any advice you can give me. Link to comment
TdeV 87 Posted February 15, 2015 Author Share Posted February 15, 2015 Aha! Look and ye shall find:https://evernote.com/contact/support/kb/#/article/23186693 And I found the import folder defined asc:\tmp\DadNo subfoldersNotebook = TemporaryKeep Source I deleted the Import folder and then re-added it which *didn't* cause Evernote to reimport it. Link to comment
TdeV 87 Posted February 15, 2015 Author Share Posted February 15, 2015 Deleted import folder, closed down Evernote and re-opened it, import going fine. Link to comment
Level 5* CalS 5,110 Posted February 15, 2015 Level 5* Share Posted February 15, 2015 Thanks for sharing. You might want to share the macro as well as CSV to EN single notes has appeared on the forum before. It might help someone. Link to comment
TdeV 87 Posted February 15, 2015 Author Share Posted February 15, 2015 Here 'tis Option ExplicitSub ExportContacts()'' ExportContacts Macro' Export Dads' Contacts for import to Evernote'' Keyboard Shortcut: Ctrl+Shift+E'Dim iRow As LongDim cName As StringClose #1With ActiveSheetFor iRow = 1 To .Cells(.Rows.Count, "A").End(xlUp).RowcName = .Cells(iRow, "E").ValueIf cName = "'''" Then cName = .Cells(iRow, "A").Value & "_Header"cName = Replace(cName, "/", "_")cName = Replace(cName, "?", "_Q_")Open "c:\tmp\Dad\" & cName & ".txt" For Output As #1If .Cells(iRow, "B") <> "" Then Print #1, .Cells(iRow, "B").ValueIf .Cells(iRow, "C") <> "" Then Print #1, .Cells(iRow, "C").ValueIf .Cells(iRow, "D") <> "" Then Print #1, .Cells(iRow, "D").ValueIf .Cells(iRow, "E") <> "" Then Print #1, .Cells(iRow, "E").ValueIf .Cells(iRow, "F") <> "" Then Print #1, .Cells(iRow, "F").ValueIf .Cells(iRow, "G") <> "" Then Print #1, .Cells(iRow, "G").ValueIf .Cells(iRow, "H") <> "" Then Print #1, .Cells(iRow, "H").ValueIf .Cells(iRow, "I") <> "" Then Print #1, .Cells(iRow, "I").ValueIf .Cells(iRow, "J") <> "" Then Print #1, .Cells(iRow, "J").ValueIf .Cells(iRow, "K") <> "" Then Print #1, .Cells(iRow, "K").ValueIf .Cells(iRow, "L") <> "" Then Print #1, .Cells(iRow, "L").ValueIf .Cells(iRow, "M") <> "" Then Print #1, .Cells(iRow, "M").ValueIf .Cells(iRow, "N") <> "" Then Print #1, .Cells(iRow, "N").ValueIf .Cells(iRow, "O") <> "" Then Print #1, .Cells(iRow, "O").ValueIf .Cells(iRow, "P") <> "" Then Print #1, .Cells(iRow, "P").ValueIf .Cells(iRow, "Q") <> "" Then Print #1, .Cells(iRow, "Q").ValueIf .Cells(iRow, "R") <> "" Then Print #1, .Cells(iRow, "R").ValueIf .Cells(iRow, "S") <> "" Then Print #1, .Cells(iRow, "S").ValueIf .Cells(iRow, "T") <> "" Then Print #1, .Cells(iRow, "T").ValueIf .Cells(iRow, "U") <> "" Then Print #1, .Cells(iRow, "U").ValueIf .Cells(iRow, "V") <> "" Then Print #1, .Cells(iRow, "V").ValueIf .Cells(iRow, "W") <> "" Then Print #1, .Cells(iRow, "W").ValueIf .Cells(iRow, "X") <> "" Then Print #1, .Cells(iRow, "X").ValueIf .Cells(iRow, "Y") <> "" Then Print #1, .Cells(iRow, "Y").ValueIf .Cells(iRow, "Z") <> "" Then Print #1, .Cells(iRow, "Z").ValueIf .Cells(iRow, "AB") <> "" Then Print #1, .Cells(iRow, "AB").ValueIf .Cells(iRow, "AC") <> "" Then Print #1, .Cells(iRow, "AC").ValueIf .Cells(iRow, "AD") <> "" Then Print #1, .Cells(iRow, "AD").ValueIf .Cells(iRow, "AE") <> "" Then Print #1, .Cells(iRow, "AE").ValueIf .Cells(iRow, "AF") <> "" Then Print #1, .Cells(iRow, "AF").ValueIf .Cells(iRow, "AG") <> "" Then Print #1, .Cells(iRow, "AG").ValueIf .Cells(iRow, "AH") <> "" Then Print #1, .Cells(iRow, "AH").ValueIf .Cells(iRow, "AI") <> "" Then Print #1, .Cells(iRow, "AI").ValueIf .Cells(iRow, "AJ") <> "" Then Print #1, .Cells(iRow, "AJ").ValueIf .Cells(iRow, "AK") <> "" Then Print #1, .Cells(iRow, "AK").ValueIf .Cells(iRow, "AL") <> "" Then Print #1, .Cells(iRow, "AL").ValueIf .Cells(iRow, "AM") <> "" Then Print #1, .Cells(iRow, "AM").ValueIf .Cells(iRow, "AN") <> "" Then Print #1, .Cells(iRow, "AN").ValueIf .Cells(iRow, "AO") <> "" Then Print #1, .Cells(iRow, "AO").ValueIf .Cells(iRow, "AP") <> "" Then Print #1, .Cells(iRow, "AP").ValueIf .Cells(iRow, "AQ") <> "" Then Print #1, .Cells(iRow, "AQ").ValueIf .Cells(iRow, "AR") <> "" Then Print #1, .Cells(iRow, "AR").ValueIf .Cells(iRow, "AS") <> "" Then Print #1, .Cells(iRow, "AS").ValueIf .Cells(iRow, "AT") <> "" Then Print #1, .Cells(iRow, "AT").ValueIf .Cells(iRow, "AU") <> "" Then Print #1, .Cells(iRow, "AU").ValueIf .Cells(iRow, "AV") <> "" Then Print #1, .Cells(iRow, "AV").ValueIf .Cells(iRow, "AW") <> "" Then Print #1, .Cells(iRow, "AW").ValueIf .Cells(iRow, "AX") <> "" Then Print #1, .Cells(iRow, "AX").ValueIf .Cells(iRow, "AY") <> "" Then Print #1, .Cells(iRow, "AY").ValueClose #1Next iRowEnd WithEnd Sub Link to comment
TdeV 87 Posted February 15, 2015 Author Share Posted February 15, 2015 Does anyone know how I can mark this thread "answered"? Link to comment
Recommended Posts
Archived
This topic is now archived and is closed to further replies.