求 excel9.olb文件

如题所示，求excel9.olb 和关于VB操作excel的例程等相关资料，谢谢。。。

我的邮箱：zhaoye410@vip.qq.com Dim oExcel
Set oExcel = CreateObject("excel.application")
oExcel.Visible=1
Dim wks
Set wks=oExcel.Workbooks.Add
Dim sh
Set sh=wks.ActiveSheet
sh.cells(1,1)="第一个格子" 另存为 1.vbs 后双击运行

补充：VB ,  资源