测试监控系列：使用vb批量统计nmon结果

适用于一次统计几十台机器的nmon监控结果。

新建excel，在设置里打开开发者工具，点查看代码，把下面代码贴到模块里即可。最后把表格保存为.xlsm格式

Sub for_nmon()
'用来统计nmon结果

'2.0改进空间：已修改为，批量加入文件，导入多个文件后，filepath变为数组，然后遍历数组，取出结果，放到一个新excel里
'选中要统计的文件，可改为多选
filepath = Excel.Application.GetOpenFilename(Title:="选择要导入的nmon文件", MultiSelect:=True)

'If filepath = False Then
'    Exit Sub
'End If

'取当前表格对象
'Set wkme = Excel.Application.ThisWorkbook
'wkme.Activate

'清空sheet页
'wkme.Sheets(3).Range("1:65536").ClearContents

'批量导入表格，循环统计数据后，打印到根目录下新表格中
Dim excelApp, excelWB As Object
Dim savePath, saveName As String

Set excelApp = CreateObject("Excel.Application")
Set excelWB = excelApp.Workbooks.Add

savePath = "d:"
saveName = "vb_for_nmon.xls"
excelWB.SaveAs savePath & saveName

excelApp.Quit

'定义一个新表格，用来存统计结果
Set wknew = Excel.Application.Workbooks.Open(savePath & saveName)
wknew.Activate

'这个用来根据导入的文件总数，定义统计结果排列顺序
Dim filecount As Integer
filecount = 2

'循环导入的文件，统计结果，这里只加了个for循环，改了最后数据打印的位置，中间的计算代码没动
For Each fname In filepath

    Dim wk As Excel.Workbook
    Dim ws As Excel.Worksheet
    Set wsThis = Excel.ActiveSheet
    
    Set wk = Excel.Application.Workbooks.Open(filepath)
    wk.Activate
    
    '可以手动输入要统计的时间段   若涉及跨日要注意格式 2020/01/05  17:03
    'sbegintime= InputBox("请输入开始时间:")
    'sendtime= InputBox("请输入结束时间:")
    
    'nmon结果首页默认有起始、结束日期
    sbegintime = Format(wk.Sheets(1).Cells(1, 5), "hh:mm")
    sendtime = Format(wk.Sheets(1).Cells(1, 7), "hh:mm")
    
    '统计4个结果
    '若测试有梯度，可根据行数平均分
    Dim CPU#, MEM#, IOavg#, IOmax#
    Dim CPUresult$, MEMresult$, IOavgresult$, IOmaxresult$
    
    '本脚本的核心是，根据时间段，找到行数，用行数取具体值
    
    '总行数
    Dim hrow As Integer
    
    '起始行 结束行 需要分梯度时要有差值
    Dim beginRow%, endRow%, chaTemp%
    
    '为了在循环中只取值一次，加了开关，默认0
    Dim beginRowTemp%, endRowTemp%
    beginRowTemp = 0
    endRowTemp = 0
    
    '循环拿到sheet页
    For i = 1 To wk.Sheets.Count
        sheetname = wk.Sheets(i).Name
        
        '取CPU平均值
        If sheetname = "CPU_ALL" Then
            '时间默认第一列，取总行数，遍历找时间
            hrow = wk.Sheets(i).[A1].CurrentRegion.Rows.Count
            For j = 2 To hrow
                '格式化每个时间，逐一比较
                result1 = Format(wk.Sheets(i).Cells(j, 1), "hh:mm")
                '找开始行
                If result1 = sbegintime Then
                    '按分钟匹配，有很多重复，只取第一次拿到的行数，关闭开关
                    If beginRowTemp = 0 Then
                        beginRow = j
                        beginRowTemp = 1
                    End If
                End If
                '找结束行
                If result1 = sendtime Then
                    If endRowTemp = 0 Then
                        endRow = j
                        endRowTemp = 1
                        Exit For
                    End If
                End If
            Next j
                    
            '要统计哪列写哪列，cpu在F，输入开始行、结束行 然后range选中，求平均值 格式化的Fixed表示保留两位小数
            CPU = Format(Application.Average(wk.Sheets(i).Range("F" & beginRow & ":F" & endRow)), "Fixed")
            '加个%号
            CPUresult = CPU & "%"
            
            '若要把行数分成多份  差值定义为integer类型 会自动取整数
            'chaTemp = (endRow - beginRow) / 5
            'CPU值也可分段统计
            'CPU1 = Format(Application.Average(wk.Sheets(i).Range("F" & beginRow & ":F" & beginRow + chaTemp)), "Fixed")
            'CPU2 = Format(Application.Average(wk.Sheets(i).Range("F" & beginRow + chaTemp & ":F" & beginRow + 2 * chaTemp)), "Fixed")
        End If
    
        '取IO平均值、最大值
        '已经有了开始、结束行，后面的就很简单了
        If sheetname = "DISKBUSY" Then
            IOavg = Format(Application.Average(wk.Sheets(i).Range("G" & beginRow & ":G" & endRow)), "Fixed")
            IOavgresult = IOavg & "%"
            IOmax = Format(Application.Max(wk.Sheets(i).Range("G" & beginRow & ":G" & endRow)), "Fixed")
            IOmaxresult = IOmax & "%"
        End If
        
        '取MEM值 需要先算平均值 再减， 因为是自己加的百分比，所以*100
        If sheetname = "MEM" Then
            memtotal = Format(Application.Average(wk.Sheets(i).Range("B" & beginRow & ":B" & endRow)), "Fixed")
            memfree = Format(Application.Average(wk.Sheets(i).Range("F" & beginRow & ":F" & endRow)), "Fixed")
            cache = Format(Application.Average(wk.Sheets(i).Range("K" & beginRow & ":K" & endRow)), "Fixed")
            buffer = Format(Application.Average(wk.Sheets(i).Range("N" & beginRow & ":N" & endRow)), "Fixed")
            MEM = (memtotal - memfree - cache - buffer) / memtotal * 100
            MEMresult = Format(MEM, "Fixed") & "%"
        End If
    Next i
'最后把结果打印到首页

'统计完把表格关了
wk.Close

'把路径名改为文件名保存
fname2 = Split(fname, "")
'UBound取数组最大下标
fname3 = fname2(UBound(fname2))

wknew.Sheets(1).Cells(filecount, 1) = fname3

wknew.Sheets(1).Cells(1, 2) = "CPU"
wknew.Sheets(1).Cells(filecount, 2) = CPUresult

wknew.Sheets(1).Cells(1, 3) = "IO"
wknew.Sheets(1).Cells(filecount, 3) = IOavgresult & IOmaxresult

wknew.Sheets(1).Cells(1, 4) = "MEM"
wknew.Sheets(1).Cells(filecount, 4) = MEMresult

filecount = filecount + 1
Next

End Sub