有时间看看这个

 Dim ExcelApp
 Set ExcelApp = CreateObject("Excel.Application")
 ExcelApp.WorkBooks.Open "F:/Test.xls"
 Dim myWorkBook
 Set myWorkBook = ExcelApp.workbooks(1)
 myWorkBook.WorkSheets("Sheet1").Activate
 Dim myWorkSheet
 Set myWorkSheet = myWorkBook.worksheets("Sheet1")
 msgbox myWorkSheet.Cells(1,1).Value
 myWorkSheet.Cells(1,1).Value = "temp"
 myWorkBook.Save
 Set ExcelApp = nothing
 myWorkBook.Close