简单的Office编程经常看到有人需要做办公类的脚本，但是所描述的实现方法，非常怪比如excel，方法是用什么用鼠标点进单元格，然后复制到剪贴板，然后粘贴到哪里，当然用表层操作的方式不是不行，只是处理起来有些地方就不是那么的得心应手其实ms的office都有一个接口组件，office里各种菜单所执行的功能，都是通过这个组件里的函数来实现的，我们平时所用的office，其实只相当于一个菜单界面，那么，我们可以反过来，直接调用这个组件的属性，函数，来实现所需要的功能。下面以office中的excel为例，这个脚本的功能是打开一个新excel表，并自动录入按键精灵兄弟工作组的论坛首页上的部分信息VBSBeginDimiLine,jLineSetxlApp=CreateObject("Excel.Application")xlApp.visible=TrueSetxlBook=xlApp.Workbooks.AddSetxlSheet=xlBook.ActiveSheetxlSheet.Columns(1).ColumnWidth=50xlSheet.Columns(2).ColumnWidth=6xlSheet.Columns(3).ColumnWidth=6xlSheet.Columns(4).ColumnWidth=26xlSheet.Columns(5).ColumnWidth=30SetIEObj=createobject("internetexplorer.application")IEObj.navigate"http://bbs.vrbrothers.com/index.php"DowhileIEObj.readystate<4Delay200LoopiLine=1ForeachCtableInIEObj.document.getElementsByTagName("Table")IfLeft(Ctable.childNodes(0).InnerText,4)="分类版主"ThenxlSheet.cells(iLine,1).value=Ctable.childNodes(0).InnerTextxlSheet.Range(xlSheet.cells(iLine,1),xlSheet.cells(iLine,5)).Merge(0)xlSheet.Rows(iLine).Font.Bold=TruexlSheet.Rows(iLine).Interior.Color=rgb(180,180,220)iLine=iLine+1jline=1ForeachCtrInCtable.childNodes(1).getElementsByTagName("Tr")xlSheet.cells(iLine,1).value=Ctr.childNodes(1).InnerTextxlSheet.cells(iLine,2).value=Ctr.childNodes(2).InnerTextxlSheet.cells(iLine,3).value=Ctr.childNodes(3).InnerTextxlSheet.cells(iLine,4).value=Ctr.childNodes(4).InnerTextxlSheet.cells(iLine,5).value=Ctr.childNodes(5).InnerTextifjline=1ThenxlSheet.Rows(iLine).Interior.Color=rgb(250,250,220)elseifjlineMod2=1ThenxlSheet.Rows(iLine).Interior.Color=rgb(245,245,250)Endifjline=jline+1iLine=iLine+1NextiLine=iLine+1EndifNextIEObj.quitsetIEObj=nothingVBSEnd试了!但是我们需要的是把内容读出来!假设需要A1到A15的内容,我们怎么以MessageBox的形式反映出来?xlSheet.cells(1,1).value到xlSheet.cells(15,1).value恩,可以这样导出了,不过是根据你上面的脚本能行,小弟想问下:假如我的文件在d:\邮箱积分.xls,里面的A1-A10的内容怎么导出?我现在根据你的脚本改,不过连怎么打开这个表格都不行(不是说用VBSCallRunApp命令)请指教//VBSCallRunApp("d:\邮箱积分.xls")VBSBeginSetxlApp=CreateObject("Excel.App