超级列表框保存xls表格时，不想提示覆盖

ztinsn

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_服务器1_数据到达

变量名	类 型	静态	数组	备 注
索引	整数型
文件号	文本型
i	整数型
文本组	文本型		0
表项	整数型
文本	文本型
X1	整数型
X	整数型

Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 (取运行目录 () ＋ “\” ＋ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取日 (取现行时间 ())) ＋ “.xls”)
Excel工作簿1.表格序号 ＝ 1
文本 ＝ 取字节集数据 (服务器1.取回数据 (), #文本型, )
' 取回数据
文本组 ＝ 分割文本 (文本, “，”, )
' 导入到Excel时以汉文，分割需求数据。
表项 ＝ 超级列表框1.插入表项 (, , , , , )
计次循环首 (取数组成员数 (文本组), i)
超级列表框1.置标题 (表项, i － 1, 文本组 [i])
计次循环尾 ()
计次循环首 (超级列表框1.取列数 (), X1)
Excel工作簿1.首单元格 ＝ 多项选择 (X1, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “AA”, “AB”, “AC”, “AD”, “AE”, “AF”, “AG”, “AH”, “AI”, “AJ”, “AK”, “AL”) ＋ “1”
Excel工作簿1.尾单元格 ＝ 多项选择 (X1, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “AA”, “AB”, “AC”, “AD”, “AE”, “AF”, “AG”, “AH”, “AI”, “AJ”, “AK”, “AL”) ＋ “1”
Excel工作簿1.内容 ＝ 超级列表框1.取列标题 (X1 － 1)
计次循环尾 ()
计次循环首 (超级列表框1.取表项数 (), X)
计次循环首 (超级列表框1.取列数 (), X1)
Excel工作簿1.首单元格 ＝ 多项选择 (X1, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “AA”, “AB”, “AC”, “AD”, “AE”, “AF”, “AG”, “AH”, “AI”, “AJ”, “AK”, “AL”) ＋ 到文本 (X ＋ 1)
Excel工作簿1.尾单元格 ＝ 多项选择 (X1, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “AA”, “AB”, “AC”, “AD”, “AE”, “AF”, “AG”, “AH”, “AI”, “AJ”, “AK”, “AL”) ＋ 到文本 (X ＋ 1)
Excel工作簿1.内容 ＝ 超级列表框1.取标题 (X － 1, X1 － 1)
计次循环尾 ()
计次循环尾 ()
Excel工作簿1.保存 (取运行目录 () ＋ “\” ＋ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取日 (取现行时间 ())) ＋ “.xls”)
Excel工作簿1.关闭 ()

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eExcel2000<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _服务器1_数据到达<br /> .局部变量 索引, 整数型<br /> .局部变量 文件号, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 文本组, 文本型, , "0"<br /> .局部变量 表项, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 X1, 整数型<br /> .局部变量 X, 整数型<br /> <br /> <br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> Excel工作簿1.打开 (取运行目录 () ＋ “\” ＋ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取日 (取现行时间 ())) ＋ “.xls”)<br /> Excel工作簿1.表格序号 ＝ 1<br /> <br /> 文本 ＝ 取字节集数据 (服务器1.取回数据 (), #文本型, )<br /> ' 取回数据<br /> <br /> 文本组 ＝ 分割文本 (文本, “，”, )<br /> ' 导入到Excel时以汉文，分割需求数据。<br /> <br /> 表项 ＝ 超级列表框1.插入表项 (, , , , , )<br /> <br /> .计次循环首 (取数组成员数 (文本组), i)<br />     超级列表框1.置标题 (表项, i － 1, 文本组 <i>)<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (超级列表框1.取列数 (), X1)<br />     Excel工作簿1.首单元格 ＝ 多项选择 (X1, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “AA”, “AB”, “AC”, “AD”, “AE”, “AF”, “AG”, “AH”, “AI”, “AJ”, “AK”, “AL”) ＋ “1”<br />     Excel工作簿1.尾单元格 ＝ 多项选择 (X1, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “AA”, “AB”, “AC”, “AD”, “AE”, “AF”, “AG”, “AH”, “AI”, “AJ”, “AK”, “AL”) ＋ “1”<br />     Excel工作簿1.内容 ＝ 超级列表框1.取列标题 (X1 － 1)<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), X)<br /> <br />     .计次循环首 (超级列表框1.取列数 (), X1)<br />         Excel工作簿1.首单元格 ＝ 多项选择 (X1, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “AA”, “AB”, “AC”, “AD”, “AE”, “AF”, “AG”, “AH”, “AI”, “AJ”, “AK”, “AL”) ＋ 到文本 (X ＋ 1)<br />         Excel工作簿1.尾单元格 ＝ 多项选择 (X1, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “AA”, “AB”, “AC”, “AD”, “AE”, “AF”, “AG”, “AH”, “AI”, “AJ”, “AK”, “AL”) ＋ 到文本 (X ＋ 1)<br />         Excel工作簿1.内容 ＝ 超级列表框1.取标题 (X － 1, X1 － 1)<br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()<br /> <br /> Excel工作簿1.保存 (取运行目录 () ＋ “\” ＋ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取日 (取现行时间 ())) ＋ “.xls”)<br /> Excel工作簿1.关闭 ()

客户Duan编辑新数据时，点上传，数据经过分割写入服务端超级列表框，写完后，服务端超级列表框保存一个xls文件到运行目录。客户Duan每次上传后，服务端保存时，提示是否覆盖，相当于我们粘贴同名文件询问是否覆盖一样。现在想让它不提示，直接覆盖。新手，找不到思路。大神来指点。

w80561307

1.删除同文件名内容后写出；
2.替换使用导入导出模块，进行导出操作

b0y

删除文件(取运行目录 () ＋ “\” ＋ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取日 (取现行时间 ())) ＋ “.xls”)

kike

如果你在Excel工作簿1.保存那里加上时间年月日时分秒的话确定不会提示

afu45

打开前 先删一下就可以了
不管文件存在不存在

jiajia0704

支持作品。。。。。。。。。。。。。。