いつもお世話になっております。dakeiです。 もう何日も試行錯誤しており，皆様のお力をお貸し下さい。 Excel(VBA)からノーツに登録された文書を開くスクリプトを 作成しましたが，正常に動作する時とVBA及びノーツで エラーが発生する場合があります。 エラーは，VBAでシステムエラーが表示され，開かれたノーツ 文書をアクティブにすると赤いウィンドウで修復不可能なエラー と表示されノーツが強制終了します。（ページ違反エラー） また，開いたノーツ文書を前面に移動していのたが背面で アクティブ状態のままになりました。開いた文書を前面に 表示する方法もお願いします。 Sub NotesOpen(key1, key2, key3 As String) Dim session As Variant Dim workspace As Variant Dim doc, Collection As Variant Dim doc2, uidoc As Variant Dim db As Variant Dim Kword As Variant SrvName = "Test" DbName = "TestDB.nsf" Set workspace = CreateObject("Notes.NotesUIWorkspace") Call workspace.OpenDatabase(SrvName, DbName, "", "", False, True) Set session = CreateObject("Notes.NotesSession") Set db = session.Getdatabase(SrvName, DbName) Kword = "FIELD No_1 = " & key1 & " and FIELD No_2 = " & key2 & " and FIELD No_3 = " & key3 Set Collection = db.FTSearch(Kword, 1) If Collection.Count > 0 Then Set doc = Collection.GetNthDocument(1) Set workspace = CreateObject("Notes.NotesUIWorkspace") Set doc2 = workspace.EditDocument(False, doc) AppActivate "(無題) - Lotus Notes" Else MsgBox "該当文書が見つかりません" End If End Sub