作成者	カテゴリ	返答の対象		公開
韓非子 01/25/1999 11:55 AM		ノーツの情報をテキストファイルに出力するには？

ビューのアクションボタンから CSV形式データを出力します。
社員番号(Noフィールド)・氏名(Nameフィールド)・
氏名かな(Namekanaフィールド)の出力です。

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim filenum As Integer
Dim filename As String

Set db = session.CurrentDatabase
Set view = db.GetView("bymain")
filenum% = Freefile()
filename$ = Inputbox("path?")

Open filename$ For Output As filenum%
Set doc = view.GetFirstDocument
Do While Not ( doc Is Nothing)
Write #filenum%, doc.No(0), doc.Name(0), doc.Namekana(0)
Set doc = view.GetNextDocument( doc )
Loop
Close filenum%

End Sub

こんな事を 私は書いて 使っています
ご参考にしてみて下さい。