Type Mismatch Error help understanding

  • Thread starter Thread starter Ray Batig
  • Start date Start date
R

Ray Batig

I am using code developed by others as an example. In have made no changes
to it so I presume it should work. Here it is:

Dim aszTextArray As Variant
Dim CurSlot As ICAPLib.Slot
Dim nNum As Long

Set CurSlot = Component.ResultAttributes

If Not CurSlot Is Nothing Then
aszTextArray = CurSlot.ValueAsArray
nNum = UBound(aszTextArray) < I get the error here . At this
point, aszTextArray is Empty and CurSlot =""


What is this error trying to tell me? Any ideas if the If statement is
wrong?

Thanks in advance for your help.

Ray
 
None of your code looks like it has anything to do with Excel. What is an
ICAPLib and a Component.ResultAttributes?

Where did you get the code from? What was the code supposed to do?
 
Hi Tom,

The code came from Aspen Icarus which is part of the Aspen Engineering
software suite. Icarus estimates the cost of projects in industrial
settings. ICAPLib is a library of equipment specific descriptors ie. Slots.
Component.ResultAttributes are the slot values linked to individual
equipment. I seem to think that there is something wrong with the If
statement since CurSlot was = "" and thus it should have skipped the Then
part.

Don't know if this helps or not, however, thanks for looking at it.

Ray
 
Dim aszTextArray As Variant
Dim CurSlot As ICAPLib.Slot
Dim nNum As Long

Set CurSlot = Component.ResultAttributes

If Not CurSlot Is Nothing Then
aszTextArray = CurSlot.ValueAsArray
nNum = UBound(aszTextArray) < I get the error here . At this
point, aszTextArray is Empty and CurSlot =""


Well you are getting type mismatch because CurSlot.ValueAsArray did not
return an array and aszTextArray therefore does not have an upperbound
(since it isn't an array).

if Component.ResutlAttributes should return an object (indicated by the fact
that you use set and typed curslot as ICAPLIB.Slot), then it should return
Nothing if there is no slot, rather than "". But I would expect an object
error on the set statement if it returned a null string.
 
Hi Tom,

Thanks for the insight. I have not solved the problem yet but will keep
trying.

Regards,
Ray
 
Hi Tom,

With your guidance and some digging I determined that I had opened the
Results, however, I had not loaded it. This did not provide any error
message. Once I loaded and opened the results everything worked. Thanks
again for your help and insight!

Regards,
Ray
 
Back
Top