Forum Discussion

Udayreddy_90's avatar
Udayreddy_90
Contributor
14 years ago

DDT.ExcelDriver get cell data( string value )

Sub Test

   Set objSheetOne = DDT.ExcelDriver("C:\Documents and Settings\uday.vangala\Desktop\MYfilesTwo.xls", "Sheet1")

 

   msgbox objSheetOne.ColumnCount

 

         

   While Not objSheetOne.EOF()

      var1= objSheetOne.Value(0)

      msgbox var1

        var1= objSheetOne.Value(1)

      msgbox var1

       var1= aqConvert.VarToStr( objSheetOne.Value(2))  ' For second iteration it is throws an error ( may be because cell data in that    is string)

      msgbox var1                                                                    ' How to solve this.

       

         objSheetOne.Next    

     

  WEnd

   DDT.CloseDriver(DDT.CurrentDriver.Name)    

End Sub







For second iteration it is throws an error ( may be because cell data in that    is string). How to solve this.

3 Replies