using excel to move my notes from Iphone, notesparks to galaxy 4 evernote


New member
May 31, 2013
Reaction score

I would like to move my iphone note program called note sparks to a
galaxy 4, program called evernote....

this is what they told me to
do....but frankly, my excel is 2003 and I am really clueless....

assist if possible.


Thank you for
contacting us.

In Excel, create the following Macro
(you will need to turn on the Developer tab - search Google for information on
how to do that):
Option Explicit
Sub testme01()
Dim iRow As
Close #1
With ActiveSheet
For iRow = 1 To .Cells(.Rows.Count,
Open "c:\my documents\excel\test\" & iRow & ".txt"
For Output As #1
Print #1, .Cells(iRow, "A").Value
Print #1, .Cells(iRow,
Close #1
Next iRow
End With
End Sub

Change the
filepath to a real one on your computer - best make it a new directory or you'll
have 3000 files sitting somewhere you don't want them to be.

If you want
all of the columns (or some of them) in a row to appear on the same line, you
can rewrite it to be like this:
Print #1, .Cells(iRow, "A").Value &
.Cells(iRow, "B").Value
If you have 20 columns, just keep adding another
"Print" line per Column letter, like:
Print #1, .Cells(iRow,
Print #1, .Cells(iRow, "D").Value
Print #1, .Cells(iRow,
Or, you can get fancy, if they all have the same header info
format, and make them html, like:
Close #1
With ActiveSheet
For iRow =
2 To .Cells(.Rows.Count, "A").End(xlUp).Row
Open "c:\my
documents\excel\test\" & iRow & ".html" For Output As #1
Print #1, "
Print #1, .Cells(iRow, "B").Value & "

Link : "
Print #1,
.Cells(iRow, "C").Value
Print #1, "

Print #1, .Cells(iRow,
Print #1, ""
Close #1
Next iRow
End With

(You'll need to alter this one based on your content - if you don't
have a Source URL, you wouldn't need to create a hyperlink, for

You can then go to Tools->Folder Import (Windows) to point
to the directory of the files (after they've been created) or you can simply
drag the folder of files (Mac) onto a Notebook Name in the left-hand Notebook
pane, and Evernote will pick them up to import them as individual

Here is a sample file that includes the Macro to help you get
started. Open "My Computer" on your desktop, click the "C" drive, and then
create a "New Folder" called "testfiles". Then, when you run the Macro, all the
files will be output to there.

More Advanced: You can also choose to
export an existing note to .enex format, and examine the format of the file,
then alter this macro to output individual .enex files. If you do that, you can
use the Evernote File->Import for Evernote files.