程序如下，数据能够进入excel，但是在excel中只有1行，我想每记录一次数据就出现一行，但是现在程序新的数据会将旧的覆盖最后只剩一行数据，帮忙看看出了什么问题
Function action

Dim x
x=HMIRuntime.Tags("test1").Read
x=x+1
HMIRuntime.Tags("test1").Write x

Dim tNow
Dim trecord
tNow=Now()

Dim objExcelApp,objExcelBook,objExcelSheet,sheetname
Dim column
sheetname="Sheet2"
''创建对象
Set objExcelApp=CreateObject("Excel.Application")
objExcelApp.visible=False''True
objExcelApp.workbooks.open"c:\test.xlsx" ''这个路径里的文件名字用英文的，不要用中文的
objExcelApp.DisplayAlerts = False
objExcelApp.Worksheets(sheetname).Activate

''实时数据写入

trecord=CStr(Year(tNow)) & "年" & CStr(Month(tNow)) & "月" & CStr(Day(tNow)) & "日" & CStr

(Hour(tNow))& "时" & CStr(Minute(tNow))& "分"
column=HMIRuntime.Tags("column").Read

column=column+1
''Do While column<24
''objExcelApp.Worksheets(sheetname).cells(2,1).value=Day(Now)
objExcelApp.Worksheets(sheetname).cells(column,1).value=trecord
objExcelApp.Worksheets(sheetname).cells(column,2).value=HMIRuntime.Tags("test1").Read
objExcelApp.Worksheets(sheetname).cells(column,3).value=HMIRuntime.Tags("VD420").Read
objExcelApp.Worksheets(sheetname).cells(column,4).value=HMIRuntime.Tags("VD424").Read
objExcelApp.Worksheets(sheetname).cells(column,5).value=HMIRuntime.Tags("VD428").Read
objExcelApp.Worksheets(sheetname).cells(column,6).value=HMIRuntime.Tags("VD432").Read
objExcelApp.Worksheets(sheetname).cells(column,7).value=HMIRuntime.Tags("VD436").Read
objExcelApp.Worksheets(sheetname).cells(column,8).value=HMIRuntime.Tags("VD440").Read
objExcelApp.Worksheets(sheetname).cells(column,9).value=HMIRuntime.Tags("VD444").Read
objExcelApp.Worksheets(sheetname).cells(column,10).value=HMIRuntime.Tags("VD448").Read
objExcelApp.Worksheets(sheetname).cells(column,11).value=HMIRuntime.Tags("VD452").Read
objExcelApp.Worksheets(sheetname).cells(column,12).value=HMIRuntime.Tags("VD456").Read
objExcelApp.Worksheets(sheetname).cells(column,13).value=HMIRuntime.Tags("VD460").Read
objExcelApp.Worksheets(sheetname).cells(column,14).value=HMIRuntime.Tags("VD492").Read
objExcelApp.Worksheets(sheetname).cells(column,15).value=HMIRuntime.Tags("VD496").Read
objExcelApp.Worksheets(sheetname).cells(column,16).value=HMIRuntime.Tags("VD500").Read
objExcelApp.Worksheets(sheetname).cells(column,17).value=HMIRuntime.Tags("VD504").Read
objExcelApp.Worksheets(sheetname).cells(column,18).value=HMIRuntime.Tags("VD508").Read
objExcelApp.Worksheets(sheetname).cells(column,19).value=HMIRuntime.Tags("VD540").Read
objExcelApp.Worksheets(sheetname).cells(column,20).value=HMIRuntime.Tags("VD544").Read
objExcelApp.Worksheets(sheetname).cells(column,21).value=HMIRuntime.Tags("VD548").Read
objExcelApp.Worksheets(sheetname).cells(column,22).value=HMIRuntime.Tags("VD552").Read
objExcelApp.Worksheets(sheetname).cells(column,23).value=HMIRuntime.Tags("VD556").Read
objExcelApp.Worksheets(sheetname).cells(column,24).value=HMIRuntime.Tags("VD560").Read
objExcelApp.Worksheets(sheetname).cells(column,25).value=HMIRuntime.Tags("VD564").Read
objExcelApp.Worksheets(sheetname).cells(column,26).value=HMIRuntime.Tags("VD568").Read
objExcelApp.Worksheets(sheetname).cells(column,27).value=HMIRuntime.Tags("VD572").Read

column=column+1
''直接保存
objExcelApp.ActiveWorkbook.Save
objExcelApp.Quit
Set objExcelApp=Nothing

End Function