!!!!怎样用建立应用程序对象的方法对EXCEL表进行读写?!!!!

Question

用CreateObject("Excel.Application")     dim i,j,k
    On Error Resume Next
set objExcelApp = CreateObject("Excel.Application") 
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.Workbooks.Open("c:/books.xls") '打开Excel模板 
set objExcelBook = objExcelApp.ActiveWorkBook 
set objExcelSheets = objExcelBook.Worksheets 
set objExcelSheet = objExcelBook.Sheets(1) 
    i=1
    for each x in rs.fields
objExcelSheet.cells(5,i).value= x.name
i=i+1
    next
         k=1
     j=5
while not rs.eof
   for each x in rs.fields
     objExcelSheet.cells(j+1,k).value=x.value
      k=k+1
   next
   k=1
 rs.movenext
 j=j+1
wend
objExcelBook.Save
objExcelApp.Quit
set objExceApp=Nothing
set rs=nothing  
rs.Close 

Answer 1

Set cnXLS = CreateObject("ADODB.Connection")
cnXLS.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=h:\tek.xls"       
dim sqlXLS
sqlXLS="Select * From [Sheet1$]"
Set rstXLS = CreateObject("ADODB.Recordset")
rstXLS.Open  sqlXLS,cnXLS 
.............set cnXLS=nothing
set rstXLS=nothing

Answer 2

http://www.csdn.net/subject/15/

Answer 3

不好意思  我很久没上这儿了      因为我上了几次CSDN老进不来   IE老提示有错  弄的我都没激情了
 旧没上今天来结贴了   非常抱歉!!!