用 (Excel) VBA 读取 OneNote！ - ToB企服应用市场:ToB评测及商务社交产业平台

'Add the following references (adjust to your office version):
'- Microsoft OneNote 12.0 Object Library
'- Microsoft OneNote 15.0 Object Library
'- Microsoft XML, v3.0
Sub ListOneNotePages()
'OneNote will be started, if it's not running.
Dim OneNote As OneNote.Application
Set OneNote = New OneNote.Application
'Get the XML that represents the OneNote pages
Dim oneNotePagesXml As String
'Use note hierarchy, to get all page id.
OneNote.GetHierarchy "", OneNote12.HierarchyScope.hsPages, oneNotePagesXml
'Use the MSXML Library to parse the XML.
Dim doc As MSXML2.DOMDocument
Set doc = New MSXML2.DOMDocument
If doc.LoadXML(oneNotePagesXml) Then
'Find all the Page nodes in the one namespace.
Dim nodes As MSXML2.IXMLDOMNodeList
Set nodes = doc.DocumentElement.SelectNodes("//one:Page")
Dim node As MSXML2.IXMLDOMNode
Dim pageName As String
Dim sectionName As String
Dim pageContent As String
Dim temp As String
'Go through each page, and print out page content
For Each node In nodes
pageName = node.Attributes.getNamedItem("name").Text
Debug.Print "Page name: "; vbCrLf & " " & pageName
Call OneNote.GetPageContent(GetAttributeValueFromNode(node, "ID"), pageContent, piBasic)
Debug.Print " content: " & pageContent
Next
Else
MsgBox "OneNote 2010 XML Data failed to load."
End If
End Sub
Private Function GetAttributeValueFromNode(node As MSXML2.IXMLDOMNode, attributeName As String) As String
If node.Attributes.getNamedItem(attributeName) Is Nothing Then
GetAttributeValueFromNode = "Not found."
Else
GetAttributeValueFromNode = node.Attributes.getNamedItem(attributeName).Text
End If
End Function

复制代码

# 输出页面结构信息
import win32com.client
oneapp = win32com.client.Dispatch('OneNote.Application.12')
result = oneapp.GetHierarchy("",4)
print(result)
## 输出所有页面的标题
import win32com.client
oneapp = win32com.client.Dispatch('OneNote.Application.12')
result = oneapp.GetHierarchy("",4)
from bs4 import BeautifulSoup
soup = BeautifulSoup(result, 'xml')
for tag in soup.find_all('one:Page'):
print(tag.attrs['name'])
# 试图输出任何一个页面的内容 (报错暂时无解)
# >>> Error occurred: (-2147023170, 'The remote procedure call failed)
import win32com.client
onapp = win32com.client.Dispatch('OneNote.Application.12')
result = onapp.GetHierarchy("",4)
print(result)
pageID = "任何上面输出过的PageID"
content = onapp.GetPageContent(pageID)
print(content)

复制代码