将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