ok, I did a quick look and came up with this NotebookTag.scpt
edit: added a filter for duplicate entries
global openFile global DataList set DataList to {}
set targetFile to (path to desktop as text) & "temp.csv" set openFile to open for access file targetFile with write permission WriteCSV("Notebook", "Tag")
tell application "Evernote"
set allNotebooks to every notebook
repeat with theNotebook in allNotebooks << Loop through notebooks
set theNotebookName to (the name of theNotebook)
set allNotes to every note in notebook theNotebookName
repeat with theNote in allNotes << Loop through notes in the notebook set theTags to tags of theNote
repeat with theTag in theTags << Loop through the tags in the note set theTagName to name of theTag my WriteCSV(theNotebookName, theTagName)
end repeat
end repeat
end repeat end tell
close access openFile
on WriteCSV(theNotebookName, theTagName)
set theData to theNotebookName & ", " & theTagName & return
if theData is not in DataList then
write theData to openFile starting at eof as text
copy theData to end of DataList
end if end WriteCSV