2 Replies Latest reply on Oct 8, 2013 2:56 AM by Amai Zeg

    GetVersionVars, using Excel (VBA) problem

    Amai Zeg



      I'm trying to load variables of datacards in Excel, in order to print them (some kind of history of checks and approvals of a file).

      First I was using GetVar, which is working, but is not the most convenient way to load variables of older versions of a file I guess.


      Now I'm trying with GetVersionVars, see my code below. I'm not sure what to do with 'RetVariables' in order to get the script working.

      Compile error: Type mismatch: array or user-defined type expected. I tried to dim 'RetVariables' as array, but Í don't know what the

      size must be.


      Is it also possible to get a certain variable, like 'author', or should I search afterwards for this variable?


      Also, I'm not sure how to get the folderID.


      I hope someone can help me with this. I'm not sure if what I want is possible with Excel.


      Sub main()
          Dim objVault As IEdmVault8
          Dim VaultName As String
          VaultName = Worksheets("Settings").Range("C2").Text
          Set objVault = New EdmVault5
          objVault.LoginAuto VaultName, 0

          Dim FileName As String
          ChDrive objVault.RootFolderPath
          ChDir objVault.RootFolderPath
          FileName = Application.GetOpenFilename("All Files (*.*),*.*")

          If FileName = "False" Then
              Exit Sub
          End If
          Dim objFile As IEdmFile8
          Dim objFolder As IEdmFolder5
          Set objFile = objVault.GetFileFromPath(FileName, objFolder)
          Dim varComponentEnum As IEdmEnumeratorVariable7
          Set varComponentEnum = objFile.GetEnumeratorVariable


          Dim Version As Integer
          'Dim FolderID As Integer
          Dim RetVariables As IEdmVariableValue6
          Dim RetConfigs As String
          Dim RetData As EdmGetVarData
          Version = 0
          Dim FolderID As Long
          FolderID = objFolder.GetCardID(".")


         varComponentEnum.GetVersionVars Version, FolderID, RetVariables, RetConfigs, RetData


      End Sub