いいね!数

0

閲覧数
101

お世話になります。

特定ビューのすべてのデータをエクセルに自動エクスポートしたいのですが、
アドバイスいただけないでしょうか?

エクセル出力のエージェントは、色々参考にし、作成はできましたが、
手動での全件選択とファイル保存が必要です。

出来れば、夜間に特定場所の特定ファイル名で保存させたいです。

以上、よろしくお願いいたします。

サーバー情報: | クライアント情報: | 
カテゴリ:アプリ開発 - Notes アプリ | タグ:
  | 質問日時:Apr 26, 2022, 2:46:09 PM

回答・コメント

いいね!数

1

次のようなエージェントで対応できそうですが、サーバー(Domino)側で自動実行させる場合、サーバーにExcelのインストールが必要です。

なお、実行時に権限のエラーが発生する場合、エージェントの「実行時のセキュリティレベル」で"制限された操作を許可する"に変わっているかと、実行するDominoサーバーのサーバー文書のセキュリティタブにある「可能なプログラムの制限」あたり、それからファイルの書き出し先となる場所(下の例では C:\temp フォルダ)の権限まわりをチェックしてみてください。

Dim ss As New NotesSession
Dim vw As NotesView
Dim ec As NotesViewEntryCollection
Dim ent As NotesViewEntry
Dim doc As NotesDocument
Dim filepath$, row&
Dim app, book, sheet

'Excel
filepath = "C:\temp\sample.xlsx"
Set app = CreateObject("Excel.Application")
app.DisplayAlerts = False
app.visible = False
app.Workbooks.Add
Set book = app.Workbooks(1)
Set sheet = book.Worksheets(1)

'ビューの全件をExcelへ出力
Set vw = ss.Currentdatabase.Getview("testview")
Set ec = vw.Allentries
Set ent = ec.Getfirstentry()
While Not ent Is Nothing
        row = row + 1
	Set doc = ent.Document
	sheet.Cells(row,1).value = doc.Universalid
	Set ent = ec.Getnextentry(ent)
Wend

book.SaveAs(filepath)
book.Close
app.Quit
Set sheet = Nothing
Set book = Nothing
Set app = Nothing

 

 

回答日時:Apr 26, 2022, 6:43:15 PM

いいね!数

0

ビューのデータをエクスポートするのであれば、ExcelじゃなくてCSVでもいいのでは?

それなら普通にファイルのオープン、書き出し、クローズで済むと思います。

回答日時:Apr 27, 2022, 2:56:40 PM