有时间看看这个

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