06-07-2021
07:49 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-07-2021
07:49 AM
Hello
Try
'preamble in VBA
Dim ClientId As String
ClientId = "{3BDD8D79-2179-4B11-8A5A-257B1C0263AC}"
Dim iLogicAddIn As ApplicationAddIn
Set iLogicAddIn = ThisApplication.ApplicationAddIns.ItemById(ClientId)
Dim iLogicAuto As Object
Set iLogicAuto = iLogicAddIn.Automation
If (iLogicAuto Is Nothing) Then
Call MsgBox("Can not use iLogic")
Exit Sub
End If
'Works in iLogic
'''Dim iLogicAuto = iLogicVb.Automation
'''Dim ilogicPath As String() = {"C:\Vault\Testing\", "C:\Vault\Testing2\"}
'''iLogicAuto.FileOptions.ExternalRuleDirectories = ilogicPath
'Doesn't work in VBA
Dim ilogicPath() As String
ilogicPath() = Split("C:\Vault\Testing\,C:\Vault\Testing2\", ",")
iLogicAuto.FileOptions.ExternalRuleDirectories = ilogicPath
R. Krieg
RKW Solutions
www.rkw-solutions.com