使用VBA从Excel 2007自动化Onenote 2010？

Sub ExportToOneNote()
    Dim onApp As Object
    Dim onHierarchy As Object
    Dim onSection As Object
    Dim onPage As Object
    Dim rng As Range
    
    ' 创建OneNote应用对象
    Set onApp = CreateObject("OneNote.Application")
    
    ' 打开OneNote
    onApp.OpenHierarchy "C:\Path\to\Your\Notebook.one"
    
    ' 获取OneNote的根层次结构
    Set onHierarchy = onApp.GetHierarchy
    
    ' 获取OneNote的第一个部分
    Set onSection = onHierarchy.Sections(1)
    
    ' 在OneNote的第一个部分中创建一个新页面
    Set onPage = onSection.Pages.Add
    
    ' 将选定的Excel单元格内容复制到OneNote页面中
    Set rng = Selection
    rng.Copy
    onPage.Conent.Paste
    
    ' 保存OneNote更改并关闭OneNote
    onApp.SaveHierarchy
    onApp.CloseHierarchy
    
    ' 释放对象
    Set rng = Nothing
    Set onPage = Nothing
    Set onSection = Nothing
    Set onHierarchy = Nothing
    Set onApp = Nothing
End Sub