文件名称：visio文件页码索引功能
文件大小：1KB
文件格式：TXT
更新时间：2022-08-28 11:50:50
visio
Private Sub CommandButton1_Click() Dim exlname As String Dim tagname As String Dim tagtest As String Dim ybwh As String Dim vsoPage As Visio.Page Dim ExcelSheet As Object Dim vsoShape As Visio.Shape Dim vsoCell As Visio.Cell Dim totalshapes As Integer Dim totalpage As Integer Dim exlrow As Integer Dim compos As Integer exlname = "" tagname = "" exlrow = 2 ybwh = 0 Set ExcelSheet = CreateObject("Excel.Sheet") ExcelSheet.Application.Visible = True exlname = "c:\" + ThisDocument.Name + ".xls" Excel