主题：能否不打开excel表格而操作excel表格

Dim App As New MSExcel.Application
Dim temp As String
temp = "e:\项目设计\操作表\表格数据提取表.xlsm"
Dim Wb As MSExcel.Workbook
wb = getobject(temp)
Wb.WorkSheets(2).Range("D1") = e.Form.Controls("TextBox1").value
Wb.SaveAs("e:\项目设计\操作表\表格数据提取表.xlsm")
App.Quit

我编写这个代码是为了在不打开excel情况下，向sheet2工作表写入值，但是没有成功，还是将文件打开了。请教如何做到呢？