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
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