谁能帮我看看下面这个代理啊?在线等待……
我写了这个代理:
Sub Initialize
Dim sht As Variant
Dim StartRow As Integer,i As Integer,m As Integer,n As Integer,q As Integer
Set xcl = CreateObject("Excel.Application")
xcl.Visible = False
Call xcl.Workbooks.Add("c:\中心住宅通信费用明细.xls")
Set sht = xcl.ActiveSheet
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim view As Notesview
Dim vc As NotesViewEntryCollection
Dim entry As NotesViewEntry
Dim temp As NotesViewEntry
Dim flag As String
Set uiview=ws.CurrentView
Set view=uiview.view
Set vc=view.allentries
Set entry=vc.getfirstentry()
startrow=1
While Not entry Is Nothing
For i=0 To 15
sht.Cells(StartRow, i).Value=entry.columnvalues(i)
Next
Set entry=vc.getnextentry(entry)
StartRow=StartRow+1
Wend
End Sub
执行的时候,弹出对话框,提示信息是“OLE:Automation Object Error”,谁能告诉我是什么原因呢?救命哪。