<SCRIPT language=VBScript>
 
Dim Ie,Excel
 
' **********************************************************
' InternetExplorer
' **********************************************************
Class IeClass
 
	Public App
 
	' ******************************************************
	' 開始
	' ******************************************************
	Public Default function Start()
 
		if not IsObject( App ) then
			Set App = CreateObject("InternetExplorer.Application")
			App.Visible = True
		end if
 
	end function
 
	' ******************************************************
	' 終了
	' ******************************************************
	function Quit()
 
		if IsObject( App ) then
			App.Quit
			Set App = Nothing
			App = Empty
		end if
 
	end function
 
	' ******************************************************
	' ロード
	' ******************************************************
	function Load( strTarget )
 
		if IsObject( App ) then
			App.Navigate( strTarget )
		end if
 
	end function
 
end class
 
' **********************************************************
' Excel
' **********************************************************
Class ExcelClass
 
	Public App,Workbook
 
	' ******************************************************
	' 開始
	' ******************************************************
	Public Default function Start()
 
		if not IsObject( App ) then
			Set App = CreateObject("Excel.Application")
			App.Visible = True
		end if
 
	end function
 
	' ******************************************************
	' 終了
	' ******************************************************
	function Quit()
 
		if IsObject( App ) then
			App.Quit
			Set App = Nothing
			App = Empty
		end if
 
	end function
 
	' ******************************************************
	' ロード
	' ******************************************************
	function Load( strTarget )
 
		if IsObject( App ) then
			Set Workbook = App.Workbooks.Open( strTarget )
		end if
 
	end function
 
end class
 
Set Ie	= new IeClass
Set Excel	= new ExcelClass
 
</SCRIPT>
 
<TABLE border=1 cellpadding=5>
<TH>&nbsp;</TH><TH>InternetExplorer.Application</TH>
<TH>Excel.Application</TH>
 
<TR>
	<TD>始動</TD>
	<TD>
	<INPUT type=button value="実行" onClick='Call Ie()'>
	</TD>
 
	<TD>
	<INPUT type=button value="実行" onClick='Call Excel()'>
	</TD>
</TR>
 
<TR>
	<TD>終了</TD>
	<TD>
	<INPUT type=button value="実行" onClick='Call Ie.Quit()'>
	</TD>
 
	<TD>
	<INPUT type=button value="実行" onClick='Call Excel.Quit()'>
	</TD>
</TR>
 
<TR>
	<TD>ロード</TD>
	<TD>
	<INPUT type=button value="実行" onClick='Call Ie.Load("http://hp.vector.co.jp/authors/VA003334/")'>
	</TD>
 
	<TD>
	<INPUT type=button value="実行" onClick='Call Excel.Load("D:\winofsql\Book1.xls")'>
	</TD>
</TR>
 
</TABLE>