1、你不可能是无限插入下去吧？肯定要有一个极限！比如是1000行，那么你就做一个循环，后一行的数据等于前一行的数据，循环到最后则第二行的数据到了第三行，然后把当前数据插入到第一行。
2、你在你的表里面随便一个空白的地方记录当前excel表的记录行数，再次打开这个excel时把行数的这个值读到脚本的内部变量（tag）中，然后tag=tag+1脚本修改：
objExcelApp.worksheets ("sheet1").Cells(tag,1).VAlue = HMIRuntime.Tags("riqi").read
objExcelApp.worksheets ("sheet1").Cells(tag,2).VAlue = HMIRuntime.Tags("shijian").read
objExcelApp.worksheets ("sheet1").Cells(tag,3).VAlue = HMIRuntime.Tags("上仓重量_1").read