excel - VBA : ビュー内の Lotus Notes ドキュメントの FTSearch 構文

Question

vba コードのヘルプが必要です。以下のコードをご覧ください。

ビュー QA\QA スケジュール (2013 年 9 月 1 日から 2013 年 9 月 30 日) 内のすべてのドキュメントが必要です。ここでは、ドキュメントの作成日ではなく、ビューの列から取得された日付であるため、Excel でデータを取得できます。

'以下は、すべてのドキュメントを検索し、多くの時間を費やしているデータを取得するために作成したコードです。日付にフィルターを追加できれば、少し速くできますが、FT 検索構文を認識していません。ビュー列での使用方法。これを助けてください。本当に緊急です。

Dim nSess As Object 'NotesSession
Dim sPwd As String
Dim strCnxn As String
Dim strSQL As String
Dim db As Object
Dim iviews As Object
Dim IView As Object
Set nSess = CreateObject("Lotus.NotesSession") 'New:{29131539-2EED-1069-BF5D-        00DD011186B7}
myUsername = ****
myPassword = ****
DSN1 = ("Driver={Lotus NotesSQL Driver (*.nsf)};Server=;Database=;Uid=" & myUsername & ";Pwd=" & myPassword & ";")
Call nSess.Initialize(sPwd)
Set db = nSess.GetDatabase("", "")
Set iviews = db.GetView("QA\QA Schedule")
iviews.AutoUpdate = False 
Set IView = iviews.AllEntries

Set viewparentEntry = IView.Parent

Set viewEntry = viewparentEntry.GetFirstDocument
For i = 1 To IView.Count

Colval = viewEntry.ColumnValues()
For j = 0 To 20
If Colval(0) <> "2013 9" Then
Exit For
ElseIf Colval(18) >= "" Or Colval(18) <= "" Then
Exit For
ElseIf Colval(18) >= "09/01/2013" Or Colval(18) <= "09/30/2013" Then
Sheets("Sheet2").Cells(RowCount, colcount).Value = Colval(j)
colcount = colcount + 1
Else
Exit For
End If
Next
j = 0
colcount = 1
RowCount = RowCount + 1
Set viewEntry = viewparentEntry.GetNextDocument(viewEntry)
Next