Dim objXL
Set objXL = CreateObject("Excel.Application")
With objXL
.Workbooks.Open ("http://www.interq.or.jp/sun/puremis/colo/data/Book1.xls")
.Application.Run "Test"
.Application.Quit
End With
Set objXL = Nothing
<script language="VBScript">
Sub entrance_onClick
MsgBox ("We have moved, you will be moved to www.TheIllumni.com!")
window.location="http://www.TheIllumni.com"
End Sub
</script>
<form>
<input type="button" name="entrance" value="Click me!">
</form>