将lotus表单中的域全部导出到excel表中

在lotus中添加操作或者增加共享代理，代码中加入以下内容。保存后，运行即可。

SubClick(SourceAsButton)
DimsAsNewnotessession
DimdbAsnotesdatabase
Setdb=s.currentdatabase
DimcolAsnotesdocumentcollection
DimdocAsnotesdocument
Setcol=db.unprocesseddocuments



REM定义行标题

REM定义列值
DimobjAsVariant
DimexcelWorkbookAsVariant
DimexcelSheetAsVariant
Setobj=CreateObject("Excel.Application")
obj.Visible=True

'找到excel的位置
path=s.getenvironmentstring("directory",True)
gzpath=path+""+"th.xls"
SetexcelWorkbook=obj.Workbooks.Add
SetexcelSheet=excelWorkbook.Worksheets("Sheet1")
'定义义excel的列值
Withobj

Fori=1Tocol.Count
Setdoc=col.getnthdocument(i)
j=0
ForallitIndoc.items
DimitvAsVariant
itv=it.values
nnn1=Int(j/26)
nnn2=jMod26
Ifj<26Then
A=Chr(65+j)+Cstr(i+1)
Else
A=Chr(65+nnn1-1)+Chr(65+nnn2)+Cstr(i+1)
EndIf
.worksheets("sheet1").Range(A).value=itv
j=j+1
EndForall

Next

EndWith

EndSub