OneNoteをVBAでいじる - NoteBookのIDを取得

下記のコードを、標準モジュールに貼り付けてください。
イミディエイトウィンドウで
? GetNoteBookID("あなたのノートブックの名前") [Return]
で、IDが取得できます。

Public Function GetNoteBookID(ByVal name As String) As String
    Dim oneNote As oneNote.Application2
    Dim nodes As MSXML2.IXMLDOMNodeList
    Dim node As MSXML2.IXMLDOMNode
    Dim oneNotebooks As String
    Dim doc As Object
    
    Set oneNote = New oneNote.Application2
    oneNote.GetHierarchy "", hsNotebooks, oneNotebooks, xsCurrent
    Set doc = CreateObject("Msxml2.DOMDocument")
    Call doc.loadXML(oneNotebooks)
    Set nodes = doc.DocumentElement.SelectNodes("//one:Notebook")
    For Each node In nodes
        If node.Attributes.getNamedItem("name").Text = name Then
            GetNoteBookID = node.Attributes.getNamedItem("ID").Text
            Exit Function
        End If
    Next
End Function