Hoi allemaal
Ik heb je hulp weer nodig.
Ik wil een variabele ophalen uit een pdm-bestand (variabele met de naam "_Description" via een excel macro. Hier is mijn stukje code, ik krijg niets.
Ik denk dat de fout komt van het laden van de configuraties op het enumvar-niveau.
Bij fout Hervatten Volgende
Dim strWorkbookPath als snaar
strWorkbookPath = DitWerkboek.Volledige Naam
Dim oVault als nieuwe EdmVault5
oVault.LoginAuto oVault.GetVaultNameFromPath(strWorkbookPath), 0
Dim oFile als IEdmFile6
Dim oFolder als IEdmFolder6
Stel oFile in = oVault.GetFileFromPath(strWorkbookPath, oFolder)
Dim projName Als String
Als oFile dan niets is
MsgBox "Bestand niet in EPDM-kluis", vbCritical
Anders
Werkblad dimmen als werkblad
Werkblad = DitWerkboek.ActiveSheet
Dim oRef als IEdmReference5
Stel oRef in = oFile.GetReferenceTree(oFolder.ID, 0)
Dim msg als snaar
Dim pos als IEdmPos5
Stel pos in = oRef.GetFirstChildPosition(projName, True, True, 0)
Dim ref als IEdmReference5
Zon xx Als String
Rij dimmen als geheel getal
rij = 7
'Variabelen ophalen
Dim enumVar als IEdmEnumeratorVariable5
Dim oVal als variant
Dim bGetVar als Booleaanse
'Configuraties'
Dim cfgList als EdmStrLst5
Dim cfgName als tekenreeks
Dim pos2 als IEdmPos5
Terwijl niet pos. IsNull
Stel ref in = oRef.GetNextChild(pos)
"Configuratie
Stel cfgList in = ref. File.GetConfigurations
Stel pos2 in = cfgList.GetHeadPosition
cfgName = cfgList.GetNext(pos2)
'Variabelen'
Set enumVar = ref. File.GetEnumeratorVariable
"Herziening
enumVar.GetVar "_Révision", cfgName, oVal
ActiveSheet.Cells(rij, 4). Waarde2 = oVal
"Beschrijving
bGetVar = enumVar.GetVar("Beschrijving", cfgName, oVal)
ActiveSheet.Cells(rij, 6). Waarde2 = oVal
'Volgende lijn
rij = rij + 1
Gaan