Option Explicit
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:\test1.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("hang").Read
column=0
column=column+1
HMIRuntime.tags("hang").write
''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


''直接保存

objExcelApp.ActiveWorkbook.Save
objExcelApp.Quit
Set objExcelApp=Nothing

End Function

按照你的指点，我重新改了一下程序，但是还是不能成功，能不能帮我再看看