作成者	カテゴリ	返答の対象		公開
あまぴょん 07/10/2002 11:36 PM		Excelから文書を開く（スクリプト）

Excelのバージョンが分からないし、自分のところはNotes4.6.7なのですが参考になるでしょうか。

Sub NotesOpen(key1 As String, key2 As String, key3 As String)

Dim session As Object
Dim workspace As Object
Dim doc As Object, Collection As Object
Dim doc2 As Object, uidoc As Object
Dim db As Object
Dim Kword As String
Dim SrvName As String
Dim DbName As String


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 doc2 = workspace.EditDocument(False, doc)
AppActivate "(無題) - Lotus Notes"
Else
MsgBox "該当文書が見つかりません"
End If

End Sub