NotesでCSV出力するサンプルコード。
Sub Click(Source As Button)
'************************************************************
' ビューのCSVエクスポート
'************************************************************
On Error Goto ErrHandler
Dim session As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim view As NotesView
Dim ventry As NotesViewEntry
Dim vnav As NotesViewNavigator
Dim ventcol As NotesViewEntryCollection
Dim strDelFlg As String
Dim lngFileNum As Long 'ファイルナンバーの空き番号をセット
Dim varFileName As Variant '出力ファイル名
Dim strFilter As String 'SaveFileDialogボックスでのfiltersパラメータ
Set db = session.CurrentDatabase
Set view = db.GetView("ビュー名") 'ビュー名のセット
Set ventcol = view.AllEntries
Set vnav = view.CreateViewNav
Set ventry = vnav.GetFirst
' ***出力するデータが無い場合***
If ventry Is Nothing Then
Msgbox "出力するデータがありません。"
Exit Sub
End If
' ***ファイル空き番号をセット***
lngFileNum = Freefile
' ***出力先及びファイル名の指定ダイアログボックスの表示***
strFilter = "csv|*.csv|"
varFileName = uiws.SaveFileDialog(False,"ファイル一覧",strFilter,"C:\","ファイル名.csv")
' ***ファイル名未入力及びキャンセルの場合***
If Isempty(varFileName) = True Then
Msgbox "ファイル名が入力されていないので、出力はキャンセルされました。"
Exit Sub
End If
' ***ファイルオープン***
Open varFileName(0) For Output Access Write As lngFileNum
' ***タイトル行を出力*** (0)～(7):8
Print #lngFileNum, _
"A" & "," & _
"B" & "," & _
"C" & "," & _
"D" & "," & _
"E" & "," & _
"F" & "," & _
"G" & "," & _
"H"
' ***データを出力***
Do Until ventry Is Nothing
Print #lngFileNum, _
"" & ventry.ColumnValues(0) & "" & "," & _
"" & ventry.ColumnValues(1) & "" & "," & _
"" & ventry.ColumnValues(2) & "" & "," & _
"" & ventry.ColumnValues(3) & "" & "," & _
"" & ventry.ColumnValues(4) & "" & "," & _
"" & ventry.ColumnValues(5) & "" & "," & _
"" & ventry.ColumnValues(6) & "" & "," & _
"" & ventry.ColumnValues(7) & ""
Set ventry = vnav.GetNext(ventry) '次のビューエントリに移動
Loop
' ***ファイルのクローズ***
Close #lngFileNum
' ***出力完了メッセージ***
Msgbox "出力が完了しました！"
Exit Sub
'ランタイムエラー処理
ErrHandler:
If Err = 101 Then 'ファイルが既にオープンされている場合
Msgbox "同名のファイルが既に開かれています。"
Exit Sub
Else '未確認エラー
Msgbox "エラーにより出力が出来ませんでした。システム管理者にご連絡下さい。"
Exit Sub
End If
End Sub
