Dim m,i,j,n,filename
Dim objExcelApp,objExcelBook,objExcelSheet

 
 '打开Excel模板
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = FalSE
' objExcelApp.Workbooks.Open "C:\report1\report.xls"  '打开模板
objExcelApp.Workbooks.Add          '新建工作表
objExcelApp.Worksheets("sheet1").Activate
'打开Excel模板
 write objExcelApp.Worksheets("Sheet1").cells(1,1).value=HMIRuntime.tags("变量").read

这里处理变量值…………

HMIRuntime.tags("变量").write objExcelApp.Worksheets("Sheet1").cells(1,1).value
 

objExcelApp.Activeworkbook.save
objExcelApp.Workbooks.Close
objExcelApp.quit

大概思路欢迎交流2606352062