求一VBS脚本的详细注释

<p>
<INPUT type="button" value="Button" id=button1 name=button1 onclick="vbs:AutomateExcel">
</p>
</BODY>
</HTML>
<SCRIPT LANGUAGE=vbs>

sub AutomateExcel()

strCopy = mybody.innerHTML

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit

set oXL = createobject("Excel.Application")
set oWB = oXL.Workbooks.Add
set oSheet = oWB.ActiveSheet
oSheet.Paste

oXL.Visible = true
oXL.UserControl = true
set oXL = nothing
set oWB = nothing
set oSheet = nothing