Udayreddy_90
14 years agoContributor
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.
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.