请教下 excel保存弹窗 怎么处理

拉面

搜了很久   都是说 对象.写属性 (“DisplayAlerts”, 假)

但是这个对象 是怎么取的
取表格对象
取表格集对象
取工作簿对象
取工作簿集对象

貌似都不行  是我本机excel2007的问题吗

  

子程序名	返回值类型	公开	备 注
导出excel	逻辑型
参数名	类 型	参考	可空	数组	备 注
高级表格X	高级表格
保存位置	文本型
最后行数	整数型

变量名	类 型	静态	数组	备 注
i	整数型
y	整数型
文本	文本型
文本1	字节集
ii	整数型
文本3	文本型
整数	字节型
excel	对象
是否提示	逻辑型

如果真 (_启动窗口.Excel程序1.创建 () ＝ 假)
信息框 (“Excel 程序创建失败！可能没有安装Excel 2000”, 0, , )
返回 (假)
_启动窗口.Excel工作簿1.置程序 (_启动窗口.Excel程序1)
_启动窗口.Excel工作簿1.打开 (保存位置)
_启动窗口.Excel工作簿1.表格序号 ＝ 1
_启动窗口.Excel程序1.显示 ＝ 假
y ＝ 高级表格X.行数
计次循环首 (y, i)
计次循环首 (高级表格X.列数, ii)
文本1 ＝ 取空白字节集 (1)
如果 (ii ＞ 26)
整数 ＝ 96 ＋ ii － 26
文本1 ＝ 到字节集 (整数)
文本3 ＝ “a” ＋ 到文本 (文本1)
整数 ＝ 96 ＋ ii
文本1 ＝ 到字节集 (整数)
文本3 ＝ 到文本 (文本1) ＋ 到文本 (i)
文本 ＝ 高级表格X.取数据 (i － 1, ii － 1)
设置表格内容 (_启动窗口.Excel工作簿1, 文本3, 文本3, 文本, 最后行数)
计次循环尾 ()
计次循环尾 ()
excel ＝ _启动窗口.Excel工作簿1.取工作簿对象 ()
excel.写属性 (“DisplayAlerts”, 假)
_启动窗口.Excel工作簿1.保存 (保存位置)
_启动窗口.Excel工作簿1.关闭 ()
_启动窗口.Excel工作簿1.释放 ()
_启动窗口.Excel程序1.退出 ()
_启动窗口.Excel程序1.释放 ()
返回 (真)

i支持库列表	支持库注释
eGrid	高级表格支持库
eExcel2000	EXCEL2000支持库

.版本 2<br /> .支持库 eGrid<br /> .支持库 eExcel2000<br /> <br /> .子程序 导出excel, 逻辑型<br /> .参数 高级表格X, 高级表格<br /> .参数 保存位置, 文本型<br /> .参数 最后行数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 文本1, 字节集<br /> .局部变量 ii, 整数型<br /> .局部变量 文本3, 文本型<br /> .局部变量 整数, 字节型<br /> .局部变量 excel, 对象<br /> .局部变量 是否提示, 逻辑型<br /> <br /> .如果真 (_启动窗口.Excel程序1.创建 () ＝ 假)<br />     信息框 (“Excel 程序创建失败！可能没有安装Excel 2000”, 0, , )<br />     返回 (假)<br /> .如果真结束<br /> _启动窗口.Excel工作簿1.置程序 (_启动窗口.Excel程序1)<br /> _启动窗口.Excel工作簿1.打开 (保存位置)<br /> _启动窗口.Excel工作簿1.表格序号 ＝ 1<br /> _启动窗口.Excel程序1.显示 ＝ 假<br /> y ＝ 高级表格X.行数<br /> .计次循环首 (y, i)<br />     .计次循环首 (高级表格X.列数, ii)<br />         文本1 ＝ 取空白字节集 (1)<br />         .如果 (ii ＞ 26)<br />             整数 ＝ 96 ＋ ii － 26<br />             文本1 ＝ 到字节集 (整数)<br />             文本3 ＝ “a” ＋ 到文本 (文本1)<br />         .否则<br />             整数 ＝ 96 ＋ ii<br />             文本1 ＝ 到字节集 (整数)<br />             文本3 ＝ 到文本 (文本1) ＋ 到文本 (i)<br />         .如果结束<br />         文本 ＝ 高级表格X.取数据 (i － 1, ii － 1)<br />         设置表格内容 (_启动窗口.Excel工作簿1, 文本3, 文本3, 文本, 最后行数)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> excel ＝ _启动窗口.Excel工作簿1.取工作簿对象 ()<br /> excel.写属性 (“DisplayAlerts”, 假)<br /> _启动窗口.Excel工作簿1.保存 (保存位置)<br /> _启动窗口.Excel工作簿1.关闭 ()<br /> _启动窗口.Excel工作簿1.释放 ()<br /> _启动窗口.Excel程序1.退出 ()<br /> _启动窗口.Excel程序1.释放 ()<br /> 返回 (真)

易正易则

拉面 发表于 2017-4-1 17:34
还是回弹 不过弹出来不一样了

你试试

新建文件夹.zip (173.88 KB, 下载次数: 61)

2017-4-1 17:36 上传

点击文件名下载附件

易正易则

不要设置路径，把要替换的表格和程序放同一个空文件夹里面试试

秀才遇到兵

.版本 2

    excel.写属性 (“DisplayAlerts”, 假)  ' 屏蔽警告
    excel.写属性 (“ScreenUpdating”, 假)  ' 停止屏幕刷新


‘你那个EXCEL 能创建成功吗？

znsong

易语言 默认Excel程序 好像不支持2007版本

拉面

易正易则 发表于 2017-4-1 17:13
不要设置路径，把要替换的表格和程序放同一个空文件夹里面试试

还是回弹 不过弹出来不一样了


原来是



现在是

拉面

z002304 发表于 2017-4-1 17:19
.版本 2

    excel.写属性 (“DisplayAlerts”, 假)  ' 屏蔽警告

你是说  取对象吗   调试返回是  （？未知？）



补充内容 (2017-4-1 17:36):
我不知道是不是取对象的方法不对

拉面

易正易则 发表于 2017-4-1 17:37
你试试

大大 怎么代理里面 没打开 也没保存的   我这里运行  表格也没有变化 你用什么版本的excel？

易正易则

拉面 发表于 2017-4-1 17:41
大大 怎么代理里面 没打开 也没保存的   我这里运行  表格也没有变化 你用什么版本的excel？

放肆de梦想

拉面 发表于 2017-4-1 17:34
还是回弹 不过弹出来不一样了

先判断文件是否存在，再导出，之前试过这个，好像是用另存为，没有弹窗