在B/S结构下，如何将视图的数据导入到excel中

best

请问各位高手，如何将视图的数据导入到excel中？基于B/S结构的。
能不能将源代码写给我？真的谢谢了

pengzhen173

Sub Click(Source As Button)
Print "Please Wait.....Running MSExcel report"
Dim session As New NotesSession
Dim doc As Notesdocument． Dim doc2 As Notesdocument． Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim handle As Variant
Dim db As NotesDatabase
Dim view As NotesView
Dim counter As Integer
counter3 = 0
counter4 = 0
counter5 = 0
counter6 = 0
counter7 = 0
yescounter3 = 0
yescounter4 = 0
yescounter5 = 0
yescounter6 = 0
yescounter7 = 0
Set db = session.CurrentDatabase
Set view = db.GetView( "StateReport" )
Set doc2 = view.GetFirstdocument．nbsp
' Forall c In view.Columns
' Messagebox( c.Position & " " & c.Title )
' End Forall
Columnname3 =view.Columns(3).Title
Columnname4 =view.Columns(4).Title
Columnname5 =view.Columns(5).Title
Columnname6 =view.Columns(6).Title
Columnname7 =view.Columns(7).Title
While Not ( doc2 Is Nothing )
vtitle5 = doc2.Columnvalues( 3 )
vNSR = doc2.Columnvalues( 4 )
vPSD = doc2.Columnvalues( 5 )
vUtil = doc2.Columnvalues( 6 )
vTier2 = doc2.Columnvalues( 7 )
If vtitle5 = "No" Then
counter3 = counter3 + 1
Else
If vtitle5 = "Yes" Then
yescounter3 = yescounter3 + 1
End If
End If
If vNSR = "No" Then
counter4 = counter4 + 1
Else
If vNSR = "Yes" Then
yescounter4 = yescounter4 + 1
End If
End If
If vPSD = "No" Then
counter5 = counter5 + 1
Else
If vPSD = "Yes" Then
yescounter5 = yescounter5 + 1
End If
End If
If vUtil = "No" Then
counter6 = counter6 + 1
Else
If vUtil = "Yes" Then
yescounter6 = yescounter6 + 1
End If
End If
If vTier2 = "No" Then
counter7 = counter7 + 1
Else
If vTier2 = "Yes" Then
yescounter7 = yescounter7 + 1
End If
End If
Set doc2 = view.GetNextdocument． doc2 )
Wend
Set doc = New Notesdocument． session.CurrentDatabase )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_OBJECT, "Microsoft Excel Worksheet", "", _
"Report" )
Set handle = object.Activate( True )
handle.Application.Cells( 1,2).value = Columnname3
handle.Application.Cells( 1,3).value = Columnname4
handle.Application.Cells( 1,4).value = Columnname5
handle.Application.Cells( 1,5).value = Columnname6
handle.Application.Cells( 1,6).value = Columnname7
handle.Application.Cells( 2,1).value = "Yes"
handle.Application.Cells( 2,2).value = yescounter3
handle.Application.Cells( 2,3).value = yescounter4
handle.Application.Cells( 2,4).value = yescounter5
handle.Application.Cells( 2,5).value = yescounter6
handle.Application.Cells( 2,6).value = yescounter7
handle.Application.Cells( 3,1).value = "No"
handle.Application.Cells( 3,2).value = counter3
handle.Application.Cells( 3,3).value = counter4
handle.Application.Cells( 3,4).value = counter5
handle.Application.Cells( 3,5).value = counter6
handle.Application.Cells( 3,6).value = counter7
handle.Application.Worksheets.Copy
' handle.Parent.Save
' If ( handle Is Nothing ) Then
' doc.Subject = "This object has no OLE automation interface"
' Else
' doc.Subject = "This object has an OLE automation interface"
' End If
' Call doc.Save( True, True )
Print "Done"
Print " "
End Sub