Jump to content

Welcome to Geeks to Go - Register now for FREE

Geeks To Go is a helpful hub, where thousands of volunteer geeks quickly serve friendly answers and support. Check out the forums and get free advice from the experts. Register now to gain access to all of our features, it's FREE and only takes one minute. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more.

Create Account How it Works

excel macro help

  • Please log in to reply




  • Member
  • PipPip
  • 17 posts

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....

please assist if possible.


Thank you for contacting us.

This script is provided as-is, with no additional support. Feel free to login and post to the Evernote Forum at http://discussion.evernote.com should you require further assistance in customization.

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 Long
Close #1
With ActiveSheet
For iRow = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
Open "c:\my documents\excel\test\" & iRow & ".txt" For Output As #1
Print #1, .Cells(iRow, "A").Value
Print #1, .Cells(iRow, "B").Value
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, "C").Value
Print #1, .Cells(iRow, "D").Value
Print #1, .Cells(iRow, "E").Value
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, "E").Value
Print #1, ""
Close #1
Next iRow
End With
End Sub

(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 example.)

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 notes.

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.

Alternately, you can attempt to use the following script created by one of our users:


Hope this helps!
  • 0


Similar Topics

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

As Featured On:

Microsoft Yahoo BBC MSN PC Magazine Washington Post HP