您的位置：程序门 -> vb -> 基础类

自动替换excel禁止出现对话框的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

自动替换excel禁止出现对话框的问题[已结贴,结贴人:newp]

发表于：2007-07-10 23:09:31 楼主

dim oexcel as excel.workbook
set oexcel = df1.activedocument '使用dsoframer装载excel
oexcel.application.displayalerts = false '禁止出现对话框，但是出现问题 _application不支持displayalerts属性，读出属性没有问题，就是写入就不支持
oexcel.application.cells.replace what:=strsname, replacement:=strdname, lookat:=xlpart, _
searchorder:=xlbyrows, matchcase:=false '实现替换
set oexcel = nothing

问题就是office2000中不加displayalerts也没有对话框，2003中就有没有找到搜索文本的对话框，加了displayalerts又出错，搜索了一个晚上没有结果
求救~~~

发表于：2007-07-11 11:05:011楼得分:0

没有人碰到吗？

发表于：2007-07-11 19:21:472楼得分:100

加：oexcel.application.visible=false试试

下一篇：如何像控制面板中“添加删除程序”一样把一些安装的程序找出来？
上一篇：list的问题

其他资讯