找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
都“已经将数据导入到EXCEL”,每天的日期为名自动保存一个还不好做吗?
Dim XlsName
XlsName = "D:\" & Year(Date) & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) & "_" _
& Right("0" & Hour(Time), 2) & Right("0" & Minute(Time), 2) & Right("0" & Second(Time), 2)_
& ".XLS"
oWorkBook.SaveAs XlsName
Option Explicit
Function action
Dim objExcelAPP
Dim reportfile
Dim reportfile1
Dim reporttime
Dim index
Dim j
Dim i
'index=Hour(Now)
index=Minute(Now)
'index=Second(Now)
index=CInt(index)
reportfile=CStr(Date) & "-" &CStr(Hour(Now))
'reporttime=Hour(Now)
reporttime=Minute(Now)
reporttime=CStr(reporttime)
reportfile=reportfile
reportfile1=reportfile
reportfile="D:\report\" & reportfile & ".xls"
Dim TEMP_1
Set TEMP_1 = HMIRuntime.Tags("TEMP_1")
Dim TEMP_2
Set TEMP_2 = HMIRuntime.Tags("TEMP_2")
Dim TEMP_3
Set TEMP_3 = HMIRuntime.Tags("TEMP_3")
Dim TEMP_4
Set TEMP_4 = HMIRuntime.Tags("TEMP_4")
Dim TEMP_5
Set TEMP_5 = HMIRuntime.Tags("TEMP_5")
Dim TEMP_6
Set TEMP_6 = HMIRuntime.Tags("TEMP_6")
Dim TEMP_7
Set TEMP_7 = HMIRuntime.Tags("TEMP_7")
Dim TEMP_8
Set TEMP_8 = HMIRuntime.Tags("TEMP_8")
Dim TEMP_9
Set TEMP_9 = HMIRuntime.Tags("TEMP_9")
Dim flow_1
Set flow_1 = HMIRuntime.Tags("flow_1")
Dim flow_2
Set flow_2 = HMIRuntime.Tags("flow_2")
Dim reportname
Set reportname = HMIRuntime.Tags("reportname")
TEMP_1.Read
TEMP_2.Read
TEMP_3.Read
TEMP_4.Read
TEMP_5.Read
TEMP_6.Read
TEMP_7.Read
TEMP_8.Read
TEMP_9.Read
flow_1.Read
flow_2.Read
Set objExcelAPP=CreateObject("Excel.Application")
objExcelAPP.Visible=False
'objExcelAPP.Visible=True
objExcelAPP.Workbooks.Open "D:\report\book1.xls"
With objExcelAPP
If index=0 Then
For i=5 To 28
For j= 2 To 12
.cells(i,j).value=Null
Next
Next
.cells(2,2).value=Date
End If
j=0
j=index+5
.cells(j,1).value=Minute(Now)
.cells(j,2).value=TEMP_1.Value
.cells(j,3).value=TEMP_2.Value
.cells(j,4).value=TEMP_3.Value
.cells(j,5).value=TEMP_4.Value
.cells(j,6).value=TEMP_5.Value
.cells(j,7).value=TEMP_6.Value
.cells(j,8).value=TEMP_7.Value
.cells(j,9).value=TEMP_8.Value
.cells(j,10).value=TEMP_9.Value
.cells(j,11).value=flow_1.Value
.cells(j,12).value=flow_2.Value
If index=59 Then
''.cells(30,3).value=FY1901ACC2.Value
''.cells(30,5).value=FY1901ACC1.Value
''.cells(30,8).value=FT1908ACC2.Value
''.cells(30,10).value=FT1908ACC1.Value
.ActiveWorkbook.SaveAs reportfile
reportname.Write reportfile1
Else
.ActiveWorkbook.Save
End If
.ActiveWorkbook.Close
.Quit
End With
Set objExcelAPP=Nothing
End Function
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!