将多个文档中的值导出到Excel电子表格

我如何收集每个人的信息、存储信息、获取下一个人的信息、存储信息，然后将所有信息放在电子表格上

子初始化
将s变暗为新便笺会话
将ws设置为新工作区
Dim db As NotesDatabase
Dim lspTrainingDb作为备注数据库
如注释视图所示的暗视图
将uiView设置为NotesUIView
昏暗的儿童视图为NotesView
将列车视图变暗为注释视图
标注文档作为注释文档
Dim uiDoc作为NotesUIDocument
Dim childDoc As notes文档
Dim trainDoc As NOTES文档
将dc设置为备注文档集合
Dim dcTrain As notes文档集合
暗淡的颜色和长的颜色一样
Dim奖励（24）作为变体
Dim推荐（74）作为变体
字符串形式的数组（）
模糊体验1作为变体
Dim timeInGrade1作为变体
Dim fullName作为变量
像线一样模糊
把所有的赞扬都当作字符串
像弦一样训练
Dim docKey作为变体
Dim vRecertify As Variant
设置db=s.CurrentDatabase
arrayDocs%=0
设置uiView=ws.currentview
设置dc=uiView.documents
如果（dc.Count=0），则
MessageBox“请选择一名官员。（若要选择文档，请在文档前面的列中打勾）”，48，“错误：
出口接头
如果结束
'从LSP培训记录数据库获取字段值
设置profileDoc=db.GetProfileDocument（“ProfileDocument”）
LSPTrainingServer$=profileDoc.GetItemValue（“LSPTrainingDbServer”）（0）
LSPTrainingDbName$=profileDoc.GetItemValue（“LSPTrainingDbName”）（0）
设置lspTrainingDb=newnotesdatabase（LSPTrainingServer$，LSPTrainingDbName$）
设置trainView=lspTrainingDb.GetView（（（DataNoSpreadsheetView）”）
'Set view=db.GetView（“按名称列出的所有文档”）
Set doc=dc.GetFirstDocument
而不是（doc什么都不是）
docKey=doc.GetItemValue（“datanum”）
experience1=doc.GetItemValue（“HireDate”）
texperience1=CStr（经验1（0））
timeInGrade1=doc.GetItemValue（“RankDate”）
timeInGrade1=CStr（timeInGrade1（0））
fullName=doc.GetItemValue（“fullName”）
tfullName=CStr（全名（0））
Physicacity=doc.GetItemValue（“Physicacity”）
t物理性=CStr（物理性（0））
Set children=doc.Responses
设置childDoc=children.GetFirstDocument
直到childDoc一文不值
如果childDoc.表格（0）=“奖励”，则
“奖励年度字段”
awardYear1=childDoc.GetItemValue（“awardYear1”）
tawardYear1=CStr（获奖年份1（0））
awardYear2=childDoc.GetItemValue（“awardYear2”）
tawardYear2=CStr（获奖年份2（0））
awardYear3=childDoc.GetItemValue（“awardYear3”）
tawardYear3=CStr（获奖年份3（0））
awardYear4=childDoc.GetItemValue（“awardYear4”）
tawardYear4=CStr（获奖年份4（0））
awardYear5=childDoc.GetItemValue（“awardYear5”）
tawardYear5=CStr（获奖年份5（0））
awardYear6=childDoc.GetItemValue（“awardYear6”）
tawardYear6=CStr（获奖年份6（0））
awardYear7=childDoc.GetItemValue（“AwardYear_7”）
tawardYear7=CStr（获奖年份7（0））
awardYear8=childDoc.GetItemValue（“AwardYear_8”）
tawardYear8=CStr（获奖年份8（0））
awardYear9=childDoc.GetItemValue（“AwardYear_9”）
tawardYear9=CStr（获奖年份9（0））
awardYear10=childDoc.GetItemValue（“awardYear10”）
tawardYear10=CStr（获奖年份10（0））
awardYear11=childDoc.GetItemValue（“awardYear11”）
tawardYear11=CStr（获奖年份11（0））
awardYear12=childDoc.GetItemValue（“awardYear12”）
tawardYear12=CStr（获奖年份12（0））
awardYear13=childDoc.GetItemValue（“AwardYear_13”）
tawardYear13=CStr（获奖年份13（0））
awardYear14=childDoc.GetItemValue（“AwardYear_14”）
tawardYear14=CStr（获奖年份14（0））
awardYear15=childDoc.GetItemValue（“awardYear15”）
tawardYear15=CStr（获奖年份15（0））
awardYear16=childDoc.GetItemValue（“AwardYear_16”）
tawardYear16=CStr（获奖年份16（0））
awardYear17=childDoc.GetItemValue（“awardYear17”）
tawardYear17=CStr（奖励年度17（0））
awardYear18=childDoc.GetItemValue（“awardYear18”）
tawardYear18=CStr（获奖年份18（0））
awardYear19=childDoc.GetItemValue（“AwardYear_19”）
tawardYear19=CStr（获奖年份19（0））
awardYear20=childDoc.GetItemValue（“awardYear20”）
tawardYear20=CStr（获奖年份20（0））
awardYear21=childDoc.GetItemValue（“AwardYear_21”）
tawardYear21=CStr（获奖年份21（0））
awardYear22=childDoc.GetItemValue（“awardYear22”）
tawardYear22=CStr（获奖年份22（0））
awardYear23=childDoc.GetItemValue（“awardYear23”）
tawardYear23=CStr（获奖年份23（0））
awardYear24=childDoc.GetItemValue（“awardYear24”）
tawardYear24=CStr（获奖年份24（0））
awardYear25=childDoc.GetItemValue（“AwardYear_25”）
tawardYear25=CStr（奖励年度25（0））
'奖励类型字段
awardType1=childDoc.GetItemValue（“AwardType_1”）
tawardType1=CStr（奖励类型1（0））
awardType2=childDoc.GetItemValue（“awardType2”）
tawardType2=CStr（奖励类型2（0））
awardType3=childDoc.GetItemValue（“AwardType_3”）
tawardType3=CStr（奖励类型3（0））
awardType4=childDoc.GetItemValue（“awardType4”）
tawardType4=CStr（奖励类型4（0））
awardType5=childDoc.GetItemValue（“awardType5”）
tawardType5=CStr（奖励类型5（0））
awardType6=childDoc.GetItemValue（“awardType6”）
tawardType6=CStr（奖励类型6（0））
awardType7=childDoc.GetItemValue（“awardType7”）
tawardType7=CStr（奖励类型7（0））
awardType8=childDoc.GetItemValue（“AwardType_8”）
tawardType8=CStr（awardType8（0））
awardYear1 = childDoc.GetItemValue("AwardYear_1")
tawardYear1 = CStr(awardYear1(0))
awardYear2 = childDoc.GetItemValue("AwardYear_2")
tawardYear2 = CStr(awardYear2(0))
etc...

awardYear1 = Cstr(childDoc.GetItemValue("AwardYear_1")(0))

Dim awardYear(24) as String
For i = 0 to 24
    awardYear(i) = Cstr( childDoc.GetItemValue("AwardYear_" & i+1)(0) )
Next

Type OfficerData
    awardYear As Integer
    awardType As String
    discDate As NotesDateTime
    discCharge As String
    discDispo As String
End Type

Dim officer(24) as OfficerData

officer(1).awardYear = 2010
officer(1).awardType = "Pistol Champion"

Dim allAwards() as String

....

Set children = doc.Responses
Redim allAwards(children.Count-1)
i = 0

....     

allAwards(i) = tawardType1 + " " + tawardYear1 + " " + tawardType2 + " " + tawardYear2 + " " + tawardType3 + " " + tawardYear3 + " " + _
        tawardType4 + " " + tawardYear4 + " " + tawardType5 + " " + tawardYear5 + " " + tawardType6 + " " + tawardYear6 + " " + _
        tawardType7 + " " + tawardYear7 + " " + tawardType8 + " " + tawardYear8 + " " + tawardType9 + " " + tawardYear9 + " " + _
        tawardType10 + " " + tawardYear10 + " " + tawardType11 + " " + tawardYear11 + " " + tawardType12 + " " + tawardYear12 + " " + _
        tawardType13 + " " + tawardYear13 + " " + tawardType14 + " " + tawardYear14 + " " + tawardType15 + " " + tawardType16 + " " + _
        tawardType17 + " " + tawardYear17 + " " + tawardType18 + " " + tawardYear18 + " " + tawardType19 + " " + tawardYear19 + " " + _
        tawardType20 + " " + tawardYear20 + " " + tawardType21 + " " + tawardYear21 + " " + tawardType22 + " " + tawardYear22 + " " + _
        tawardType23 + " " + tawardYear23 + " " + tawardType24 + " " + tawardYear24 + " " + tawardType25 + " " +tawardYear25
i = i + 1