用对象型方法把超级列表框导出excel，出错，求指导

ztinsn

  

数据 ＝ 取运行目录 () ＋ “\” ＋ “出库数据” ＋ 到文本 (到文本 (取年份 (取现行时间 ())) ＋ 到文本 (取月份 (取现行时间 ())) ＋ 到文本 (取日 (取现行时间 ())) ＋ 到文本 (取小时 (取现行时间 ())) ＋ “.xlsx”)
程序对象.创建 (“excel.application”, )
程序对象.写属性 (“visible”, 真)
程序对象.读对象型属性 (“workbooks”, ).方法 (“open”, 数据)
工作簿集 ＝ 程序对象.读对象型属性 (“workbooks”, )
工作簿 ＝ 程序对象.读对象型属性 (“activeworkbook”, )
表格集 ＝ 程序对象.读对象型属性 (“worksheets”, )
表格 ＝ 程序对象.读对象型属性 (“activesheet”, )
单元格 ＝ 程序对象.读对象型属性 (“cells”, )
函数 ＝ 程序对象.读对象型属性 (“worksheetsfunction”, )
计次循环首 (超级列表框1.取列数 (), l)
单号 ＝ 到文本 (超级列表框1.取标题 (l － 1, 0))
姓名 ＝ 到文本 (超级列表框1.取标题 (l － 1, 1))
果型 ＝ 到文本 (超级列表框1.取标题 (l － 1, 2))
毛重 ＝ 到文本 (超级列表框1.取标题 (l － 1, 3))
单皮重 ＝ 到文本 (超级列表框1.取标题 (l － 1, 4))
皮框数 ＝ 到文本 (超级列表框1.取标题 (l － 1, 5))
净重 ＝ 到文本 (超级列表框1.取标题 (l － 1, 6))
单价 ＝ 到文本 (超级列表框1.取标题 (l － 1, 7))
小计 ＝ 到文本 (超级列表框1.取标题 (l － 1, 8))
备注 ＝ 到文本 (超级列表框1.取标题 (l － 1, 9))
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “A” ＋ 到文本 (l)).写属性 (“value”, 单号)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “B” ＋ 到文本 (l)).写属性 (“value”, 姓名)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “C” ＋ 到文本 (l)).写属性 (“value”, 果型)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “D” ＋ 到文本 (l)).写属性 (“value”, 毛重)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “E” ＋ 到文本 (l)).写属性 (“value”, 单皮重)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “F” ＋ 到文本 (l)).写属性 (“value”, 皮框数)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “G” ＋ 到文本 (l)).写属性 (“value”, 净重)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “H” ＋ 到文本 (l)).写属性 (“value”, 单价)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “I” ＋ 到文本 (l)).写属性 (“value”, 小计)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “J” ＋ 到文本 (l)).写属性 (“value”, 备注)
' 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “A” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “合计”)
' 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “D” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（d2:D” ＋ 到文本 (h ＋ 1) ＋ “)”)
' ' 调试输出 (单号, 姓名, 果型, 毛重, 单皮重, 净重, 单价, 小计, 备注, “A” ＋ 到文本 (l))
调试输出 (“A” ＋ 到文本 (l), 单号, 毛重)
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> 数据 ＝ 取运行目录 () ＋ “\” ＋ “出库数据” ＋ 到文本 (到文本 (取年份 (取现行时间 ())) ＋ 到文本 (取月份 (取现行时间 ())) ＋ 到文本 (取日 (取现行时间 ())) ＋ 到文本 (取小时 (取现行时间 ())) ＋ “.xlsx”)<br /> 程序对象.创建 (“excel.application”, )<br /> 程序对象.写属性 (“visible”, 真)<br /> 程序对象.读对象型属性 (“workbooks”, ).方法 (“open”, 数据)<br /> 工作簿集 ＝ 程序对象.读对象型属性 (“workbooks”, )<br /> 工作簿 ＝ 程序对象.读对象型属性 (“activeworkbook”, )<br /> 表格集 ＝ 程序对象.读对象型属性 (“worksheets”, )<br /> 表格 ＝ 程序对象.读对象型属性 (“activesheet”, )<br /> 单元格 ＝ 程序对象.读对象型属性 (“cells”, )<br /> 函数 ＝ 程序对象.读对象型属性 (“worksheetsfunction”, )<br /> .计次循环首 (超级列表框1.取列数 (), l)<br />     单号 ＝ 到文本 (超级列表框1.取标题 (l － 1, 0))<br />     姓名 ＝ 到文本 (超级列表框1.取标题 (l － 1, 1))<br />     果型 ＝ 到文本 (超级列表框1.取标题 (l － 1, 2))<br />     毛重 ＝ 到文本 (超级列表框1.取标题 (l － 1, 3))<br />     单皮重 ＝ 到文本 (超级列表框1.取标题 (l － 1, 4))<br />     皮框数 ＝ 到文本 (超级列表框1.取标题 (l － 1, 5))<br />     净重 ＝ 到文本 (超级列表框1.取标题 (l － 1, 6))<br />     单价 ＝ 到文本 (超级列表框1.取标题 (l － 1, 7))<br />     小计 ＝ 到文本 (超级列表框1.取标题 (l － 1, 8))<br />     备注 ＝ 到文本 (超级列表框1.取标题 (l － 1, 9))<br /> <br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “A” ＋ 到文本 (l)).写属性 (“value”, 单号)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “B” ＋ 到文本 (l)).写属性 (“value”, 姓名)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “C” ＋ 到文本 (l)).写属性 (“value”, 果型)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “D” ＋ 到文本 (l)).写属性 (“value”, 毛重)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “E” ＋ 到文本 (l)).写属性 (“value”, 单皮重)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “F” ＋ 到文本 (l)).写属性 (“value”, 皮框数)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “G” ＋ 到文本 (l)).写属性 (“value”, 净重)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “H” ＋ 到文本 (l)).写属性 (“value”, 单价)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “I” ＋ 到文本 (l)).写属性 (“value”, 小计)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “J” ＋ 到文本 (l)).写属性 (“value”, 备注)<br />     ' 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “A” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “合计”)<br />     ' 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “D” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（d2:D” ＋ 到文本 (h ＋ 1) ＋ “)”)<br />     ' ' 调试输出 (单号, 姓名, 果型, 毛重, 单皮重, 净重, 单价, 小计, 备注, “A” ＋ 到文本 (l))<br />     调试输出 (“A” ＋ 到文本 (l), 单号, 毛重)<br /> .计次循环尾 ()

以上的代码，为什么导出的excel后，第二行的部分数据为0？




求大神指导。

ztinsn

已经解决。

阿杰

怎么解决的能分享下源码吗

ztinsn

阿杰 发表于 2026-1-29 19:56
怎么解决的能分享下源码吗

我忘记怎么解决的。源码可以让你看看。不是很会，写的乱。

  

变量名	类 型	静态	数组	备 注
数据	文本型
h	整数型
程序对象	对象
工作簿集	对象
工作簿	对象
表格集	对象
表格	对象
单元格	对象
函数	对象
X	整数型
单号	文本型
姓名	文本型
果型	文本型
毛重	文本型
单皮重	文本型
皮框数	文本型
净重	文本型
单价	文本型
小计	文本型
备注	文本型

数据 ＝ 取运行目录 () ＋ “\” ＋ “入库数据.xlsx”
删除文件 (数据)
程序对象.创建 (“Excel.Application”, )
程序对象.写属性 (“Visible”, 假)
程序对象.读对象型属性 (“Workbooks”, ).方法 (“Add”, )
程序对象.读对象型属性 (“ActiveWorkbook”, ).方法 (“Saveas”, 数据, 51)
程序对象.方法 (“Close”, 假)
程序对象.方法 (“Quit”, )
程序对象.清除 ()
程序对象.创建 (“excel.application”, )
程序对象.写属性 (“visible”, 真)
程序对象.读对象型属性 (“workbooks”, ).方法 (“open”, 数据)
工作簿集 ＝ 程序对象.读对象型属性 (“workbooks”, )
工作簿 ＝ 程序对象.读对象型属性 (“activeworkbook”, )
表格集 ＝ 程序对象.读对象型属性 (“worksheets”, )
表格 ＝ 程序对象.读对象型属性 (“activesheet”, )
单元格 ＝ 程序对象.读对象型属性 (“cells”, )
函数 ＝ 程序对象.读对象型属性 (“worksheetsfunction”, )
X ＝ 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“usedrange”, ).读对象型属性 (“Rows”, ).读数值属性 (“count”, )
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “A1”).写属性 (“value”, “单号”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “B1”).写属性 (“value”, “姓名”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “C1”).写属性 (“value”, “果型”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “D1”).写属性 (“value”, “毛重”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “E1”).写属性 (“value”, “单皮重”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “F1”).写属性 (“value”, “皮框数”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “G1”).写属性 (“value”, “净重”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “H1”).写属性 (“value”, “单价”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “I1”).写属性 (“value”, “小计”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “J1”).写属性 (“value”, “备注”)
计次循环首 (超级列表框1.取表项数 (), h)
单号 ＝ 到文本 (超级列表框1.取标题 (h － 1, 0))
姓名 ＝ 到文本 (超级列表框1.取标题 (h － 1, 1))
果型 ＝ 到文本 (超级列表框1.取标题 (h － 1, 2))
毛重 ＝ 到文本 (超级列表框1.取标题 (h － 1, 3))
单皮重 ＝ 到文本 (超级列表框1.取标题 (h － 1, 4))
皮框数 ＝ 到文本 (超级列表框1.取标题 (h － 1, 5))
净重 ＝ 到文本 (超级列表框1.取标题 (h － 1, 6))
单价 ＝ 到文本 (超级列表框1.取标题 (h － 1, 7))
小计 ＝ 到文本 (超级列表框1.取标题 (h － 1, 8))
备注 ＝ 到文本 (超级列表框1.取标题 (h － 1, 9))
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “A” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 单号)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “B” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 姓名)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “C” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 果型)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “D” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 毛重)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “E” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 单皮重)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “F” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 皮框数)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “G” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 净重)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “H” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 单价)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “I” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 小计)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “J” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 备注)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “A” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “合计”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “D” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（d2:D” ＋ 到文本 (h ＋ 1) ＋ “)”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “E” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（E2:E” ＋ 到文本 (h ＋ 1) ＋ “)”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “F” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（F2:F” ＋ 到文本 (h ＋ 1) ＋ “)”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “G” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（G2:G” ＋ 到文本 (h ＋ 1) ＋ “)”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “H” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（H2:H” ＋ 到文本 (h ＋ 1) ＋ “)”)
表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “I” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（I2:I” ＋ 到文本 (h ＋ 1) ＋ “)”)
计次循环尾 ()
程序对象.清除 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .局部变量 数据, 文本型<br /> .局部变量 h, 整数型<br /> .局部变量 程序对象, 对象<br /> .局部变量 工作簿集, 对象<br /> .局部变量 工作簿, 对象<br /> .局部变量 表格集, 对象<br /> .局部变量 表格, 对象<br /> .局部变量 单元格, 对象<br /> .局部变量 函数, 对象<br /> .局部变量 X, 整数型<br /> .局部变量 单号, 文本型<br /> .局部变量 姓名, 文本型<br /> .局部变量 果型, 文本型<br /> .局部变量 毛重, 文本型<br /> .局部变量 单皮重, 文本型<br /> .局部变量 皮框数, 文本型<br /> .局部变量 净重, 文本型<br /> .局部变量 单价, 文本型<br /> .局部变量 小计, 文本型<br /> .局部变量 备注, 文本型<br /> <br /> 数据 ＝ 取运行目录 () ＋ “\” ＋ “入库数据.xlsx”<br /> <br /> 删除文件 (数据)<br /> 程序对象.创建 (“Excel.Application”, )<br /> 程序对象.写属性 (“Visible”, 假)<br /> 程序对象.读对象型属性 (“Workbooks”, ).方法 (“Add”, )<br /> 程序对象.读对象型属性 (“ActiveWorkbook”, ).方法 (“Saveas”, 数据, 51)<br /> 程序对象.方法 (“Close”, 假)<br /> 程序对象.方法 (“Quit”, )<br /> 程序对象.清除 ()<br /> <br /> 程序对象.创建 (“excel.application”, )<br /> 程序对象.写属性 (“visible”, 真)<br /> 程序对象.读对象型属性 (“workbooks”, ).方法 (“open”, 数据)<br /> <br /> <br /> 工作簿集 ＝ 程序对象.读对象型属性 (“workbooks”, )<br /> 工作簿 ＝ 程序对象.读对象型属性 (“activeworkbook”, )<br /> 表格集 ＝ 程序对象.读对象型属性 (“worksheets”, )<br /> 表格 ＝ 程序对象.读对象型属性 (“activesheet”, )<br /> 单元格 ＝ 程序对象.读对象型属性 (“cells”, )<br /> 函数 ＝ 程序对象.读对象型属性 (“worksheetsfunction”, )<br /> X ＝ 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“usedrange”, ).读对象型属性 (“Rows”, ).读数值属性 (“count”, )<br /> 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “A1”).写属性 (“value”, “单号”)<br /> 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “B1”).写属性 (“value”, “姓名”)<br /> 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “C1”).写属性 (“value”, “果型”)<br /> 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “D1”).写属性 (“value”, “毛重”)<br /> 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “E1”).写属性 (“value”, “单皮重”)<br /> 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “F1”).写属性 (“value”, “皮框数”)<br /> 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “G1”).写属性 (“value”, “净重”)<br /> 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “H1”).写属性 (“value”, “单价”)<br /> 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “I1”).写属性 (“value”, “小计”)<br /> 表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “J1”).写属性 (“value”, “备注”)<br /> .计次循环首 (超级列表框1.取表项数 (), h)<br /> <br />     单号 ＝ 到文本 (超级列表框1.取标题 (h － 1, 0))<br />     姓名 ＝ 到文本 (超级列表框1.取标题 (h － 1, 1))<br />     果型 ＝ 到文本 (超级列表框1.取标题 (h － 1, 2))<br />     毛重 ＝ 到文本 (超级列表框1.取标题 (h － 1, 3))<br />     单皮重 ＝ 到文本 (超级列表框1.取标题 (h － 1, 4))<br />     皮框数 ＝ 到文本 (超级列表框1.取标题 (h － 1, 5))<br />     净重 ＝ 到文本 (超级列表框1.取标题 (h － 1, 6))<br />     单价 ＝ 到文本 (超级列表框1.取标题 (h － 1, 7))<br />     小计 ＝ 到文本 (超级列表框1.取标题 (h － 1, 8))<br />     备注 ＝ 到文本 (超级列表框1.取标题 (h － 1, 9))<br /> <br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “A” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 单号)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “B” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 姓名)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “C” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 果型)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “D” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 毛重)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “E” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 单皮重)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “F” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 皮框数)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “G” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 净重)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “H” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 单价)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “I” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 小计)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “J” ＋ 到文本 (h ＋ 1)).写属性 (“value”, 备注)<br /> <br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “A” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “合计”)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “D” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（d2:D” ＋ 到文本 (h ＋ 1) ＋ “)”)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “E” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（E2:E” ＋ 到文本 (h ＋ 1) ＋ “)”)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “F” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（F2:F” ＋ 到文本 (h ＋ 1) ＋ “)”)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “G” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（G2:G” ＋ 到文本 (h ＋ 1) ＋ “)”)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “H” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（H2:H” ＋ 到文本 (h ＋ 1) ＋ “)”)<br />     表格集.读对象型属性 (“Item”, 1).读对象型属性 (“cells”, ).读对象型属性 (“range”, “I” ＋ 到文本 (h ＋ 2)).写属性 (“value”, “=sum（I2:I” ＋ 到文本 (h ＋ 1) ＋ “)”)<br /> .计次循环尾 ()<br /> 程序对象.清除 ()