Excel几个常用事件：1>如果出现某一事件，退出到原始界面：Privatesubcommand1_click()If…..thenExitsubEndsub2>打开或者新建excel:Dimexlappasexcel.applicationDimexlbookasexcel.workbookDimexlsheetasexcel.worksheetSetexlapp=getobject(,”excel.application”)如果当前excel在运行，就不必新建Iferr.number<>0thenSetexlapp=createobject(,”excel.application”)EndifErr.clearSetexlapp=createobject(“excel.application”)//创建excel对象(a)Setexlbook=exlapp.workbooks.open(“c:\a.xls”)//打开存在的excel文件或者(b)Exlapp.workbooks.open”c:\a.xls”//打开存在的excel文件，没有的话，新建或者open(app.path&”\a”)Setx1Sheet=xlBook.Worksheets("sheet1")3>将文本中的内容存到excel中:(a):Open”book1.exl”forappendas#1Print#1,text1.textClose#1注:可以有forinput/output/append区别如下：input表示从打开的文件中读取数据，以input打开的文件必须存在，否则会错误；output表示想打开的文件中写入数据，以output打开文件时，文件原有数据将被覆盖，如果文件不存在，则新建一个文件；append表示向文件中添加数据，以这种方式写入数据，原数据不会被覆盖，是以追加的形式写入的。As#1表示文件标号为1，相当于临时起了个名字便于识别，也可以是2，3。(b):DimH()AsString,L()AsString,iAsInteger,jAsIntegerh=split(text1.text,vbnewline)Fori=0toubound(h)L=split(h(i),”,”Forj=0toubound(l)Exlsheet.cells(i+1,j+1)=l(j)NextNext4>保存文件，退出，释放空间:另存为:exlbook.saveas(“book1”)关闭文件，退出:exlbook.closeExlapp.quit释放空间:setexlsheet=nothingSetexlbook=nothingSetexlapp=nothingExcel几种常见错误1>实时错误'1004'对象'Range'的方法'_Global'失败:第一次运行时一切正常，但按CTRL+ALT+DEL，仍可在关闭程序窗口看见EXCEL，第二次运行时出现：实时错误'1004'对象'Range'的方法'_Global'失败一般原因有两个：一是结束语句没有释放excel空间（见excel常见事件4>）；二是excel已处于打开状态，此时你要加（excel常见事件2>第二小段内容。2>实时错误'3705',对象打开时,不允许操作，这说明你的对对象打开的，此时你要加（excel常见事件2>第二小段内容。3>错误”70”，此时查看你要写的文档是不是没有关闭。