Dim objExcelApp

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible = True

objExcelApp.Workbooks.Open "D:\\Data.xls"

objExcelApp.cells(3,2).valuE=HMIRuntime.Tags("A1").Read

objExcelApp.cells(3,3).valuE=HMIRuntime.Tags("A2").Read

objExcelApp.cells(3,4).valuE=HMIRuntime.Tags("A3").Read

'objExcelApp.Cells(3, 2).Value = "A1"

'ScreenItems("IOField1").OutputValue

objExcelApp.ActiveWorkbook.SaveAs"D:/CStr(Year(Date))&CStr(Month(Now))&CStr(Day(Now))"

'objExcelApp.Workbooks.Close

objExcelApp.Quit

Set objExcelApp = Nothing

-------------------------------------------------------------------------------

最终的文件名就是CStr(Year(Date))&CStr(Month(Now))&CStr(Day(Now)).xls

麻烦大神给指点一下