Inouch報表制作（一）

• • 來自InTouch小菜鳥的第一篇Blog——報表制作
  • 一、查數據
  • 二、展示數據

來自InTouch小菜鳥的第一篇Blog——報表制作

大家好！這是來自InTouch小菜鳥（菜鳥！菜鳥！菜鳥！）的第一篇記錄——報表制作。本人于2020年11月開始接觸InTouch，首先從入門教程開始，這是第一次記錄（記錄！記錄！記錄！僅記錄）自己的小實驗，見證一下自己的成長。請各位大佬予以指正。

一、查數據

在系統時間上右擊選擇“調整日期/時間”；以win7為例（具體為啥要改，我也不太懂哈，跟著改就是了。）

選擇“更改日期和時間”，選擇“更改日歷設置”；

將日期格式修改為MM/dd/yyyy形式；

打開InTouch，新建窗口，在窗口中放置歷史數據向導；

雙擊歷史數據向導——建議，確定后會生成HDW開頭的標記名；

繪制如下畫面；

給年月日時分別添加觸動鏈接-模擬-標記名為Year_Q,Mon_Q、Day_Q、Hour_Q，以上均為內存整型；

再創建四個內存消息的標記名Years、Mons、Days、Date。以及要查詢的幾個標記名，如Mixer100_Level_PV等…記錄數據一定要勾上；

創建一個存放報表的文件夾，并在其中創建一個.csv格式的文件，該文件用來存儲Intouch查詢到的數據；

特別-配置-歷史記錄，進行配置

“查詢報表”腳本如下：

Years = StringFromIntg( Year_Q, 10 ); Mons = StringFromIntg( Mon_Q, 10 ); Days = StringFromIntg( Day_Q, 10 ); Date = Mons+ "/"+Days+ "/"+Years ; HDWStartDate =Date; HDWStartTime =StringFromTime(Hour_Q*3600+0+3600*16,2);//開始時間 HDWDBDir = InfoInTouchAppDir(); HDWDataDir = "E:\Trends";//歷史趨勢存儲的文件夾路徑 HDWFilename = "E:\Reportday\ReportDay.csv";//查詢結果存儲地址 HDWTags="$Date,$Time,Mixer100_Level_PV+"; HDWTags1="Mixer100_Temperature_PV,Mixer100_Pump1_PV";//查詢的標記點 HDWInterval = "1h";//查詢間隔時間 HDWDuration = "23h";//查詢總時長 HDWWriteFile=1;

查詢結果如圖：

二、展示數據

提供一份報表模板，存放在ReportDay文件夾下；

文件——選項——信任中心——信任中心設置——宏設置；

選擇開發工具——Visual Basic；

插入模塊；

添加宏，這里自行修改；

Sub hong() ' ' hong 宏 ''Range("B28:AA28").SelectSelection.ClearContentsRange("A4:AA27").SelectSelection.ClearContentsWith ActiveSheet.QueryTables.Add(Connection:= _"TEXT;E:\Reportday\ReportDay.csv", Destination:=Range("$A$4")).Name = "REPORTday".FieldNames = True.RowNumbers = False.FillAdjacentFormulas = False.PreserveFormatting = True.RefreshOnFileOpen = False.RefreshStyle = xlInsertDeleteCells.SavePassword = False.SaveData = True.AdjustColumnWidth = False.RefreshPeriod = 0.TextFilePromptOnRefresh = False.TextFilePlatform = 936.TextFileStartRow = 2.TextFileParseType = xlDelimited.TextFileTextQualifier = xlTextQualifierDoubleQuote.TextFileConsecutiveDelimiter = False.TextFileTabDelimiter = False.TextFileSemicolonDelimiter = False.TextFileCommaDelimiter = True.TextFileSpaceDelimiter = False.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1).TextFileTrailingMinusNumbers = True.Refresh BackgroundQuery:=FalseEnd WithRange("C28").SelectActiveCell.FormulaR1C1 = "=MAX(R[-24]C:R[-1]C)"Range("D28").SelectActiveCell.FormulaR1C1 = "=MAX(R[-24]C:R[-1]C)"Range("E28").SelectActiveCell.FormulaR1C1 = "=MAX(R[-24]C:R[-1]C)"Range("F28").SelectActiveCell.FormulaR1C1 = "=MAX(R[-24]C:R[-1]C)"End Sub

最后展示圖。

總結

以上是生活随笔為你收集整理的来自Intouch小菜鸟的第一篇Blog——报表制作的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。