Visio 2003/2010页面列表到Excel

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

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

我如何获得这个列表并导出到Excel？

Answer 1

我不知道一个内置的function可以完成你想要的function，但是如果你对VBAmacros感到满意，那么下面的代码就可以完成你所需要的function

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