excel - 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