Calling CATScript from VBA

[VojtaR]

Hello everyone,

I am having trouble with my macro which should call CATScript. Can anyone help?

I am getting error on line "catScriptLibraryTypeDirectory"

Private Sub CB_format_BOM_Click()
  
    Dim param()
    Dim oFilePath, oFileName, oM As String
    oFilePath = sMainFolder & "\FORMAT BOM\"
    oFileName = "04_V5R28_BOM_creator-Format_table.CATScript"
    oM = "04_V5R28_BOM_creator-Format_table.CATScript"
    CATIA.SystemService.ExecuteScript(oFilePath & oFileName, catScriptLibraryTypeDirectory, oM, "CATMain", param)
    Exit Sub

End Sub

Thank you for any help.

 

[Little Cthulhu]

Does your code run from MS Office VBA?

 

[VojtaR]

No I run it from Catia

 

[Little Cthulhu]

Use

oFilePath

instead of

oFilePath & oFileName

 

[VojtaR]

It helped, was not quite there yet.... but with little tweaking, thic code below worked.

Thank you!!

Private Sub CB_format_BOM_Click()
    Unload UserFormStart
    Dim param()
    Dim oFilePath, oM As String
    oFP = sMainFolder & "\FORMAT BOM\"
    oM = "04_V5R28_BOM_creator-Format_table.CATScript"
    CATIA.SystemService.ExecuteScript oFilePath, INFITF.CatScriptLibraryType.catScriptLibraryTypeDirectory, oM, "CATMain", param
    Exit Sub
End Sub