'###CLASS FILE
ExecuteGlobal "Dim Reporter"
Set Reporter = New HtmlReporter
Class HtmlReporter
Public Sub Class_Initialize( )
print "started"
Systemutil.CloseProcessByName "iexplore.exe"
Systemutil.Run "iexplore.exe"
End Sub
'When Object is Set to Nothing
public Sub Class_Terminate( )
Systemutil.CloseProcessByName "iexplore.exe"
print "ended"
End Sub
End Class
'###ACTION
msgbox datatable.Value("Value")
'#DATATABLE
Value
1
2
3
ExecuteGlobal "Dim Reporter"
Set Reporter = New HtmlReporter
Class HtmlReporter
Public Sub Class_Initialize( )
print "started"
Systemutil.CloseProcessByName "iexplore.exe"
Systemutil.Run "iexplore.exe"
End Sub
'When Object is Set to Nothing
public Sub Class_Terminate( )
Systemutil.CloseProcessByName "iexplore.exe"
print "ended"
End Sub
End Class
'###ACTION
msgbox datatable.Value("Value")
'#DATATABLE
Value
1
2
3