忍者ブログ

名もないSEの備忘録

仕事や気になったことをわすれないように。。。。。


[PR]

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。


[Top]

にほんブログ村 IT技術ブログ IT技術メモへ
【意外と知らないIT用語】ドメインって何? お名前.com

Notes CSV 出力 サンプル コード

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



PR


[Top]

にほんブログ村 IT技術ブログ IT技術メモへ
【意外と知らないIT用語】ドメインって何? お名前.com

Comment

お名前
タイトル
E-MAIL
URL
コメント
パスワード




ランキングに参加しています。
にほんブログ村 IT技術ブログへ にほんブログ村 IT技術ブログ IT技術メモへ にほんブログ村 サラリーマン日記ブログ 30代サラリーマンへ にほんブログ村 サラリーマン日記ブログへ

Copyright © 名もないSEの備忘録 : All rights reserved

TemplateDesign by KARMA7

忍者ブログ [PR]

管理人限定

Google Adsense




NTTナレッジ・スクウェア株式会社

にほんブログ村 IT技術ブログ

にほんブログ村 IT技術ブログ IT技術メモへにほんブログ村 IT技術ブログ 開発言語へ

ブログランキング

カレンダー

09 2017/10 11
S M T W T F S
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31

コメント

[03/02 まちこ]
[06/03 Smithd276]
[04/26 Pharmd247]
[04/25 Pharmk369]
[04/23 Smitha583]

ブログ内検索

ネットショッピング&じゃらん

忍者カウンター