Problem Using "MonarchObj.OpenDatabase" in COM Automation
I am suddenly going blank remembering how to use the MonarchObj.OpenDatabase function in a VBA code using COM automation in Monarch. Below is an extract of the code from the Module in Excel. The source file is a Excel .xlsx file and the Tab (Table Name) is "HDR_META_NO". Could some provide help or sample code using this function. A little help will get me back on track...
Set MonarchObj = GetObject("", "Monarch32")
'
If MonarchObj Is Nothing Then
Set MonarchObj = GetObject("Monarch32")
End If
'
OpenFile = MonarchObj.OpenDatabase(FLDR & EDI_FILE, "", "HDR_META_NO")
'
If OpenFile = False Then
MsgBox "There are no Qualifying Files Remaining in the EDI Master Folder"
GoTo GoAway
Else
OpenMod = MonarchObj.SetModelfile(ModelFolder & "EDI_FINAL_LOAD.dmod")
MonarchObj.CurrentSummary = BSSUM4
EXPFILE = MonarchObj.JETEXPORTSUMMARY(SumFolder2 & SummaryFile2, BSSUM4, 2)
'
Many thanks.... Much appreciated
Al