Jump to content

Welcome to Geeks to Go - Register now for FREE

Need help with your computer or device? Want to learn new tech skills? You're in the right place!
Geeks to Go is a friendly community of tech experts who can solve any problem you have. Just create a free account and post your question. Our volunteers will reply quickly and guide you through the steps. Don't let tech troubles stop you. Join Geeks to Go now and get the support you need!

How it Works Create Account
Photo

excel macro help


  • Please log in to reply

#1
tceg

tceg

    Member

  • Member
  • PipPip
  • 17 posts
Hi,

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:

http://markstout.blo...in-windows.html

Hope this helps!
  • 0

Advertisements







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