Option Explicit
Function action
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible =False
Dim c8
Set c8 = HMIRuntime.Tags("文件保存")
c8.Read
Dim c9
Set c9 = HMIRuntime.Tags("数据存储")
c9.Read
If c8.Value=1 Then
objExcelApp.Workbooks.Open"D:\benti\报表.xls"
Dim countr
For countr=1 To 50
Next
Dim patch,filename
filename=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))
patch="E:\报表\"&filenaME&"-报表.xls"
objExcelApp.ActiveWorkbook.SaveAs patch
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set oApp = Nothing
Else
If c9.Value=1 Then
Dim T1
Set T1 = HMIRuntime.Tags("NewTag1")
T1.Read
Dim T2
Set T2 = HMIRuntime.Tags("NewTag2")
T2.Read
Dim T3
Set T3 = HMIRuntime.Tags("NewTag")
T3.Read
Dim T4
Set T4 = HMIRuntime.Tags("NewTag_1")
T4.Read
Dim T5
Set T5 = HMIRuntime.Tags("NewTag_2")
T5.Read
Dim T6
Set T6 = HMIRuntime.Tags("NewTag_6")
T6.Read
字数超出中间省略
Dim I
Set I = HMIRuntime.Tags("时间")
I.Read
objExcelApp.Workbooks.Open"D:\baobiao\报表.xls"
If I.Value=4 Then
objExcelApp.Cells(1,6).Value=Date
objExcelApp.Cells(3,I.value).Value=T1.value
objExcelApp.Cells(4,I.value).Value=T2.value
objExcelApp.Cells(5,I.value).Value=T3.value
objExcelApp.Cells(6,I.value).Value=T4.value
objExcelApp.Cells(7,I.value).Value=T5.value
objExcelApp.Cells(8,I.value).Value=T6.value
Dim J
For J=5 To 27
objExcelApp.Cells(3,J).Value=Null
objExcelApp.Cells(4,J).Value=Null
objExcelApp.Cells(5,J).Value=Null
objExcelApp.Cells(6,J).Value=Null
Next
objExcelApp.DisplayAlerts = False
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set oApp = Nothing
Else
objExcelApp.Cells(3,I.Value).Value=T1.value
objExcelApp.Cells(4,I.Value).Value=T2.value
objExcelApp.Cells(5,I.Value).Value=T3.value
objExcelApp.Cells(6,I.Value).Value=T4.value
objExcelApp.Cells(7,I.value).Value=T5.value
objExcelApp.Cells(8,I.value).Value=T6.value
objExcelApp.Cells(9,I.value).Value=T7.value
objExcelApp.DisplayAlerts = False
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set oApp = Nothing
End If
End If
End If
End Function