rsview32VBA一次风机房报表.doc

Sub MyReportExcel() Dim xlsFile_ban As String Dim objexcel As Object Dim myRow As Integer Dim myCol As Integer Dim rdCount As Integer Dim xlsFilePath As String On Error Resume Next If Right(gTagDb(reportfilepath).Value, 1) = Then xlsFilePath = gTagDb(reportfilepath).Value Else xlsFilePath = gTagDb(reportfilepath).Value & End If xlsFile_ban = gProject.Path + vbareport.xls presentDate = gTagDb(systemyear).Value & - & gTagDb(systemmonth).Value & - & gTagDb(systemdayofmonth).Value myXlsFile = xlsFilePath & Format(Year(presentDate), 0000) & Format(Month(presentDate), 00) & Format(Day(presentDate), 00) & .xls myresult = VBA.Dir(myXlsFile) If myresult = Then VBA.FileCopy xlsFile_ban, myXlsFile gTagDb(reportcurrent).Value = 1 End If Set objexcel = CreateObject(Excel.Application) objexcel.Workbooks.Open (myXlsFile) objexcel.Worksheets(presentBanci + 1).Activate myRow = 5 objexcel.Cells(2, 30).Value = presentDate While (objexcel.Cells(myRow, 1).Value ) myRow = myRow + 1 Wend objexcel.Application.Visible = True With objexcel .Cells(myRow, 1).Value = myRow - 4 序号 .Cells(myRow, 2).Value = gTagDb(systemtime).Value 时间 .Cells(myRow, 3).Value = gTagDb(reportO_BEFORE).Value 柜前氧含量 .Cells(myRow, 4).Value = gTagDb(reportO_AFTER).Value 柜后氧含量 .Cells(myRow, 5).Value = gTagDb(reportAT_0501_1).Value 风机出口总管烟气氧含量 .Cells(myRow, 6).Value = gTagDb(reportAT_0501_2).Value 风机出口总管烟气CO含量 .Cells(myRow, 7).Value = gTagDb(reportAT_0506).Value 风机入口总管烟气粉尘含量 .Cells(myRow, 8).Value = gTagDb(reportF1).Value 供水总管流量 .Cells(myRow, 9).Value = gTagDb(reportF2).Value 一文喷淋供水流量 .Cells(myRow, 10).Value = gTagDb(reportF3).Value 二文喷淋供水流量 .Cells(myRow, 11).Value = gTagDb(reportFI).Value 风机入口总管烟气流量 .Cells(myRow, 12).Value = gTagDb(reportFI_GASOUT).Value 柜出口煤气流量(瞬时值) .Cells(myRow, 13).Value = gTagDb(reportFQ_GASOUT).Value 柜出口煤气流量(累积值) .Cells(myRow, 14).Value = gTagDb(reportP1).Value 一文喷淋水压力 .Cells(myRow, 15).Value = gTagDb(reportP2).Value 二文喷淋水压力 .Cells(myRow, 16).Value = gTagDb(reportPT_1501).Value 1#风机入口烟气压力 .Cells(myRow, 17).Value = gTagDb(reportPT_1502).Value 1#风机出口烟气压力 .Cells(myRow, 18).Value = gTagDb(reportPT_2501).Value 2#风机入口烟气压力 .Cells(myRow, 19).Value = gTagDb(reportPT_2502).Value 2#风机出口烟气压力 .Cells(myRow, 20).Value = gTagDb(reportP).Value 柜内煤气压力 .Cells(myRow, 21).Value = gTagDb(reportPd1).Value 转炉罩口微差压 .Cells(myRow, 22).Value = gTagDb(reportPd2).Value 一文进出口差压 .Cells(myRow, 23).Value = gTagDb(reportPd3).Value 脱水器进出口差压 .Cells(myRow, 24).Value = gTagDb(reportPd4).Value 二文进出口差压 .Cells(myRow, 25).Value = gTagDb(reportPd5).Value 90脱水器进出口差压 .Cells(myRow, 26).Value = gTagDb(reportPd6).Value 脱水塔进出口差压 .Cells(myRow, 27).Value = gTagDb(reportT1).Value 一文进口烟气温度 .Cells(myRow, 28).Value = gTagDb(reportT2).Value 一文出口烟气温度 .Cells(myRow, 29).Value = gTagDb(reportT3).Value 二文出口烟气温度 .Cells(myRow, 30).Value = gTagDb(reportLE).Value 柜位 .Cells(myRow, 31).Value = gTagDb(reportV).Value 柜容 End With objexcel.ActiveWorkbook.Save objexcel.ActiveWorkbook.Saved = True objexcel.Workbooks.Close objexcel.Quit Set objexcel = Nothing gTagDb(reportcurrent).Value = gTagDb(reportcurrent).Value + 1 End SubSub myquit() On Error Resume NextIf LCase(gTagDb(systemuser).Value) default ThenIf MsgBox(确认要退出？, vbOKCancel + vbQuestion, 提示) = vbOK ThengCommand.Execute (projectstop)End IfElseMsgBox 对不起，你没有退出的权限！, vbOKOnly + vbCritical, 错误End IfEnd SubSub MySearch1() Dim xlsFile_ban, SearchDate, SearchBanci, Searchbancitemp, SearchXlsFile, myresult As String Dim objexcel As Object Dim myRow As Integer Dim myCol As Integer Dim rdCount As Integer Dim xlsFilePath As String On Error GoTo laberr If Right(gTagDb(reportfilepath).Value, 1) = Then xlsFilePath = gTagDb(reportfilepath).Value Else xlsFilePath = gTagDb(reportfilepath).Value & End If SearchxlsFile_ban = gProject.Path + vbareport.xls SearchDate = gTagDb(reportSearchyear).Value & - & gTagDb(reportSearchmonth).Value & - & gTagDb(reportSearchday).Value SearchXlsFile = xlsFilePath & Format(Year(SearchDate), 0000) & Format(Month(SearchDate), 00) & Format(Day(SearchDate), 00) & .xls myresult = VBA.Dir(SearchXlsFile) If myresult Then Set objexcel = CreateObject(Excel.Application) objexcel.Workbooks.Open SearchXlsFile, , True objexcel.Worksheets(presentBanci + 1).Activate objexcel.Application.Visible = True Else MsgBox 没有 & SearchDate & 的记录, vbOKOnly, 提示 End If laberr: If Err.Number 0 Then MsgBox 错误 & Err.Number & ： & Err.Description & ，错误源： & IIf(Err.Source = , 无, Err.Source) & 。, vbCritical, 错误 End IfEnd SubSub SearchDayIni() On Error Resume NextgTagDb(reportSearchYear).Value = gTagDb(systemYear).ValuegTagDb(reportSearchMonth).Value = gTagDb(systemMonth).ValuegTagDb(reportSearchDay).Value = gTagDb(systemDayofMonth).ValueEnd SubSub SaveFilePath() On Error Resume NextIf LCase(gTagDb(systemuser).Value) default ThengTagDb(reportfilepath).InitialValue = gTagDb(reportfilepath).ValuegTagDb(reportfilepath).WriteConfigurationElseMsgBox 对不起，你没有权限！, vbOKOnly + vbCritical, 错误End IfEnd SubSub MyPrint1() Dim xlsFile_ban, SearchDate, SearchBanci, Searchbancitemp, SearchXlsFile, myresult As String Dim objexcel As Object Dim myRow As Integer Dim myCol As Integer Dim rdCount As Integer Dim xlsFilePath As String On Error GoTo laberr If Right(gTagDb(reportfilepath).Value, 1) = Then xlsFilePath = gTagDb(reportfilepath).Value Else xlsFilePath = gTagDb(reportfilepath).Value & End If SearchxlsFile_ban = gProject.Path + vbareport.xls SearchDate = gTagDb(reportSearchyear).Value & - & gTagDb(reportSearchmonth).Value & - & gTagDb(reportSearchday).Value SearchBanci = gTagDb(reportSearchshift).Value SearchXlsFile = xlsFilePath & Year(SearchDate) & Month(SearchDate) & Day(SearchDate) & .xls myresult = VBA.Dir(SearchXlsFile) If myresult Then Set objexcel = CreateObject(Excel.Application) objexcel.Workbooks.Open SearchXlsFile, , True objexcel.Worksheets