|
初めまして。伊東と申します。
質問というのは、EXCELとNotesデータベースの連携ということで、
EXCEL vbaにてNotesデータベースへ接続しデータの取得までは何とかできたのですが、
Notesデータベースの件数が多く、データの取得が非常に時間がかかってしまいます。
そこで、Notesデータベースに対し検索を掛け、件数を減らした上でデータを取得したいと考えています。
何かよい方法があれば、ヒントを教えていただけないでしょうか。
環境としては、EXCEL2003、Notes7です。
以下、ある一つのフィールドを全件取得するためのPGです。
別PCで実行しうまく動作したのですが、手書きでこちらへ移したため誤記があったら申し訳ありません。
Dim NotesSes As Object 'ノーツセッション
Dim Notesdb As Object 'データベース
Dim Notesview As Object 'ノーツビュー名
Dim Notesdoc As Object 'ノーツ文書
Dim tmpVar As Variant
Dim MyData As String
dim i_CNT as long
i_CNT =2 '1行目はタイトルなので2行目から
Set NotesSes = CreateObject("Notes.NotesSession")
Set Notesdb = NotesSes.GETDATABASE("ノーツサーバ名", "データベース名")
Set Notesview = db.GetView(Notesview)
Set Notesdoc = view.GetFirstDocument
Do Until Notesdoc Is Nothing
tmpVar = Notesdoc.GetItemValue("フィールド名")
MyData = tmpVar(0)
sheet1.cells(i,1).value=MyData
Set Notesdoc = view.GetNextDocument(Notesdoc)
i_CNT=i_CNT+1
Loop
Set Notesdoc = Nothing
Set Notesdb = Nothing
Set Notessession = Nothing
|
|