利用EXCEL + VBA 进行遍历测试

• 表格中可以列举多个输入，非常适合遍历类型的单元测试
• 手动或通过规则生成不同的输入参数
• 后台依次调用被测单元处理输入参数
• 然后在批量处理输出结果

举个实际的例子

• 某个插值算法的测试
• 插值算法是这样要求的

 示例:要输出的文件名 输入点坐标集(X,Y,Z,END,Time,Mode) 输入点数    插值步长 轨迹规划模式 
      "Result.csv"   250 0 512 0 0 1 250 0 212 0 30 1  2        2        0

• 设计下面的表结构

  
  image.png
  • 每行为输出
  • 行末自动生成输出文件名称
  • 按钮用于启动调用
• 根据测试需要指定不同的CASE

附:VBA代码

Function genItem(lineN As Long, actSheet As Worksheet)
    Dim fullPath As String
    Dim fileName As String
    Dim inputPara As String
    Dim shellArg As String
    
    Dim i As Integer

    fileName = ThisWorkbook.Path + "\output\file" + CStr(lineN) + ".csv"
    
    fullPath = ThisWorkbook.Path + "\\" + "TrajectoryManager.exe"
    
    inputPara = fileName
    For i = 1 To 15
        inputPara = inputPara + " " + CStr(actSheet.Cells(lineN, i))
    Next i
    
    shellArg = fullPath + " " + inputPara
    
    Shell (shellArg)
    'Debug.Print (shellArg)
    
    'Sleep (5000)
    
    genItem = "file" + CStr(lineN) + ".csv"

End Function

Sub genInterp()

    Dim i As Long
    Dim actSheet As Worksheet

    Set actSheet = ThisWorkbook.ActiveSheet
    
    For i = 2 To 1000
    
    If (actSheet.Cells(i, "A") <> "") Then
    
        With Range(actSheet.Cells(i, "A"), actSheet.Cells(i, "Q"))
            .Interior.Color = vbYellow
        End With
    
        actSheet.Cells(i, "Q") = genItem(i, actSheet)
        
        With Range(actSheet.Cells(i, "A"), actSheet.Cells(i, "Q"))
            .Interior.ColorIndex = xlNone
        End With
        
    End If
    
    Next i

    Set actSheet = Nothing

End Sub