Macro worked in Excel 2010, with SolidWorks 2009 API. I am running the macro again in O365 Excel 2016, SW 2017.
Set swApp = CreateObject("SldWorks.Application")
sFileName = Dir(sPath & "\*.*")
Do While sFileName <> ""
Set swModel = swApp.OpenDoc6(sPath & "\" & sFileName, nDocType, 3, "", nErrors, nWarnings)
swApp.QuitDoc (sPath & "\" & sFileName)
sFileName = Dir
The first SW file in the directory opens. The second attempt at OpenDoc6 fails with "The object invoked has disconnected from its clients". Continuing the script (F5/F8) results in "The remote server machine does not exist or is unavailable".
I've seen this posted in the past, but not with this configuration. Any and all help is appreciated.