Saturday 29 August 2015

If data sheet is not available in datatable, add a sheet and then add data..

Datatable.AddSheet "venu1"
Datatable.AddSheet "venu2"
On error resume next
DataTable.GetSheet("venu3").SetCurrentRow 1
''if data sheet doesnt exist
If err.number<>0 and err.number= -2147220908 Then
    err.Clear
    Datatable.AddSheet "venu3"    
    DataTable.GetSheet("venu3").AddParameter "vix", ""    
    DataTable.GetSheet("venu3").SetCurrentRow 1
End If
DataTable(1,"venu3")="venu"
If err.number<>0 Then
    print err.description
End If
On error goto 0

No comments:

Post a Comment