表格问题求助

yzw011

来个大哥帮忙改下，件数多了各式错了

500156946024	8
760134959704	20

50015694602400080008         正确7601349597040002000020     错误  
76013495970400200020
工作表索引 ＝ 1  ' 读取的表
工作表索引1 ＝ 2  ' 输出的表表
已用行数 ＝ 表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“UsedRange”, ).读对象型属性 (“Rows”, ).读数值属性 (“Count”, )
.计次循环首 (已用行数, i)
    .如果真 (i ＞ 1)
        运单号 ＝ 表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Cells”, ).读对象型属性 (“Range”, “A” ＋ 到文本 (i)).读文本属性 (“Value”, )
        件数 ＝ 到整数 (表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Cells”, ).读对象型属性 (“Range”, “B” ＋ 到文本 (i)).读文本属性 (“Value”, ))
        .计次循环首 (件数, n)
            单元格内容 ＝ 运单号 ＋ “000” ＋ 到文本 (件数) ＋ “000” ＋ 到文本 (n)
            已用行数1 ＝ 已用行数1 ＋ 1
            表格集.读对象型属性 (“Item”, 工作表索引1).读对象型属性 (“Cells”, ).读对象型属性 (“RANGE”, “A” ＋ 到文本 (已用行数1 ＋ 1)).写属性 (“NumberFormat”, “@”)
            表格集.读对象型属性 (“Item”, 工作表索引1).读对象型属性 (“Cells”, ).读对象型属性 (“Range”, “A” ＋ 到文本 (已用行数1 ＋ 1)).写属性 (“Value”, 单元格内容)

        .计次循环尾 ()
    .如果真结束

.计次循环尾 ()





补充内容 (2024-4-22 15:16):
50015694602400080008      正确
7601349597040002000020    错误  
76013495970400200020      输出位数是20位是对的

赤璃琴殇

  

判断 (取文本长度 (件数) ＜ 3 且 取文本长度 (件数) ＝ 2)
件数 ＝ “0” ＋ 件数
判断 (取文本长度 (件数) ＜ 3 且 取文本长度 (件数) ＝ 1)
件数 ＝ “00” ＋ 件数

.版本 2<br /> <br /> .判断开始 (取文本长度 (件数) ＜ 3 且 取文本长度 (件数) ＝ 2)<br />     件数 ＝ “0” ＋ 件数<br /> .判断 (取文本长度 (件数) ＜ 3 且 取文本长度 (件数) ＝ 1)<br />     件数 ＝ “00” ＋ 件数<br /> .默认

件数补下0就行了   让它始终保持3位


补充内容 (2024-4-22 23:47):
同理  后面的序号也是按这个规则  补0就行了   之前写的强制补三个0超长了

zzdd2215415

excl 格式问题

赤璃琴殇

这不是我写的么 。。。。因为那个单元格内容拼接我写死了  中间间隔3个0   没考虑你件数还有超过9个的

你根据件数长度在前面补0啊