Lotus Notes文書のフィールドからデータを読み取るVBAコードを作成しようとしています。現在、FieldGetText
メソッドを使用してデータを読み取ることができますが、これはドキュメントを開いている場合にのみ機能します。私は、数百もあるので、それらを開くことなく文書をループすることができる必要があります。私は多くのドキュメントからこれらの同じフィールドを読むことができる必要がありますが、それらをループする方法を理解することはできません。私のコードは現在:VBAでLotus Notes文書のフィールドを読み取る
Set LotusNotes = CreateObject("Notes.NotesUiWorkspace")
Set CurrentDoc = LotusNotes.CurrentDocument
While Not (CurrentDoc Is Nothing)
' Affectation of data
DueDate = CurrentDoc.FieldGetText("RevDueDate")
DueTime = CurrentDoc.FieldGetText("RevDueTime")
DateClosed = CurrentDoc.FieldGetText("DateClosed")
Wend
私はフロントエンドオブジェクトを使用することを理解しています。文書をループすることができるバックエンドオブジェクトを使用することはできましたが(日付は特に)、文書のフィールドテキストと一致しませんでした。 、私はちょうどそれは私が最初に試した、またはそれを何とか代わりにNotesWorkspace
クラスでFieldGetText
を使用することが可能かどうNotesUIWorkspace
クラスを使用して複数のファイルをループすることができます場合は思ったんだけど、基本的に
Set LotusNotes = CreateObject("Notes.NotesSession")
Set db = LotusNotes.GetDatabase("")
Set view = db.GetView(view_name)
view.AutoUpdate = False
Set columnview = view.AllEntries
Set doc = view.GetFirstDocument
While Not (doc Is Nothing)
revDate = doc.GetItemValueDateTimeArray("RevDueDate")
revDate = doc.RevDueDate
Set doc = view.GetNextDocument(doc)
Wend
:このコードは、このように見えました。
ご協力いただきありがとうございます。