Attribute VB_Name = "Module1" Public Sub TEST() '参考にしたURL https://www.server-world.info/query?os=Other&p=vba&f=3 '参考にしたURL http://ouipanda.hatenablog.com/entry/20090417/1239984292 '変数型指定(Valiant) Dim session, db, View, doc Dim Value01, Value02 Dim i As Long 'セッションオブジェクト作成(重要:OLEかCOMかどちらか一方) ' Set session = CreateObject("Notes.NotesSession") 'OLEオートメーションで接続(Notesが起動する) Set session = CreateObject("Lotus.NotesSession") 'COMインターフェイスで接続(Notesは起動しない) Call session.Initialize 'COMインターフェイスで接続したときはイニシャライズが必要 ' Call session.Initialize("password") 'COMインターフェイスでパスワードが必要なとき 'アクセスするデータベースの"サーバー名","ファイルパス" Set db = session.GetDatabase("myserver/mydomain", "mail\test.nsf") 'ビューからドキュメントを取得(例:ALL) Set View = db.getView("ALL") Set doc = View.GetFirstDocument 'レコードを取得 Do Until doc Is Nothing 'フィールドレコードを配列に取得 Value01 = doc.GetItemValue("フィールド名A") '"フィールド名A"フィールドのデータ Value02 = doc.GetItemValue("フィールド名Z") '"フィールド名Z"フィールドのデータ '処理(例:シートのセルに記入) ws.Cells(i, 1) = Value01(0) ws.Cells(i, 2) = Value02(0) Set doc = View.GetNextDocument(doc) i = i + 1 'セルの行ポインタ Loop MsgBox "処理終了" End Sub