参考网上自己在按钮的VBS动作里做了段程序，我建了个内部变量TAG1，用变量模拟器赋值，但是写不到EXCEL里。但是日期可以写，怎么回事啊。
程序如下：
Sub OnClick(ByVal Item)
Dim fso,myfile,fname
set fso=CreateObject("s cripting.FileSystemObject")
Set myfile=fso.GetFile("D:\mb.xls")
fname="D:\"&Year(Date)&"-"&Right("0"&Month(Date),2)&"-"&Right("0"&Day(Date),2)&".xls"
Dim objExcelApp
set objExcelApp=CreateObject("Excel.Application")
ObjExcelApp.visible=true
objExcelApp.workbooks.open fname
objExcelApp.Worksheets("sheet1").cells(3,1).value=Year(Date)
objExcelApp.Worksheets("sheet1").cells(3,3).value=Month(Date)
objExcelApp.Worksheets("sheet1").cells(3,5).value=Day(Date)
objExcelApp.Worksheets("sheet1").cells(7,1).value=HMIRuntime.Tags("Tag1").Read
End Sub