Office関連

Evernote Cloud SDKを使って特定の文字列が含まれるノートを検索するVBAマクロ

前回の記事で、VBAからEvernote Cloud SDKを使ってノートブック名を列挙するマクロを紹介しましたが、今回は指定した文字列が含まれるノートを検索するマクロを紹介します。

SDKのインストールやDeveloper Tokenの取得方法は下記記事をご参照ください。

※ 下記コード中の「Developer Token」と「NoteStore URL」はそれぞれ自分で取得したものに置き換えてください。

Option Explicit

Public Sub Sample()
  Dim en As Object 'EvernoteSDK.ENSessionForCOM
  Dim enSearch As Object 'EvernoteSDK.ENNoteSearchForCOM
  Dim enNotesList As Object 'EvernoteSDK.ENCollection
  Dim enRef As Object 'EvernoteSDK.ENNoteRef
  Dim enNote As Object 'EvernoteSDK.EdamNote
  Dim txtFind As String
  Dim txtContent As String
  Dim i As Long
  
  Const SearchScope_All = 7 'EvernoteSDK.SearchScope.SearchScope_All
  Const SortOrder_RecentlyUpdated = 4 'EvernoteSDK.SortOrder.SortOrder_RecentlyUpdated
  
  Const DeveloperToken As String = "(Developer Token)"
  Const NoteStoreUrl As String = "(NoteStore URL)"
  Const MaxResults As Long = 100 '結果の最大件数
  
  txtFind = "セキュリティ" '検索する文字列
  
  Set en = CreateObject("EvernoteSDK.ENSessionForCOM")
  With en
    .SetSharedSessionDeveloperToken DeveloperToken, NoteStoreUrl
    If .sharedSession.IsAuthenticated = False Then Exit Sub
    
    Set enSearch = CreateObject("EvernoteSDK.ENNoteSearchForCOM")
    Set enNotesList = .sharedSession.FindNotesForCOM( _
                        enSearch.NoteSearch(txtFind), _
                        Nothing, _
                        SearchScope_All, _
                        SortOrder_RecentlyUpdated, _
                        MaxResults)
    If enNotesList.Count > 0 Then
      With ActiveSheet
        .Cells(1, 1).Value = "Note Title"
        .Cells(1, 2).Value = "Notebook"
        .Cells(1, 3).Value = "Date Created"
        .Cells(1, 4).Value = "Date Updated"
        .Cells(1, 5).Value = "TextContent"
        .Rows(1).Font.Bold = True
        For i = 1 To enNotesList.Count
          Set enRef = enNotesList(i).NoteRef
          Set enNote = en.sharedSession.DownloadNote(enRef)
          txtContent = enNote.TextContent
          If Len(txtContent) >= 100 Then txtContent = Left(txtContent, 100) '長い本文は一部のみ表示
          .Cells(i + 1, 1).Value = enNotesList(i).Title
          .Cells(i + 1, 2).Value = enNotesList(i).Notebook.Name
          .Cells(i + 1, 3).Value = enNotesList(i).Created
          .Cells(i + 1, 4).Value = enNotesList(i).Updated
          .Cells(i + 1, 5).Value = txtContent
        Next
      End With
    End If
  End With
  
  MsgBox "処理が終了しました。", vbInformation + vbSystemModal
End Sub

上記マクロを実行すると、選択中のシートにノート名やノートブックのタイトル、本文の一部等が出力されます(途中SDKの仕様により、確認用のメッセージボックスが表示されます)。

上記マクロはGitHubにあったサンプルコードを元にしていますが、サンプルは動かないので当てにならないです。

前回の記事でも書いた通り、オブジェクト ブラウザでメンバー表示もされないので、ガチで手探り状態、正直上記処理に至るまで試行錯誤の連続でした。

検索しても大した情報もヒットしないため、一番参考になるのはSDKのソースコードという、なかなかの苦行っぷりを発揮するEvernote Cloud SDK(COM)の処理ですが、どなたかの参考でなれば幸いです。
(コレ、ひょっとしたら自分でAPI呼んだ方が手っ取り早いのでは?と、思わなくもないです)

Evernote Cloud SDKを使ったVBAマクロ前のページ

MicrosoftのDictateアドインを試してみました。次のページ

関連記事

  1. Office関連

    [PowerPoint]図やスライドをSVGとして保存する機能が追加されました。

    ※ 下記情報はInsider版のOfficeを元にしています。バージョ…

  2. Office関連

    Outlookの連絡先をvcf形式で一括保存する方法

    Outlookの連絡先をvcf形式で保存する場合、通常は「連絡先を v…

  3. Office関連

    選択範囲内で文字列検索を行うWordマクロ

    今日は選択範囲内で文字列検索を行うWordマクロについて考えてみます。…

  4. Office関連

    各スライドに配置されたオートシェイプからテキストを取得するPowerPointマクロ

    各スライドに配置されたオートシェイプからテキストを抜き出す処理を考えて…

  5. Office関連

    Excel 2013 新関数一覧

    「関数一覧(Excel 2010)」と「関数一覧(Excel 2013…

  6. Excel

    [Office]スケッチ機能で図形の線を手書き風に!

    ※ 下記情報はInsider版のOfficeを元にしています。バージョ…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP