将OneNote中多个页面和节的内容导出到Excel中。

1. 首先需要在计算机中安装OneNote和Excel应用程序。
2. 在Excel中打开Visual Basic Editor，创建一个新的模块。
3. 在模块中编写以下代码：

Sub CopyOneNoteToExcel()

Dim onenoteApp As OneNote.Application
Set onenoteApp = New OneNote.Application

Dim notebook As OneNote.Notebook
Dim section As OneNote.Section
Dim page As OneNote.Page

Dim rowNumber As Integer
rowNumber = 1

'选择OneNote笔记本
onenoteApp.GetHierarchy ,HierarchyScope.hsPages, notebook

'循环遍历笔记本中的节和页面，并将它们的内容复制到Excel表中
For Each section In notebook.Sections
    For Each page In section.Pages
        '将页面的标题赋值给Excel单元格
        Range("A" & rowNumber).Value = page.Title
        Range("B" & rowNumber).Value = page.DateLastModified
        
        '将页面的内容赋值给Excel单元格
        Range("C" & rowNumber).Value = page.Content
        rowNumber = rowNumber + 1
    Next
Next

'关闭OneNote应用程序
onenoteApp.Quit

End Sub

4. 在Excel中按下Alt + F8，选择CopyOneNoteToExcel宏并运行。
5. 在Excel表中会自动列出OneNote笔记本中所有页面的标题、最后修改时间和内容。

注意事项：

1. 在代码中需要将OneNote应用程序的引用添加到项目中。
2. 在Excel表中确保有足够的空白单元格来容纳从OneNote中复制的内容。