Dim ExcelSheet,huxb
Dim Time1,time2,time3
Set ExcelSheet = CreateObject("Excel.Sheet")
'创建Excel工作表，这条与Set objExcelApp = CreateObject("Excel.Application")有何差异呢？一个是创建一张Excel表单，一个是创建一个Excel应用程序。？？？
ExcelSheet.Application.Visible = True
'这边真与假的差异仅仅是运行没有闪现出Excel吗？？
time1=year(Now)
time2=month(date)
time3=day(Now)
ExcelSheet.ActiveSheet.range("a1").Value = "This is column A, row 1"
'对Excel工作表的单元格进行写操作，这边可以Cells(1,1).Value，效果一样。
ExcelSheet.ActiveSheet.range("a10").Value = "This is column A, row 1"
'与上一条一致
ExcelSheet.ActiveSheet.range("j10").Value = time1
'与上一条一致
ExcelSheet.ActiveSheet.range("h10").Value = time2
'与上一条一致
ExcelSheet.ActiveSheet.range("i10").Value = time3
'与上一条一致
huxb=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))&"-"&CStr(Hour(Now))&Cstr(minute(Now))
'读取当前的系统时间写入huxb
ExcelSheet.SaveAs "E:\"&huxb&".XLS"
'另存Excel表单
ExcelSheet.Application.Quit
'退出Excel应用程序
Set ExcelSheet = Nothing
'取消关联。这条的内在作用还不甚了了，哪位指点？？

接下来的工作就是：
把表单修饰一下，按照报表的要求。
关键的问题就是如何周期触发了！解决这个问题一张简单的报表就应该可以用了。
但是，在WinCC中如果几个应用程序同时从一个标记读取数值会不会产生其他影响WinCC或者网络正常运行的情况呢？