I'm trying to pass a a string array to a function, as well as return string arrays from functions to the main function. I'm having a heck of a time making it work. I was messing with examples/stuff I found online and I would've posted my code but apparently it didn't save even though the file system said it saved.
Any help/compilable examples would be appreciated. Thanks.
EDIT: wrote something that's kind of like what I had before.
Dim swApp As Object Sub main() Set swApp = Application.SldWorks Dim myArray(4) As Variant Dim myArray2(4) As Variant myArray(0) = (1) myArray(1) = (2) myArray(2) = (3) myArray(3) = (4) For i = 0 To 3 Debug.Print myArray(i) Next i 'Dim myArray2(4) As Variant getStats myArray2 = getStats(myArray) 'error can't pass to array 'Pass myArray array to GetStats. Assign getStats array (11,12,13,14) to myArray array. 'myArray2 = getStats(myArray) For i = 0 To 3 Debug.Print "myArray2("; i; ") is:"; myArray2(i) Next i Debug.Print "" End Sub
Function getStats() As Variant Dim myArrayVals(4) As String myArrayVals(0) = 11 myArrayVals(1) = 12 myArrayVals(2) = 13 myArrayVals(3) = 14 For i = 0 To 3 Debug.Print "myArrayVals("; i; ") is: "; myArrayVals(i) Next i getStats = myArrayVals End Function
Trying to at least define and pass an array from getStats. At most, pass myArray to getStats, manipulate it there, and then pass the resulting array back to Main.