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