| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 458 人关注过本帖
标题:EXCEL表格处理问题:做删除操作时如何不让EXCEL弹出提示框?
只看楼主 加入收藏
zzpzzpzzp
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2013-3-3
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:7 
EXCEL表格处理问题:做删除操作时如何不让EXCEL弹出提示框?
oExcel.cells.Select
oExcel.Selection.ClearContents

搜索更多相关主题的帖子: 表格 EXCEL 如何 
2013-03-07 00:47
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:7 
程序代码:
eole=CREATEOBJECT('Excel.application')
eole.SheetsInNewWorkbook=1
eole.Workbooks.add
eole.WorkSheets("Sheet1").Name="新表"
eole.visible=.t.
FOR I=1 TO 10
    eole.Cells(I,5).Value=REPLICATE(CHR(64+I),10)
ENDFOR
*!*    eole.ActiveSheet.Range("E1").Select
*!*    eole. ActiveSheet.Range("E1").Clear
EOLE.cells.Select
EOLE.Selection.ClearContents
没有楼主所说的提示框出现

坚守VFP最后的阵地
2013-03-07 06:24
zzpzzpzzp
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2013-3-3
收藏
得分:0 
谢谢版主,不好意思我的代码没放全,可能是关闭表示出现的提示框,没有做删除时没提示框!
oExcel.ActiveWorkbook.save
oExcel.ActiveSheet.PrintOut
oExcel.Selection.ClearContents
oExcel.Workbooks.CLOSE
oExcel.QUIT
RELEASE oExcel
2013-03-07 22:59
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
收藏
得分:7 
以下是引用zzpzzpzzp在2013-3-7 22:59:15的发言:

谢谢版主,不好意思我的代码没放全,可能是关闭表示出现的提示框,没有做删除时没提示框!
oExcel.ActiveWorkbook.save
oExcel.ActiveSheet.PrintOut
oExcel.Selection.ClearContents
oExcel.Workbooks.CLOSE
oExcel.QUIT
RELEASE oExcel
把语句 oExcel.ActiveWorkbook.save 调换一下,关键是调到oExcel.Workbooks.CLOSE前,目的保证此后再没修改EXCEL表的动作。

oExcel.ActiveSheet.PrintOut
oExcel.Selection.ClearContents

oExcel.ActiveWorkbook.save
oExcel.Workbooks.CLOSE
oExcel.QUIT
RELEASE oExcel


2013-03-08 12:02
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:7 
oExcel.DisplayAlerts = .F.  &&加这条命令试试
oExcel.ActiveWorkbook.save
oExcel.ActiveSheet.PrintOut
oExcel.Selection.ClearContents
oExcel.Workbooks.CLOSE
oExcel.QUIT
RELEASE oExcel

相互学习,互相交流,共同提高。
2013-03-08 20:14
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
EOLE=CREATEOBJECT('EXCEL.APPLICATION')
EOLE.SHEETSINNEWWORKBOOK=1
EOLE.WORKBOOKS.ADD
EOLE.WORKSHEETS("SHEET1").NAME="新表"
FOR I=1 TO 10
    EOLE.CELLS(I,5).VALUE=REPLICATE(CHR(64+I),10)
ENDFOR
EOLE.CELLS.SELECT
EOLE.SELECTION.CLEARCONTENTS
EOLE.ACTIVEWORKBOOK.CLOSE(.F.)
EOLE.QUIT
RELEASE EOLE

坚守VFP最后的阵地
2013-03-08 21:40
zzpzzpzzp
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2013-3-3
收藏
得分:0 
以下是引用qjbzjp在2013-3-8 20:14:35的发言:

oExcel.DisplayAlerts = .F.  &&加这条命令试试
oExcel.ActiveWorkbook.save
oExcel.ActiveSheet.PrintOut
oExcel.Selection.ClearContents
oExcel.Workbooks.CLOSE
oExcel.QUIT
RELEASE oExcel

谢谢,很管用
2013-03-09 15:11
zzpzzpzzp
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2013-3-3
收藏
得分:0 
以下是引用kiff在2013-3-8 12:02:49的发言:

把语句 oExcel.ActiveWorkbook.save 调换一下,关键是调到oExcel.Workbooks.CLOSE前,目的保证此后再没修改EXCEL表的动作。

oExcel.ActiveSheet.PrintOut
oExcel.Selection.ClearContents

oExcel.ActiveWorkbook.save
oExcel.Workbooks.CLOSE
oExcel.QUIT
RELEASE oExcel

很管用。十分感谢
2013-03-09 15:13
快速回复:EXCEL表格处理问题:做删除操作时如何不让EXCEL弹出提示框?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029713 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved