程序中的这句
objExcelApp.Cells(1,1).Value = HMIRuntime.Tags("TAG1") .read
这是把画面上的变量值（即I/O域的值）写入EXCEL的表格中吧？
 
答：Dim objExcelApp
 Set objExcelApp = CreateObject("Excel.Application")
 objExcelApp.Visible = 1
 objExcelApp.Workbooks.Open "D:\1.xls" ''填入你的表格的完全路径
 
if  （你的条件）
  objExcelApp.Cells(1,1).Value = HMIRuntime.Tags("TAG1") .read
 end if
 
关闭excel表
objExcelApp.Workbooks(1).Close
 objExcelApp.Quit