初学者送分交学费咯！！！简单问题～～～～

[luckycrazy]

On Error Resume Next
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.Workbooks.Open("h:/aaa.xls") '打开Excel模板
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
Response.Write objExcelSheet.cells(1,1).value & "<br>"
objExcelSheet.cells(1,1).value = "aa"
Response.Write objExcelSheet.cells(1,1).value & "<br>"
objExcelBook.Saveto "h:/bbb.xls"
objExcelApp.Quit
set objExceApp=Nothing
set rs=nothing
rs.Close
页面显示为：
a
aa
这段代码应该是在一个已经存在的Excel中修改某一个Cell的值，根据页面显示可以得出Cell的值已经被修改了，但是执行完程序后代开excel文件，发现没有发生变化，为什么呢？错在哪了？

[007james]

http://expert.csdn.net/Expert/topic/2301/2301258.xml?temp=.356106

dim i,j,k
On Error Resume Next
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.Workbooks.Open("e:\web\jianzhu\shengchan.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

在我机子上运行成功！
也希望你能成功！
呵呵

[luckycrazy]

我是先试的.Save，可是.Save也不行啊