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

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

 

Sub Click(Source As Button)
    Dim s As New notessession
    Dim db As notesdatabase
    Set db=s.currentdatabase
    Dim col As notesdocumentcollection
    Dim doc As notesdocument
    Set col=db.unprocesseddocuments
    
    
    
REM 定义行标题    
    
REM 定义列值
    Dim obj As Variant 
    Dim excelWorkbook As Variant 
    Dim excelSheet As Variant 
    Set obj = CreateObject("Excel.Application") 
    obj.Visible = True 
    
'找到excel的位置
    path = s.getenvironmentstring("directory",True)
    gzpath=path+""+"th.xls"
    Set excelWorkbook = obj.Workbooks.Add 
    Set excelSheet = excelWorkbook.Worksheets("Sheet1") 
'定义义excel的列值
    With obj
        
        For i=1 To col.Count            
            Set doc=col.getnthdocument(i)
            j=0
            Forall it In doc.items
                Dim itv As Variant
                itv=it.values
                nnn1=Int(j/26)
                nnn2=j Mod 26    
                If j<26 Then
                    A=Chr(65+j)+Cstr(i+1)
                Else
                    A=Chr(65+nnn1-1)+Chr(65+nnn2)+Cstr(i+1)
                End If        
                .worksheets("sheet1").Range(A).value =itv
                j=j+1
            End Forall
            
        Next
        
    End With
    
End Sub