Dim objexcelapp

Set objexcelapp=CreateObject("excel.application")

objexcelapp.visible=False

objexcelapp.workbooks.open"d:\book1.xls"

objexcelapp.cell(4,3).value=12

objexcelapp.activeworkbook.save

objexcelapp. workbooks. Close

objexcelapp.Quit

Set objexcelapp=Nothing

End Sub
这样就可以写进去了，我也是在论谈里看到的类似问题，楼主可以找一找