Visio 2003/2010页面列表到Excel

Question

有没有一种方法可以在Visio工作表中获取和导出多个页面名称？ 我不想导出页面中的对象，只想获取页面列表。

示例：文件Accounting_Layout.vsd包含以下页面：输入，输出，报告和未使用。

如何获取此列表并导出到Excel？

Answer 1

我不知道可以完成您想要的功能的内置功能，但是，如果您熟悉VBA宏，那么以下代码将满足您的需要

Sub Demo()
    Set Excel = CreateObject("excel.application")
    Excel.Visible = True

    Set Workbook = Excel.Workbooks.Add
    Set Sheet = Workbook.Worksheets("sheet1")

    Let numpages = ActiveDocument.Pages.Count
    For i = 1 To numpages
        Set CurPage = ActiveDocument.Pages(i)
        Sheet.Cells(i, 1) = CurPage.Name
    Next i
End Sub