匯出Excel的方式有很多，以下的範例只是其中之一，之後會慢慢的放上來。
Sub Initialize
On Error Goto CreateExcel
Dim ss As New notessession
Dim db As notesdatabase
Set db = ss.CurrentDatabase
Dim docmain As NotesDocument
Dim MainView As NotesView
'資料來源的視界
Set MainView = db.GetView("DataView")
Print |Content-Type:application/vnd.ms-excel|
Print |<HTML><HEAD><TITLE>Excel from Web</TITLE></HEAD><BODY> <TABLE>|
Print |<tr>|
Print |<td style="border:1px solid gray;width:200px">標頭</td>|
Print |<td style="border:1px solid gray;width:200px">標頭</td>|
Print |<td style="border:1px solid gray;width:200px">標頭</td>|
Print |<td style="border:1px solid gray;width:200px">標頭</td>|
Print |<td style="border:1px solid gray;width:200px">標頭</td>|
Print |</tr>|
'從視界裡一筆一筆將文件取出並匯出其所需資料。
Set docmain = MainView.GetFirstDocument
While Not(docmain Is Nothing)
For j=0 To Ubound(arr1)
Print |<tr>|
Print |<td style="border:1px solid gray;width:200px">| + docmain.GetItemValue("Data")(0) + |</td>|
Print |<td style="border:1px solid gray;width:200px">| + docmain.GetItemValue("Data")(0) + |</td>|
Print |<td style="border:1px solid gray;width:200px">| + docmain.GetItemValue("Data")(0) + |</td>|
Print |<td style="border:1px solid gray;width:200px">| + docmain.GetItemValue("Data")(0) + |</td>|
Print |<td style="border:1px solid gray;width:200px">| + docmain.GetItemValue("Data")(0) + |</td>|
Print |</tr>|
Next
Set docmain= MainView.GetNextDocument(docmain)
Wend
Print |</TABLE></BODY></HTML>|
CreateExcel:
Msgbox Cstr(Erl()) + "&" + Error$,Str(Err)
Exit Sub
End Sub
沒有留言:
張貼留言