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