Hello Bentley community:
I’m new to Microstation programming. I had a run-time error with Microstation: “Run-time error ‘2147417856 (80010100)’: Automation error System call failed”. This error happened when Microstation was controlled by Excel within an iterative cycle. The VBA Code worked well during the first 37 iterations and on the 37th iteration this window appeared:
Before this, it is worth to mention that I had another run-time error: “Run time error ‘462’: The remote server machine does not exist or is unavailable”, even when a Microstation session was opened. Fortunately, I could fix the error 462 by changing a little my VBA code like this:
Sub MacroToSaveDGNFile()
Dim myMSAppCon As MicroStationDGN.ApplicationObjectConnector
Dim myMSApp As MicroStationDGN.Application
Set myMSAppCon = GetObject(, "MicroStationDGN.ApplicationObjectConnector")
Set myMSApp = myMSAppCon.Application
myMSAppCon.Application.CadInputQueue.SendCommand ("SAVE AS V8 C:\Users\Wero\Documents\....\MyFile.dgn")
myMSAppCon.Application.CommandState.StartDefaultCommand
Set myMSApp = Nothing
Set myMSAppCon = Nothing
End Sub
The last code worked well and I have not had that issue (error 462) anymore. However, for the first error (2147417856 (80010100)), I have reviewed some information on the web but nothing related to Microstation. The information I found is only related to Microsoft Office products such as Excel and Access and Outlook. (http://www.yqcomputer.com/84_36410_1.htm). I’m using the AECOsim Extension for GenerativeComponents version 08.11.08.296 and Microsoft Excel 2016
Is there anything I can do to fix my problem programmatically?, and if so, how? any hint?
Many thanks in advance,
Hector