lotus数据导到sql
ge127 2009-03-10 01:19:37 请问下:lotus数据导到sql怎样弄?
我在网上找了下资料,找到如下的代码,其作用是把所有表单的域导到excel中,但不知道哪里出问题不能导出。
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
文章出处:DIY部落(http://www.diybl.com/course/1_web/webjs/20071226/95079.html)