导出Excel表格。

afass123

各位老大，我导出的Excel，为啥进度条不能满了自动消失（颜色消失），或者直接跑满呢？？？
还有就是我添加了一个百分比%，到了100，它就自动消失了。
附上两张图，有哪个老大教教吗？？？

  

变量名	类 型	静态	数组	备 注
列前字母	文本型
行号	整数型
列号	整数型

删除文件 (取运行目录 () ＋ “\123.xlsx”)
进度条1.最大位置 ＝ i
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
计次循环首 (超级列表框1.取列数 (), 列号)
列前字母 ＝ 字符 (96 ＋ 列号)
' 调试输出 (列号)
Excel工作簿1.首单元格 ＝ 列前字母 ＋ 到文本 (“1”)
Excel工作簿1.尾单元格 ＝ 列前字母 ＋ 到文本 (“1”)
Excel工作簿1.内容格式 ＝ “@”
Excel工作簿1.内容 ＝ 到文本 (超级列表框1.取列标题 (列号))  ' 列号可以调整
计次循环尾 ()
计次循环首 (超级列表框1.取表项数 (), 行号)  ' 此处取出超级列表框的表项内容
计次循环首 (超级列表框1.取列数 (), 列号)
列前字母 ＝ 字符 (96 ＋ 列号)
Excel工作簿1.首单元格 ＝ 列前字母 ＋ 到文本 (行号 ＋ 1)  ' 从标题的下一行开始写入表项数据
Excel工作簿1.尾单元格 ＝ 列前字母 ＋ 到文本 (行号 ＋ 1)  ' 从标题的下一行开始写入表项数据
Excel工作簿1.内容格式 ＝ “@”
Excel工作簿1.内容 ＝ 到文本 (超级列表框1.取标题 (行号 － 1, 列号))  ' 列号可以调整
计次循环尾 ()
进度条1.位置 ＝ 行号
透明标签1.标题 ＝ 到文本 (到整数 (进度条1.位置 ÷ 超级列表框1.取表项数 () × 100)) ＋ “%”
计次循环尾 ()
Excel工作簿1.保存 (取运行目录 () ＋ “\123.xlsx”)
Excel工作簿1.释放 ()
Excel工作簿1.关闭 ()
Excel程序1.释放 ()
Excel程序1.退出 ()
终止进程 (“Excel.exe”)

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库
iext	扩展界面支持库一
eAPI	应用接口支持库

.版本 2<br /> .支持库 eExcel2000<br /> .支持库 iext<br /> .支持库 eAPI<br /> <br /> .局部变量 列前字母, 文本型<br /> .局部变量 行号, 整数型<br /> .局部变量 列号, 整数型<br /> <br /> <br /> 删除文件 (取运行目录 () ＋ “\123.xlsx”)<br /> 进度条1.最大位置 ＝ i<br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> <br /> .计次循环首 (超级列表框1.取列数 (), 列号)<br />     列前字母 ＝ 字符 (96 ＋ 列号)<br />     ' 调试输出 (列号)<br />     Excel工作簿1.首单元格 ＝ 列前字母 ＋ 到文本 (“1”)<br />     Excel工作簿1.尾单元格 ＝ 列前字母 ＋ 到文本 (“1”)<br />     Excel工作簿1.内容格式 ＝ “@”<br />     Excel工作簿1.内容 ＝ 到文本 (超级列表框1.取列标题 (列号))  ' 列号可以调整<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), 行号)  ' 此处取出超级列表框的表项内容<br />     .计次循环首 (超级列表框1.取列数 (), 列号)<br />         列前字母 ＝ 字符 (96 ＋ 列号)<br />         Excel工作簿1.首单元格 ＝ 列前字母 ＋ 到文本 (行号 ＋ 1)  ' 从标题的下一行开始写入表项数据<br />         Excel工作簿1.尾单元格 ＝ 列前字母 ＋ 到文本 (行号 ＋ 1)  ' 从标题的下一行开始写入表项数据<br />         Excel工作簿1.内容格式 ＝ “@”<br />         Excel工作簿1.内容 ＝ 到文本 (超级列表框1.取标题 (行号 － 1, 列号))  ' 列号可以调整<br />     .计次循环尾 ()<br />     进度条1.位置 ＝ 行号<br />     透明标签1.标题 ＝ 到文本 (到整数 (进度条1.位置 ÷ 超级列表框1.取表项数 () × 100)) ＋ “%”<br /> .计次循环尾 ()<br /> <br /> Excel工作簿1.保存 (取运行目录 () ＋ “\123.xlsx”)<br /> Excel工作簿1.释放 ()<br /> Excel工作簿1.关闭 ()<br /> Excel程序1.释放 ()<br /> Excel程序1.退出 ()<br /> 终止进程 (“Excel.exe”)

xf702

加个判断行不行？满格了就禁止显示。。

afass123

xf702 发表于 2024-6-12 17:01
加个判断行不行？满格了就禁止显示。。

那直接还不如，可视=假了。。。

fire9

进度条，隐藏

wh1234567

  

子程序名	返回值类型	公开	备 注
统计行数	文本型		调用方法：统计行数 (编辑框4, 真)
参数名	类 型	参考	可空	数组	备 注
编辑框名称	编辑框
是否包括空行	逻辑型

变量名	类 型	静态	数组	备 注
a	文本型		0
i	编辑框
非空行数	编辑框

如果 (是否包括空行 ＝ 真)
a ＝ 分割文本 (编辑框名称.内容, #换行符, )
返回 (到文本 (取数组成员数 (a)))
计次循环首 (取数组成员数 (a), i)
如果 (a ≠ “”)
非空行数 ＝ 非空行数 ＋ 1



计次循环尾 ()
返回 (到文本 (非空行数))
期待老师帮忙修正一下这个，期待

.版本 2<br /> <br /> .子程序 统计行数, 文本型, , 调用方法：统计行数 (编辑框4, 真)<br /> .参数 编辑框名称, 编辑框<br /> .参数 是否包括空行, 逻辑型<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 i, 编辑框<br /> .局部变量 非空行数, 编辑框<br /> <br /> .如果 (是否包括空行 ＝ 真)<br />     a ＝ 分割文本 (编辑框名称.内容, #换行符, )<br />     返回 (到文本 (取数组成员数 (a)))<br /> .否则<br />     .计次循环首 (取数组成员数 (a), i)<br />         .如果 (a ≠ “”)<br />             非空行数 ＝ 非空行数 ＋ 1<br />         .否则<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     返回 (到文本 (非空行数))<br /> <br /> 期待老师帮忙修正一下这个，期待

rushirushi

有必要在这边边角角上用功么。。。