535
社区成员
发帖
与我相关
我的任务
分享lotus 代理
我用 Set xlApp = CreateObject("Excel.Application")
在notes中可以运行,但在IE中不行,请指点
在notes中可以运行,但在IE中不行,请指点
...全文
请发表友善的回复…
发表回复
rocketliu8899 2004-09-10
- 打赏
- 举报
'dim session As New NotesSession
Dim GSess As NotesSession '当前工作区
Dim GdbCur As NotesDatabase '当前数据库
'Dim Ldoccur As notesdocument
Dim curdoc As notesdocument '当前IE的文档
Dim xlApp As Variant 'Excel.Application
Dim xlBook As Variant 'Excel.Workbook
Dim xlSheet As Variant 'Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = Nothing
Set xlSheet = Nothing
Dim rowC As Long
Dim rowV As Long
Print "test2"
但打印不出test2
Dim GSess As NotesSession '当前工作区
Dim GdbCur As NotesDatabase '当前数据库
'Dim Ldoccur As notesdocument
Dim curdoc As notesdocument '当前IE的文档
Dim xlApp As Variant 'Excel.Application
Dim xlBook As Variant 'Excel.Workbook
Dim xlSheet As Variant 'Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = Nothing
Set xlSheet = Nothing
Dim rowC As Long
Dim rowV As Long
Print "test2"
但打印不出test2
wormlee 2004-09-10
- 打赏
- 举报
忘了一个双引号，"Excel.Application"
wormlee 2004-09-10
- 打赏
- 举报
如果单就这一句没有错。
我就是这样做，没有问题。再说详细些
dim xlapp as Variant
...
set xlapp=CreateObject("Excel.Application)
我就是这样做，没有问题。再说详细些
dim xlapp as Variant
...
set xlapp=CreateObject("Excel.Application)
rocketliu8899 2004-09-10
- 打赏
- 举报
XIEXIE
rugl 2004-09-10
- 打赏
- 举报
降低IE的安全性试试。
wormlee 2004-09-10
- 打赏
- 举报
楼上的楼上的拷贝是为了防止用户没有装office的owc控件
wormlee 2004-09-10
- 打赏
- 举报
我就是这样做的。
如果不行的话我就只能帮你顶。
如果不行的话我就只能帮你顶。
wormlee 2004-09-10
- 打赏
- 举报
是b/s的。
你的机器装excel了吗？
可以试一试将office安装目录下(...\Microsoft Office\Office\)中的MSOWC.DLL文件拷贝到DOMINO服务器的安装目录(...\lotus\domino\data\domino\html\)
你的机器装excel了吗？
可以试一试将office安装目录下(...\Microsoft Office\Office\)中的MSOWC.DLL文件拷贝到DOMINO服务器的安装目录(...\lotus\domino\data\domino\html\)
rocketliu8899 2004-09-10
- 打赏
- 举报
就是执行到set xlapp=CreateObject("Excel.Application")
就不往下执行了
就不往下执行了
rocketliu8899 2004-09-10
- 打赏
- 举报
是B/S结构的吗
wormlee 2004-09-10
- 打赏
- 举报
dim xlapp as Variant
dim xlbook as Variant
dim xlsheet as Variant
...
set xlapp=CreateObject("Excel.Application")
if isempty(xlapp) then
print "服务器不能创建Excel表"
exit sub
end if
xlapp.visible=False
set xlbook=xlapp.workbooks.add 'add也可以是open 打开一个已经存在的.xls
set xlsheet=xlbook.sheets(1)
xlsheep.cells(i,j).value=... '对excel的数据项赋值
...
dim xlbook as Variant
dim xlsheet as Variant
...
set xlapp=CreateObject("Excel.Application")
if isempty(xlapp) then
print "服务器不能创建Excel表"
exit sub
end if
xlapp.visible=False
set xlbook=xlapp.workbooks.add 'add也可以是open 打开一个已经存在的.xls
set xlsheet=xlbook.sheets(1)
xlsheep.cells(i,j).value=... '对excel的数据项赋值
...
