7,762
社区成员
发帖
与我相关
我的任务
分享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
打开它，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
...全文
