Forum Discussion

ArmandsBruns's avatar
ArmandsBruns
Frequent Contributor
12 years ago

Function (return arrays)

Hi, I try return arrays from the following function but I got an error: Unknown runtime error Error location: "Array_Test_Data(x) = (VarToString(MSExcel.Cells(i, j)))" -------...
ArmandsBruns's avatar
ArmandsBruns
Frequent Contributor
12 years ago
Hi Paul,



Thanks for your response.



Excel open and everything works very well till "Array_Test_Data(x) = (VarToString(MSExcel.Cells(i, j)))"



My test code:

'------------------------------------------------------------

Sun RunTest





  Dim MSExcel, Excel, Attr, Attr2


 


  Set Attr = Log.CreateNewAttributes


  Set Attr2 = Log.CreateNewAttributes


  Attr.Bold = True


  Attr2.Bold = True


  Attr2.FontColor=RGB(255, 0, 0)   


  


  Set MSExcel = CreateObject("Excel.Application")


  MSExcel.Visible = True


  


  If (Utilities.FileExists(Project.Variables.SourceTestData)) Then


    MSExcel.Workbooks.Open(Project.Variables.SourceTestData)


    Log.Message "Open -> '" &Project.Variables.SourceTestData &"',,,Attr


  Else


    Log.Error "Couldn't find -> '" &Project.Variables.SourceTestData &"'",,,Attr2


  End If


 


  MSExcel.Worksheets("User_Data").Activate



  Call Test_Data("7")





  data1 = Test_Data(0)        


  data2 = Test_Data(1)


  data3 = Test_Data(2)


  data4 = Test_Data(3)


  data5 = Test_Data(4)


  data6 = Test_Data(5)



End Sub




----------------------------------------------

Function Test_Data(column)


 


  Dim Array_Test_Data(5), MSExcel  


 


  Set MSExcel = CreateObject("Excel.Application")


  MSExcel.Visible = True  


    


  x=0


  For i = 2 To 7


    For j = column To column


      Array_Test_Data(x) = (VarToString(MSExcel.Cells(i, j)))


      x=x+1


    Next


  Next


  


  Test_Data = Array_Test_Data


 


End Function

-------------------------------------------------




Regards

Armands