07.我要將Excel資料匯入Notes中，但只更新Notes中已存在文件的部份欄位資料，要如何修改程式碼

這各範例我還沒有測試過，不過我找到了有這方式可以是..提供給大家測試。
'-------------------------------------------------------------------------


Sub Click(Source As Button)

Dim s As notessession

Dim ws As notesuiworkspace

Dim db As notesdatabase

Dim doc As notesdocument

Dim xl As Variant

Dim xlwbk As Variant

Dim xlsht As Variant

Dim selected As Variant

Dim filename As String

Dim row As Integer

Set ws = New notesuiworkspace

selected = ws.openfiledialog(False,"請選擇你要匯入的人員 / 評量表對照檔", "Microsoft Excel|*.xls", "")

If Isempty(selected) Then

Messagebox "您沒有選擇要匯入的檔案", 16, "訊息"

Exit Sub

End If

filename = selected(0)

Set xl = createobject("Excel.Application")

xl.visible = False

xl.workbooks.open filename

Set xlwbk = xl.activeworkbook

Set xlsht = xlwbk.activesheet

row = 2

Set s = New notessession

Set db = s.currentdatabase

Set view = db.getview("(allpeoplebyempno)")

Do Until Cstr(Trim(xlsht.cells(row, 1).value)) = ""

keystr = Ucase(Cstr(Trim(xlsht.cells(row, 1).value)))

Set doc = view.getdocumentbykey(Ucase(Cstr(Trim(xlsht.cells(row, 1).value))), False)

If Not(doc Is Nothing) Then

idnostr = doc.idno(0)

doc.category = Ucase(Cstr(Trim(xlsht.cells(row, 6).value)))

doc.execute = "Yes"

Call doc.save(False, False)

End If

row = row + 1

Loop

Call ws.viewrefresh

Messagebox "評量表對應檔匯入完成", 64, "訊息"

End Sub

'-------------------------------------------------------------------------