Jump to content

PLitv001

Level 1
  • Content Count

    1
  • Joined

  • Last visited

Community Reputation

0 Neutral

About PLitv001

  1. Hello, I emailed Evernote Support and with their method all my information is in the body of the new notes. I can't specify tags, created date or title. I would really appreciate it if anyone has any insight. They sent me the following: "Advanced" method for CSV Importing This script is provided as-is, with no additional support. Feel free to login and post to the Evernote Forum at http://forum.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, "<html> <head> " Print #1, .Cells(iRow, "B").Value & "<br /><br />Link : <a href=""" Print #1, .Cells(iRow, "D").Value Print #1, """>" Print #1, .Cells(iRow, "C").Value Print #1, " </a> <br/> <br /> <br /> " 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. 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.blogspot.com/2009/08/scripting-evernote-in-windows.html Hope this helps! Big Thanks, Pavel
×
×
  • Create New...