ビューをCSVに書き出す機能は標準で用意されていますが、以下のスクリプトを参考にすれば、直接Excelに書き出すことが出来ます。（当然のことですが、Excelがインストールされていないと使えません。）
以下のスクリプトはビューのボタンに配置したときのサンプルです。
| Sub Click(Source As Button)
Dim s As New NotesSession
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView
Dim XLApp As Variant
Dim XLBook As Variant
Dim Code, Section, Name As Variant
Dim x As Integer
Set db = s.CurrentDatabase
Set view = db.GetView("EmployeeView")
Set doc = view.GetFirstDocument
Set XLApp = createobject("Excel.Application")
If ( XLApp Is Nothing ) Then
Messagebox "Excelが見つかりません。
Excelが正しくインストールされていることを
確認してください。", MB_OK, "エラー"
Exit Sub
End If
XLApp.Workbooks.add
Set XLBook = XLApp.ActiveWorkbook
XLApp.Visible=True
'見出し
XLBook.Worksheets( 1 ).Cells( 1, 1 ).Value="社員コード"
XLBook.Worksheets( 1 ).Cells( 1, 2 ).Value="部署"
XLBook.Worksheets( 1 ).Cells( 1, 3 ).Value="氏名"
x = 2
Do Until doc Is Nothing
Code = doc.GetItemValue("Code")
Section = doc.GetItemValue("Section")
Name = doc.GetItemValue("Name")
XLBook.Worksheets( 1 ).Cells( x, 1 ).Value = Code(0)
XLBook.Worksheets( 1 ).Cells( x, 2 ).Value = Section(0)
XLBook.Worksheets( 1 ).Cells( x, 3 ).Value = Name(0)
x = x + 1
Set doc = view.GetNextDocument(doc)
Loop
End Sub |