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

vb编程操作excel时如何取消确认对话框的提示？

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

vb编程操作excel时如何取消确认对话框的提示？[已结贴,结贴人:zhenjie]

发表于：2007-09-19 10:45:22 楼主

set g_xlapp = new excel.application
set wkbbooks = g_xlapp.workbooks
wkbbooks.open （g_strprrootpath & g_strnewworkbook & ".xls ")
set wkbbooktarget= wkbbooks（g_strprrootpath & g_strnewworkbook & ".xls ")
wkbbooktarget.worksheets（i + 1).delete => 程序运行到此处总是提示删除确认对话框
wkbbooktarget.close yes => 程序运行到此处总是提示保存提示对话框

发表于：2007-09-19 11:04:311楼得分:10

g_xlapp.displayalerts = false
wkbbooktarget.worksheets（i + 1).delete
g_xlapp.displayalerts = true

发表于：2007-09-19 11:37:522楼得分:10

同意楼上的,关闭系统警告就可以了~~

发表于：2007-09-19 16:13:223楼得分:0

我先试验一下，在决定是否给分！

发表于：2007-09-19 16:38:184楼得分:0

我试验了一下，发现提示没有了，但是发现默认的情况是没有把我作的改动（即删除动作）完成，能否给提供一个默认参数作为保留改动的呢？
wkbbooktarget.worksheets（i + 1).delete => 程序运行到此处总是提示删除确认对话框
wkbbooktarget.close yes => 程序运行到此处总是提示保存提示对话框

发表于：2007-09-20 08:46:395楼得分:0

我改动成如下样子就满足要求了，关键是要每个动作的前后都要设定那个禁止系统警告的提示才行。另外，要先明显的存一下，再关闭才可以保存修改动作。直接关闭默认不保存修改动作。
g_xlapp.displayalerts = false
wkbbooktarget.worksheets（ "sheet1 ").delete
g_xlapp.displayalerts = true
g_xlapp.displayalerts = false
wkbbooktarget.save
g_xlapp.displayalerts = true
wkbbooktarget.close

下一篇：利用api实现图像的旋转
上一篇：怎么样把string 转为decimal

其他资讯