将Excel连接到Visio

作者: 天线宝宝
发布时间: 2025-01-21 07:34:06 (7天前)
转自：

2 条回复

0#
回复此人
1号 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <pre> <code> Dim xlWorkBookName As String xlWorkBookName = "WorkbookName.xlsm" Dim xlApp As Excel.Application Set xlApp = CreateObject("excel.application") Dim pathExcel As String pathExcel = Visio.ActiveDocument.Path & xlWorkBookName Dim XlWrkBook As Excel.Workbook Set XlWrkBook = xlApp.Workbooks.Open(FileName:=pathExcel) xlApp.Visible = True Dim XlWrkSheet As Excel.Worksheet Set XlWrkSheet = XlWrkBook.Sheets.Item("WorksheetName") XlWrkSheet.Activate </code> </pre> </DIV>

编辑

登录后才能参与评论