Why, I open the program by automation in the pcdmis2015.1 , PCDMIS from online mode to offline mode, but can be opened and executed normally in 2014.1.
The code is as follows:
Private Sub Command1_Click()
Set DmisApp = CreateObject("PCDLRN.Application")
Set DmisParts = DmisApp.PartPrograms
Call DmisParts.Open("C:\Users\Public\Documents\WAI\PC-DMIS\2015.1\t3.PRG", CMM1)
Set Dmispart = DmisApp.ActivePartProgram
Set DmisCommands = Dmispart.Commands
CommandCount = DmisCommands.Count
Set DmisCommand = DmisCommands.Item(CommandCount)
DmisCommands.InsertionPointAfter DmisCommand
Dmispart.EXECUTE
End Sub
'' automatio' for pcdmis2015.1
