Passing values to and from Excel

Question

All,
I am building a program to gather data from a force gauge via RS232. One of the requirements of the program is to have the user tell the program what sample they are on in case their samples are not in order. I also need to check my Excel sheet if that sample has already been tested. Some of my code in a module looks like this:
Function HasSampleBeenTested(dblSample As Double, strSG As String) As Boolean
' Finds out if the sample being tested has already been tested.
HasSampleBeenTested = False
Range("B14").Select
'First, find the Sample Group Number
Do Until ActiveCell.Value = ""
    If ActiveCell.Value = strSG Then
        ActiveCell.Offset(0, -1).Select
        Exit Do
    Else
        ActiveCell.Offset(1, 0).Select
    End If
Loop
' Next, find the actual sample
Do Until ActiveCell.Value = ""
    If ActiveCell.Value = strSample And ActiveCell.Offset(0, 1).Value = strSG Then
        HasSampleBeenTested = True
        Exit Do
    Else
        ActiveCell.Offset(1, 0).Select
    End If
Loop
End Function
I also have a diagram wired to this exact instance of Excel, but I'm not sure how to wire my type (boolean) and get the data out as a boolean via the Variant to Data VI.
Solved!
Go to Solution.
Attachments:
Diagram1.png ‏6 KB

Answer 1

There is no reason to actually have an Insert Into Array. The Build Array already gives you an array. The Excel Run Macro actually wants an array of variants, not an array of strings. The red coercion dot indicates that your array of strings is being converted to an array of variants. I'm not sure if the macro will actually received the Sample # correctly since you're converting it to a string. The safe bet would be to convert each value to a variant (using the To Variant function) and build an array from that to feed to the Excel Run Macro:
Attachments:
Example_VI_BD.png ‏2 KB