c/s的结构中，如何将Notes中的附件导入excel,如何将excel中插入的对象导入notes中的一个域
c/s的结构中，如何将Notes中的附件导入excel,如何将excel中插入的对象导入notes中的一个域 问题点数：0、回复次数：4Top
1 楼wvboat（远方）回复于 2005-06-02 11:28:37 得分 0
你看看这两段代码，以前收藏的
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim excelApplication As Variant
Dim excelWorkbook As Variant
Dim excelSheet As Variant
Dim i As Integer
Dim selection As Variant
Set excelApplication = CreateObject("Excel.Application")
excelApplication.Visible = True
'找到excel的位置
path = session.getenvironmentstring("directory",True)
gzpath=path+"\"+"合同.xls"
Set excelWorkbook = excelApplication.Workbooks.Add
Set excelSheet = excelWorkbook.Worksheets("Sheet1")
'定义excel的列植
excelSheet.Cells(1,1).Value = "行业分类"
excelSheet.Cells(1,2).Value = "地市"
excelSheet.Cells(1,3).Value = "签订人"
i = 1
Set db = session.CurrentDatabase
Set view = db.GetView("all")
'这里是你的视图
Set doc = view.GetFirstDocument
While Not(doc Is Nothing)
i = i + 1
excelSheet.Cells(i,1).Value = doc.Pact(0)
excelSheet.Cells(i,2).Value = doc.PactCity(0)
excelSheet.Cells(i,3).Value = doc.PactSigner(0) Set doc = view.GetNextDocument(doc)
Wend
'选择a到c列
excelSheet.columns("a:c").select
excelSheet.Columns("a:c").EntireColumn.AutoFit
'加上表格线
' excelsheet.PageSetup.PrintGridlines = True
End Sub
-------------------------------------------------------------------------------------
Notes R5的CS结构，你看看
'*************************************************************************
'显示数据
'#########################################################################
Dim xlapp As Variant
Dim xlsheet As Variant
'创建一个Excel对象
Set xlapp = createobject("Excel.application")
xlapp.statusbar = "正在创建工作表，请稍等......"
xlapp.visible = True
'添加工作薄
xlapp.workbooks.add
xlapp.referencestyle = 2
'#########################################################################
Set xlsheet = xlapp.workbooks(1).worksheets(1)
'错误分布-按部门统计
'为工作表命名
xlsheet.name = "错误分布-按部门"
xlapp.statusbar = "正在创建单元格，请稍等......"
xlsheet.cells(1,1).value = "部门\不合格类型"
For cols = 1 To rowsBhglx
xlsheet.cells(1,cols + 1).value = keyBhglx(cols)
Next
For rows = 1 To rowsBm
xlsheet.cells(rows + 1,1).value = Cstr(keyBm(rows))
For cols = 1 To rowsBhglx
xlsheet.cells(rows + 1,cols + 1).value = Cstr(arrayBmCw(rows,cols))
Next
Next
'#########################################################################
Set xlsheet = xlapp.workbooks(1).worksheets(2)
'错误分布-按项目统计
'为工作表命名
xlsheet.name = "错误分布-按项目"
xlapp.statusbar = "正在创建单元格，请稍等......"
xlsheet.cells(1,1).value = "项目\不合格类型"
For cols = 1 To rowsBhglx
xlsheet.cells(1,cols + 1).value = keyBhglx(cols)
Next
For rows = 1 To rowsXm
xlsheet.cells(rows + 1,1).value = Cstr(keyXm(rows))
For cols = 1 To rowsBhglx
xlsheet.cells(rows + 1,cols + 1).value = Cstr(arrayXmCw(rows,cols))
Next
Next
'#########################################################################
Set xlsheet = xlapp.workbooks(1).worksheets(3)
'错误分布-按部门统计
'为工作表命名
xlsheet.name = "错误分布-按不合格类型"
xlapp.statusbar = "正在创建单元格，请稍等......"
xlsheet.cells(1,1).value = "不合格类型"
xlsheet.cells(2,1).value = "错误数"
For cols = 1 To rowsBhglx
xlsheet.cells(1,cols + 1).value = keyBhglx(cols)
xlsheet.cells(2,cols + 1).value = Cstr(arrayLcCw(cols))
Next
xlapp.referencestyle = 1
xlapp.statusbar = "数据导入完成。"Top
2 楼sharkclark（大鲨鱼）回复于 2005-06-06 17:28:49 得分 0
收Top
3 楼hanwenjuan3（韩）回复于 2005-06-07 14:00:20 得分 0
dingTop
4 楼drager（drager）回复于 2005-06-21 17:38:57 得分 0
不错，回头测试一下Top
