Dim fso,myfile
Set fso = CreateObject("s cripting.FileSystemObject")
Set MyFile = fso.GetFile("d:\liaopi.xls")
Dim ObjExcelApp
Set objExcelApp = CreateObject("Excel.Application")
'objExcelApp.Visible = True
objExcelApp.Workbooks.Open MyFile
objExcelApp.worksheets ("sheet1").Cells(2,1).VAlue = HMIRuntime.Tags("riqi").read
objExcelApp.worksheets ("sheet1").Cells(2,2).VAlue = HMIRuntime.Tags("shijian").read
objExcelApp.worksheets ("sheet1").Cells(2,3).VAlue = HMIRuntime.Tags("上仓重量_1").read
objExcelApp.ActiveWorkbook.Save
coldold.Write

End Sub
现在的问题是如何让它每运行一次这个脚本 就一行一行的自动生成下去，而不是始终在这一行里？
谢谢

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