asp中调用dll生成excel文件出错,请帮忙。
我在asp中调用一个dll,目的想生成一个excel文档new.xls,但asp页上出现这样的错误:”错误 '800a01b6' 对象不支持该属性或方法 “,但new.xls已实际生成,我尝试
打开它,Excel 却提示我:”File in use,new.xls is locked for editing by
'system'"
我的dll是这样写的:
Public Function savexls(Adocn As Variant, Mystring As String) As Integer
Dim adoRS As Object
Dim Xls As Object
Dim MyBook, MySheet As Object
Dim idx As Integer
Set adoRS = CreateObject("ADODB.RecordSet")
adoRS.Open Mystring, Adocn
Set Xls = CreateObject("Excel.Application")
Set MyBook = Xls.Workbooks.Add
Set MySheet = MyBook.Worksheets(1)
idx = 1
MySheet.Cells(idx, 1).Value = adoRS!house_
Xls.Application.Visible = True
MySheet.SaveAs App.Path & "\new.xls"
MySheet.Close
MyBook.Close
Xls.Quit
Set Xls = Nothing
Set MyBook = Nothing
Set MySheet = Nothing
End Function