Vba visio from excel

О подключении к данным в Visio

Функции подключения к данным доступны только для лицензированных пользователей Microsoft Visio профессиональный 2013.

Существует четыре аспекта подключения к данным в Visio:

Подключение к источнику данных

Связывание фигур с данными

Графическое представление связанных данных

Обновление связанных данных, измененных в источнике данных, обновление связанных фигур и разрешение последующих возможных конфликтов

Как правило реализация этих аспектов выполняется в перечисленном порядке. Это означает, что сначала вы подключаете документ Visio к источнику данных, затем связываете фигуры документа с данными в источнике, графически представляете данные в связанных фигурах и обновляете связанные данные при необходимости. С каждым из этих аспектов связаны новые объекты и элементы в объектной модели Visio. В этой статье рассматривается первый из этих аспектов: подключение документа Visio к источнику данных. Дополнительные сведения о других аспектах подключения к данным см. в следующих статьях:

Чтобы программно подключить документ Visio к источнику данных, можно использовать API Visio для подключений к данным, включающий следующие объекты и соответствующие элементы:

Коллекция DataRecordsets

Объект DataRecordset

Объект DataConnection

Коллекция DataColumns

Объект DataColumn

О наборах записей данных и подключениях к данным

В каждом объекте Document приложения Visio есть коллекция DataRecordsets. Она является пустой до подключения к источнику данных. Чтобы подключить документ Visio к источнику данных, нужно добавить объект DataRecordset в коллекцию DataRecordsets документа. В свою очередь объект DataRecordset содержит коллекцию DataColumns объектов DataColumn, каждый из которых сопоставлен с соответствующим столбцом (полем) в источнике данных.

Источники данных, к которым можно подключиться, включают электронные таблицы Excel, базы данных Access и SQL Server, списки SharePoint, а также другие источники данных OLEDB или ODBC, например база данных Oracle. Когда вы добавляете объект DataRecordset путем подключения к одному из этих источников данных, Visio выделяет подключение в объекте DataConnection, и считается, что объект DataRecordset подключен.

Вы также можете добавить объект DataRecordset с помощью XML-файла, соответствующего классической XML-схеме набора записей данных ADO Classic (ADO версии 2.x), в качестве источника данных. Полученный объект DataRecordset считается не подключенным. Соединение между источником данных и объектом DataRecordset выполняется только в одну сторону: из источника данных в документ Visio. Если данные в источнике изменяются, вы можете обновить данные в документе, чтобы отразить эти изменения. Однако вы не можете изменить данные в документе и передать их в источник данных.

Добавление объектов DataRecordset

Чтобы добавить объект DataRecordset в коллекцию DataRecordsets, можно использовать один из следующих трех методов в зависимости от источника данных, к которому нужно подключиться, и необходимости передачи методу строки подключения и строки команды запроса или сохраненного файла подключения к данным Office (ODC), содержащего сведения о подключении и запросе.

В следующем примере макроса Visual Basic для приложений (VBA) показано, как можно использовать метод Add для подключения документа Visio к данным на листе Excel, в этом случае в примере книги ORGDATA.XLS, входящей в комплект Visio:

Если запустить этот код в неанглоязычных сборках Visio, путь к файлу ORGDATA.XLS, представленный в виде «Samples1033ORGDATA.XLS», будет другим. Подставьте правильный путь для своей версии Visio в коде.

Метод Add возвращает объект DataRecordset и использует четыре параметра:

ConnectionIDOrString. Идентификатор существующего объекта DataConnection или строки подключения для указания нового подключения к источнику данных. Если передается идентификатор существующего объекта DataConnection, используемого в одном или нескольких других наборах записей данных, набор записей данных становится транзакционным набором записей группы. Все наборы записей данных в группе обновляются при каждой операции обновления данных. Вы можете определить соответствующую строку подключения, применив сначала мастер выбора данных в пользовательском интерфейсе Visio, чтобы создать такое же подключение, записав макрос во время работы мастера и скопировав строку подключения из кода макроса.

CommandString. Строка, указывающая таблицу базы данных или лист Excel и поля (столбцы) в таблице или листе, содержащие данные, которые нужно запросить. Командная строка также передается методу DataRecordset.Refresh при обновлении данных в наборе записей.

AddOptions. Сочетание одного или нескольких значений из перечисления VisDataRecordsetAddOptions. Эти значения определяют конкретные действия набора записей данных и позволяют, например, предотвратить появление запрошенных данных из набора записей в окне Внешние данные в пользовательском интерфейсе Visio или их обновление с помощью действий пользователя. После назначения этого значения его нельзя изменить, пока существует объект DataRecordset.

Name. Необязательная строка, присваивающая набору записей данных отображаемое имя. Если указать отображение данных из набора записей в окне Внешние данные в пользовательском интерфейсе Visio, передаваемое имя появляется на вкладке этого окна, соответствующей набору записей данных. В нашем примере отсутствует существующее подключение к данным, поэтому в качестве первого параметра метода Add передается strConnection — определенная нами строка подключения. Для второго параметра мы передаем strCommand, определяемую нами командную строку, которая позволяет Visio выбрать все столбцы на указанном листе. В качестве третьего параметра метода Add передается нуль, чтобы указать действие по умолчанию для набора записей данных, а в качестве последнего параметра передается значение Org Data — отображаемое имя, определенное для набора записей данных.

В следующем примере кода показано, как получить объект DataConnection, созданный при добавлении объекта DataRecordset в коллекцию DataRecordsets. Он печатает строку подключения, связанную с объектом DataConnection, в окне интерпретации, обращаясь к свойству ConnectionString объекта DataConnection.

Аналогично получению строки подключения, связанной с объектом DataConnection, путем обращения к свойству ConnectionString вы можете получить командную строку, связанную с объектом DataRecordset, обратившись к его свойству CommandString. Оба этих свойства можно назначать, поэтому вы можете в любой момент изменить источник данных, связанный с объектом DataRecordset, или запрос, связанный с объектом DataConnection, при этом изменения не отображаются в документе до обновления данных. Дополнительные сведения об обновлении данных см. в статье О связывании фигур с данными.

Программный доступ к данным в наборе записей данных

Когда вы импортируете данные, приложение Visio назначает целочисленные идентификаторы строк, начиная с 1, для каждой строки данных в итоговом наборе данных с учетом порядка строк в исходном источнике данных. В Visio идентификаторы строк данных используются для отслеживания строк, если они связаны с фигурами и если обновляются данные. Если нужно получить доступ к строкам данных программным способом, используйте эти идентификаторы строк данных. Сведения о том, как операции обновления данных влияют на порядок строк, см. в статье О связывании фигур с данными.

Используйте метод DataRecordset.GetDataRowIDs для получения массива идентификаторов всех строк в наборе данных, где каждая строка представляет одну запись данных. Метод GetDataRowIDs использует в качестве параметра строку условий, соответствующую руководствам, указанным в API объекта данных ActiveX (ADO) для настройки свойства ADO.Filter. Указав соответствующие условия и используя операторы AND и OR для разделения предложений, можно отфильтровать сведения в наборе записей данных, чтобы возвратить только определенные строки набора данных. Чтобы не применять фильтр (т. е. для получения всех строк), передайте пустую строку («»). Дополнительные сведения о строках условий см. в статье Свойство Filter в справочнике по API ADO 2.x. После получения идентификаторов строк данных можно использовать метод DataRecordset.GetRowData, чтобы получить все данные, хранящиеся в каждом столбце строки данных. Дополнительные сведения о столбцах данных см. в статье О связывании фигур с данными.

В следующем примере кода показано, как использовать методы GetDataRowIDs и GetRowData, чтобы возвратить идентификатор каждой строки и получить данные, хранящиеся в каждом столбце каждой строки переданного набора записей данных. В нем используются два вложенных цикла For…Next для итерации по всем строкам в наборе записей, а затем для итерации по всем столбцам для каждой строки. Код выводит сведения, возвращаемые в окне интерпретации. Обратите внимание, что вы передаете пустую строку методу GetDataRowIDs, чтобы пропустить фильтрацию и получить все строки из набора записей. После вызова процедуры обратите внимание, что первый показанный набор данных (соответствующий первой строке данных) содержит заголовки всех столбцов данных в наборе записей данных.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Name already in use

VBA-Docs / visio / Concepts / about-connecting-to-data-in-visio.md

• Go to file T
• Go to line L
• Copy path
• Copy permalink

Copy raw contents

Copy raw contents

About connecting to data in Visio

[!NOTE] Data-connectivity features are available only to licensed users of Microsoft Visio Professional 2013.

There are four aspects of data connectivity in Visio:

Connecting to a data source

Linking shapes to data

Displaying linked data graphically

Refreshing linked data that has changed in the data source, updating linked shapes, and resolving any subsequent conflicts that may arise

Typically, you approach these aspects in the order in which they are listed; that is, you first connect your Visio drawing to a data source, then link shapes in your drawing to data in the data source, display the data in linked shapes graphically, and refresh the linked data when necessary. Each of these aspects has new objects and members associated with it in the Visio object model. This topic deals with the first of these aspects, connecting your Visio drawing to a data source. For more information about the other aspects of data connectivity, see the following topics:

To connect your Visio drawing to a data source programmatically, you can use the Visio API for data connectivity, which includes the following objects and their associated members:

DataRecordsets collection

DataRecordset object

DataConnection object

DataColumns collection

DataColumn object

About Data Recordsets and Data Connections

Each Visio Document object has a DataRecordsets collection, which is empty until you make a connection to a data source. To connect a Visio document to a data source, you add a DataRecordset object to the DataRecordsets collection of the document. A DataRecordset object in turn has a DataColumns collection of DataColumn objects, each of which is mapped to a corresponding column (field) in the data source.

Data sources you can connect to include Excel spreadsheets, Access and SQL Server databases, SharePoint lists, and other OLEDB or ODBC data sources, such as an Oracle database. When you add a DataRecordset object by connecting to one of these data sources, Visio abstracts the connection in a DataConnection object, and the DataRecordset object is said to be connected.

You can also add a DataRecordset object by using an XML file that conforms to the ADO Classic (ADO version 2.x) Data Recordset XML schema as the data source. The resulting DataRecordset object is said to be connection-less. The connection between a data source and a DataRecordset object only goes one way—from the data source to the Visio drawing. If data in the source changes, you can refresh the data in the drawing to reflect those changes. You cannot, however, make changes in the data in the drawing and then push those changes back to the data source.

Adding DataRecordset objects

To add a DataRecordset object to the DataRecordsets collection, you can use one of the following three methods, depending on the data source you want to connect to and whether you want to pass the method a connection string and query command string or a saved Office Data Connection (ODC) file that contains the connection and query information:

The following Visual Basic for Applications (VBA) sample macro shows how you might use the Add method to connect a Visio drawing to data in an Excel worksheet, in this case, in the ORGDATA.XLS sample workbook that is included with Visio:

[!NOTE] If you run this code on non-English builds of Visio, the path to the file ORGDATA.XLS, shown here as «Samples1033ORGDATA.XLS,» will be different. Substitute the correct path for your version of Visio in your code.

The Add method returns a DataRecordset object and takes four parameters:

ConnectionIDOrString The ID of an existing DataConnection object or the connection string to specify a new data-source connection. If you pass the ID of an existing DataConnection object that is currently being used by one or more other data recordsets, the data recordsets become a transacted group recordset. All data recordsets in the group are refreshed whenever a data-refresh operation occurs. You can determine an appropriate connection string by first using the Data Selector Wizard in the Visio user interface (UI) to make the same connection, recording a macro while running the wizard, and then copying the connection string from the macro code.

CommandString The string that specifies the database table or Excel worksheet and specifies the fields (columns) within the table or worksheet that contain the data you want to query. The command string is also passed to the DataRecordset.Refresh method when the data in the recordset is refreshed.

AddOptions A combination of one or more values from the VisDataRecordsetAddOptions enumeration. These values specify certain data recordset behaviors, and make it possible, for example, to prevent the queried data in the recordset from appearing in the External Data window in the Visio UI or from being refreshed by user actions. Afteryou assign this value, you cannot change it for the duration of the DataRecordset object.

Name An optional string that gives the data recordset a display name. If you specify for data from the recordset to be displayed in the External Data window in the Visio UI, the name you pass appears on the tab of that window that corresponds to the data recordset. In our example, there is no existing data connection, so for the first parameter of the Add method, we pass strConnection, the connection string we defined. For the second parameter, we pass strCommand, the command string we defined, which directs Visio to select all columns from the worksheet we specified. For the third parameter of the Add method, we pass zero to specify default behavior of the data recordset, and for the last parameter, we pass Org Data, the display name we defined for the data recordset.

The following sample code shows how to get the DataConnection object that was created when we added a DataRecordset object to the DataRecordsets collection. It prints the connection string associated with the DataConnection object in the Immediate window by accessing the ConnectionString property of the DataConnection object.

Just as you can get the connection string associated with a DataConnection object by accessing its ConnectionString property, you can get the command string associated with a DataRecordset object by accessing its CommandString property. Both of these properties are assignable, so you can change the data source associated with a DataRecordset object or the query associated with a DataConnection object at any time, although changes are not reflected in your drawing until you refresh the data. For more information about refreshing data, see About Linking Shapes to Data.

Accessing data in Data Recordsets programmatically

When you import data, Visio assigns integer row IDs, starting with the number 1, to each data row in the resulting data recordset, based upon the order of rows in the original data source. Visio uses data row IDs to track the rows when they are linked to shapes and when data is refreshed. If you want to access data rows programmatically, you must use these data row IDs. For information about how data-refresh operations affect row order, see About Linking Shapes to Data.

Use the DataRecordset.GetDataRowIDs method to get an array of the IDs of all the rows in a data recordset, where each row represents a single data record. The GetDataRowIDs method takes as its parameter a criteria string, which is a string that conforms to the guidelines specified in the ActiveX Data Object (ADO) API for setting the ADO.Filter property. By specifying appropriate criteria and using AND and OR operators to separate clauses, you can filter the information in the data recordset to return only certain data recordset rows selectively. To apply no filter (that is, to get all the rows), pass an empty string («»). For more information about criteria strings, see the Filter Property topic in the ADO 2.x API Reference. After you retrieve the data-row IDs, you can use the DataRecordset.GetRowData method to get all the data stored in each column in the data row. For more information about data columns, see About Linking Shapes to Data.

The following sample code shows how to use the GetDataRowIDs and GetRowData methods to return the row ID of each row and then get the data stored in each column in every row of the data recordset passed in. It uses two nested For…Next loops to iterate through all the rows in the recordset and then, for each row, iterate through all the columns in that row. The code displays the information returned in the Immediate window. Note that you pass an empty string to the GetDataRowIDs method to bypass filtering and get all the rows in the recordset. After you call the procedure, note that the first set of data shown (corresponding to the first data row) contains the headings for all the data columns in the data recordset.

Источник

I work a lot with layers in Visio, and written an add-in, LayerManager, to assist, but I was asked an interesting question recently: How can shapes by assigned to layers automatically from a list in Excel? So, I thought I would present my solution. This particular request was for a Timeline diagram, where the Milestone shapes are to be on specific layers. So, I just used one of the samples provided with Visio.

The first part of solution is to get a list in Excel which can be used to identify the shapes, and to add a column with the desired layer name for each shape, if such a column does not exist already.

Fortunately, the Shape Reports feature in Visio can export a list of shapes to Excel. This tool can export many shape properties and any of the Shape Data that are on the shapes too.

If the report is exported to Excel, it will contain a top row with the title, then the second row contains the column headers, with all of the data below it. Fortunately, Power Query has great abilities, including promoting row values to become the column headers, and transforming text into dates. I decided to add a MonthName column to use as the names of layers in Visio.

So, I now have a table in Excel which has a column with the ID of each shape, and another column that I want to be the name of a layer that the shape needs to be assigned to.

Now I needed a VBA macro to read the active Excel table, and assign the layer to each shape in the active Visio page.

I normally but VBA code in stencils so they can be re-usable with any document. The following code also requires that the Microsoft Excel Object library.

The VBA code is offered below with minimal error trapping:

Option Explicit

Public Sub AssignLayersFromTable()
Dim title As String
title = "AssignLayersFromTable"
On Error GoTo errHandler
Dim excelApp As Excel.Application
Dim sourceWrkbk As Excel.Workbook
Dim sourceWrksht As Excel.Worksheet
Dim sourceTable As Excel.ListObject

Set excelApp = GetExcelApp()
If excelApp Is Nothing Then
    GoTo exitHere
End If
    Set sourceWrkbk = excelApp.ActiveWorkbook
If sourceWrkbk Is Nothing Then
    GoTo exitHere
End If
    Set sourceWrksht = excelApp.ActiveSheet
If sourceWrksht Is Nothing Then
    GoTo exitHere
End If
    Debug.Print sourceWrksht.Name

    If sourceWrksht.ListObjects.Count > 0 Then
        Set sourceTable = sourceWrksht.ListObjects.Item(1)
    End If

Dim listCol As ListColumn
Dim listRow As listRow
Dim msg As String

    If Not sourceTable Is Nothing Then
        Debug.Print sourceTable.Name
        msg = ""
        For Each listCol In sourceTable.ListColumns
            msg = msg & vbCrLf & listCol.Index & vbTab & listCol.Name
            Debug.Print listCol.Index, listCol.Name
            
        Next

Dim retValue As Variant
Dim colShape As Integer
Dim colLayer As Integer

        retValue = InputBox(msg, "Enter the number of the shape ID column")
        If Not IsNumeric(retValue) Then
            MsgBox "Sorry, that was not a number", vbExclamation, title
            GoTo exitHere
        End If
        colShape = CInt(retValue)
        If colShape < 1 Or colShape > sourceTable.ListColumns.Count Then
            MsgBox "Sorry, the number must be in the range", vbExclamation, title
            GoTo exitHere
        End If
        
        retValue = InputBox(msg, "Enter the number of the layer name column")
        If Not IsNumeric(retValue) Then
            MsgBox "Sorry, that was not a number", vbExclamation, title
            GoTo exitHere
        End If
        colLayer = CInt(retValue)
        If colLayer < 1 Or colLayer > sourceTable.ListColumns.Count Then
            MsgBox "Sorry, the number must be in the range", vbExclamation, title
            GoTo exitHere
        End If

Dim shp As Visio.Shape
Dim iLyr As Integer
Dim lyr As Visio.Layer

        For Each listRow In sourceTable.ListRows
            Set shp = ActivePage.Shapes.ItemFromID(listRow.Range(1, colShape))
            If Not LayerExists(ActivePage, listRow.Range(1, colLayer).Value) Then
                ActivePage.Layers.Add listRow.Range(1, colLayer).Value
            End If
            'Remove all assigned layers
            For i = shp.LayerCount To 1 Step -1
                Set lyr = shp.Layer(i)
                lyr.Remove shp, 0
            Next

            Set lyr = ActivePage.Layers(listRow.Range(1, colLayer).Value)
            'Assign to the desired layer
            lyr.Add shp, 0
        Next
        
    End If
    
exitHere:
    Set sourceTable = Nothing
    Set sourceWrksht = Nothing
    Set sourceWrkbk = Nothing
    Set excelApp = Nothing
    
    Exit Sub
errHandler:
    MsgBox Err.Description, vbCritical, "AssignLayersFromTable"
    Resume exitHere
End Sub

Private Function IsOnLayer(ByVal shp As Visio.Shape, ByVal lyrName As String)

End Function


Private Function LayerExists(ByVal pag As Visio.Page, lyrName As String) As Boolean
Dim lyr As Visio.Layer
    For Each lyr In pag.Layers
        If lyr.Name = lyrName Or lyr.NameU = lyrName Then
            LayerExists = True
        End If
    Next
    LayerExists = False
    
End Function


Private Function GetExcelApp() As Excel.Application
On Error Resume Next

Set GetExcelApp = GetObject(, "Excel.Application")

End Function

I hope this helps….