Hello,
please, I need your help, I use Excel sheet as a GUI interface. I write a visual basic script to run an application . I run For loop on this application to make every iteration changing in some parameters in it and get the result and save the output of each iteration in a text file. But It is not complete running because an error ( system error &H 80010105 The server threw an exception) I not understand it and it is important for me to run the all program .
It is a part of the code:
For i = 17 To 167
For j = 0 To 2
TerminateProcessMatlab
ActivePart.ParamSet.CellID_Sector.Set (j)
ActivePart.ParamSet.CellID_Group.Set (i)
Cell_sector = j
Cell_ID = i
ID = 3 * Cell_ID + Cell_sector
CP = "Normal"
TxAntenna = 1
Slot = 0
NoOfBlocks = 6
Spacing = 15
MaxNumberOfBlocks = 110
CFI = 1
SetupPartParams WsDoc, MatlabDirectory, MatlabParamsFileName, Cell_sector, Cell_ID, ID, CP, TxAntenna, Slot, NoOfBlocks, Spacing, MaxNumberOfBlocks, CFI
DeleteDataSets WsDoc
MyAnalysis.ClearModelCache
MyAnalysis.RunAnalysis
ActiveDataSet = WsDoc.Designs.GetItemByName(DatasetName)
oGen.Menu.File.Save.Execute
Next
Next
Can any one help me?
Thanks,
Mohamed
please, I need your help, I use Excel sheet as a GUI interface. I write a visual basic script to run an application . I run For loop on this application to make every iteration changing in some parameters in it and get the result and save the output of each iteration in a text file. But It is not complete running because an error ( system error &H 80010105 The server threw an exception) I not understand it and it is important for me to run the all program .
It is a part of the code:
For i = 17 To 167
For j = 0 To 2
TerminateProcessMatlab
ActivePart.ParamSet.CellID_Sector.Set (j)
ActivePart.ParamSet.CellID_Group.Set (i)
Cell_sector = j
Cell_ID = i
ID = 3 * Cell_ID + Cell_sector
CP = "Normal"
TxAntenna = 1
Slot = 0
NoOfBlocks = 6
Spacing = 15
MaxNumberOfBlocks = 110
CFI = 1
SetupPartParams WsDoc, MatlabDirectory, MatlabParamsFileName, Cell_sector, Cell_ID, ID, CP, TxAntenna, Slot, NoOfBlocks, Spacing, MaxNumberOfBlocks, CFI
DeleteDataSets WsDoc
MyAnalysis.ClearModelCache
MyAnalysis.RunAnalysis
ActiveDataSet = WsDoc.Designs.GetItemByName(DatasetName)
oGen.Menu.File.Save.Execute
Next
Next
Can any one help me?
Thanks,
Mohamed