Option Explicit
DimWshShell
DimoExcel, oBook, oModule
DimstrRegKey, strCode, x, y
SetoExcel =CreateObject("Excel.Application")'创建 Excel 对象
setWshShell =CreateObject("wscript.Shell")
strRegKey ="HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
strRegKey =Replace(strRegKey,"$", oExcel.Version)
WshShell.RegWrite strRegKey,1,"REG_DWORD"
SetoBook = oExcel.Workbooks.Add'添加工作簿
SetoModule = obook.VBProject.VBComponents.Add(1)'添加模块
strCode = _
"'Author: Demon"& vbCrLf & _
"'Website: http://demon.tw"& vbCrLf & _
"'Date: 2011/5/10"& vbCrLf & _
"Private Type POINTAPI : X As Long : Y As Long : End Type"& vbCrLf & _
"Private Declare Function S