Question

我使用COM接口从第三方应用程序中获取参数名称和值。

我使用此VBA脚本获取模型的独立参数文件名，并且该组中的值，参数组名称和参数组信息以及参数组信息在其结束时执行相同的过程。

此外还有主模型附加的子模型，并为他们执行相同的过程。

我为每个级别的循环使用不同的变量，但每个级别的过程都相同，所以我想学习是不是有简单的方法来获取它？不使用第二级和第三级参数组和子模型的变量。

我的功能拓扑

如果您查看结构的拓扑结构，您可以理解我的意思。我在相同的过程中使用相同的功能，但我对子级参数组有困难，我们使用额外的变量，例如;

    Dim j1 As Integer               ' Parameter Group of Parameter Group Item / Count
    Dim j2 As Integer               ' Parameter Group of Parameter Group of Parameter Group Item / Count

   Dim ParameterGroupsX1 As Object      '2nd Level Parameter Groups Objects
    Dim ParameterGroupX1 As Object       '2nd Level Parameter Group
    Dim nParameterGroupX1 As Integer     'Number of 2nd Level Parameter Group Objects

    Dim ParameterGroupsX2 As Object      '3rd Level Parameter Groups Objects
    Dim ParameterGroupX2 As Object       '3rd Level Parameter Group
    Dim nParameterGroupX2 As Integer     'Number of 3rd Level Parameter Group Objects

并且我也使用相同的方法进行子模型

Dim s1 As Integer               ' Sub Model 1st Level
Dim s2 As Integer               ' Sub Model 2nd Level

Dim SubstrsX1 As Object           ' 2nd Level Substructures Object
Dim SubstrX1 As Object            ' 2nd Level Substructure
Dim nSubstrX1 As Integer          ' Number of 2nd Level Substructure Objects

Dim SubstrsX2 As Object         ' 3rd Level Substructures Object
Dim SubstrX2 As Object          ' 3rd Level Substructure
Dim nSubstrX2 As Integer        ' Number of 3rd Level Substructure Objects

我想我可以调用函数或For循环而不使用上面的变量来定义子级参数组和参数。

请您告诉我如何为拓扑做同样的过程。

下面列出了代码;

Dim Target_Sheet As Worksheet
Dim Main_Sheet As Worksheet

Dim ParameterGroups As Object        ' 1st Level Parameter Groups Object
Dim ParameterGroup As Object         ' Single Parameter Group
Dim nParameterGroup As Integer       ' Number of Parameter Group Objects

Dim Parameters As Object             ' 1st Level Parameters Object
Dim Parameter As Object              ' 1st Level Parameter
Dim nParameter As Integer            ' Number of Parameters Objects

Dim ParameterGroupsX1 As Object      '2nd Level Parameter Groups Objects
Dim ParameterGroupX1 As Object       '2nd Level Parameter Group
Dim nParameterGroupX1 As Integer     'Number of 2nd Level Parameter Group Objects

Dim ParameterGroupsX2 As Object      '3rd Level Parameter Groups Objects
Dim ParameterGroupX2 As Object       '3rd Level Parameter Group
Dim nParameterGroupX2 As Integer     'Number of 3rd Level Parameter Group Objects

Dim Substrs As Object             ' 1st Level Substructures Object
Dim Substr As Object              ' 1st Level Substructure
Dim nSubstr As Integer            ' Number of 1st Level Substructure Objects

Dim SubstrsX1 As Object           ' 2nd Level Substructures Object
Dim SubstrX1 As Object            ' 2nd Level Substructure
Dim nSubstrX1 As Integer          ' Number of 2nd Level Substructure Objects

Dim SubstrsX2 As Object         ' 3rd Level Substructures Object
Dim SubstrX2 As Object          ' 3rd Level Substructure
Dim nSubstrX2 As Integer        ' Number of 3rd Level Substructure Objects

Dim i As Integer                ' Parameter Item/Count
Dim j As Integer                ' Parameter Group Item / Count
Dim j1 As Integer               ' Parameter Group of Parameter Group Item / Count
Dim j2 As Integer               ' Parameter Group of Parameter Group of Parameter Group Item / Count
Dim s As Integer                ' Sub Model Main Level
Dim s1 As Integer               ' Sub Model 1st Level
Dim s2 As Integer               ' Sub Model 2nd Level
Dim cLine As Long

Option Explicit


Sub ReadParameterSimpack()          ' Main function get parameter information
Set Target_Sheet = ThisWorkbook.Worksheets("Parameters")  ' Parameter's page which i list the names and their values
Call Setup_Module.SetupSimpack          ' This is the module where i get the model information from third part Application
cLine = 0

Set Parameters = Mdl.getParameterList(False)  ' Gettting Parameters List
Call ParameterRead(Parameters, cLine)           ' Calls the Parameter Read Function

Set ParameterGroups = Mdl.getParameterGroupList(False)  ' Getting the Parameter Group List
Call ParameterGroupRead(ParameterGroups, cLine)         ' Calls the Parameter Group Read Function

Set Substrs = Mdl.getSubstrList(False) ' Getting the Sub-Model List
Call SubstructureRead(Substrs, cLine) ' Calls the Model's submodel list

End Sub


Sub ParameterRead(Parameters, cLine)  ' This is the function of reading Parameters

nParameter = Parameters.Count         ' Number of Parameters

For i = 0 To nParameter - 1
Set Parameter = Parameters.Item(i)    ' Getting parameter from the List of Parameter
Target_Sheet.Cells(cLine + 1, 1).Value = Parameter.FullName  ' Writes parameter name to Excel Sheet
cLine = cLine + 1
Next i

End Sub


Sub ParameterGroupRead(ParameterGroups, cLine) ' This is the function of reading Parameter Groups
nParameterGroup = ParameterGroups.Count     ' This is the number of Parameter Groups
For j = 0 To nParameterGroup - 1
Set ParameterGroup = ParameterGroups.Item(j)  'Getting Parameter Group from Parameter Groups List
Target_Sheet.Cells(cLine + 1, 1).Value = ParameterGroup.FullName  ' Writes parameter group name to Excel Sheet
cLine = cLine + 1
Set Parameters = ParameterGroup.getParameterList(False)  'This is getting Parameters listed below the Parameter Group
Call ParameterRead(Parameters, cLine)           ' Calls the parameter read function to get parameters which listed under Parameter groups
cLine = cLine + 1
Set ParameterGroupsX1 = ParameterGroup.getParameterGroupList(False) ' Sub-Level Parameter Group
nParameterGroupX1 = ParameterGroupsX1.Count     ' Number of Sub-Level Parameter Group

For j1 = 0 To nParameterGroupX1 - 1
Set ParameterGroupX1 = ParameterGroupsX1.Item(j1)
Target_Sheet.Cells(cLine + 1, 1).Value = ParameterGroupX1.FullName

Set Parameters = ParameterGroupX1.getParameterList(False)   ' Getting the Parameters of Parameter Groups
Call ParameterRead(Parameters, cLine)                       ' Call Parameter Read Function
cLine = cLine + 1

Set ParameterGroupsX2 = ParameterGroupX1.getParameterGroupList(False) 'Sub SubLevel of Parameter Group
nParameterGroupX2 = ParameterGroupsX2.Count
For j2 = 0 To nParameterGroupX2 - 1
Set ParameterGroupX2 = ParameterGroupsX2.Item(j2)
Target_Sheet.Cells(cLine + 1, 1).Value = ParameterGroupX2.FullName
cLine = cLine + 1
Set Parameters = ParameterGroupX2.getParameterList(False)
Call ParameterRead(Parameters, cLine)
cLine = cLine + 1
Next j2
Next j1
Next j

End Sub

Sub SubstructureRead(Substrs, cLine)
nSubstr = Substrs.Count
For s = 0 To nSubstr - 1
Set Substr = Substrs.Item(s)
Target_Sheet.Cells(cLine + 1, 1).Value = Substr.FullName
cLine = cLine + 1
Set Parameters = Substr.getParameterList(False)
Call ParameterRead(Parameters, cLine)
Set ParameterGroups = Substr.getParameterGroupList(False)
Call ParameterGroupRead(ParameterGroups, cLine)

Set SubstrsX1 = Substr.getSubstrList(False)
nSubstrX1 = SubstrsX1.Count

For s1 = 0 To nSubstrX1 - 1
Set SubstrX1 = SubstrsX1.Item(s1)
Target_Sheet.Cells(cLine + 1, 1).Value = SubstrX1.FullName
cLine = cLine + 1
Set Parameters = SubstrX1.getParameterList(False)
Call ParameterRead(Parameters, cLine)
Set ParameterGroups = SubstrX1.getParameterGroupList(False)
Call ParameterGroupRead(ParameterGroups, cLine)

Set SubstrsX2 = Substr.getSubstrList(False)
nSubstrX2 = SubstrsX2.Count

For s2 = 0 To nSubstrX2 - 1
Set SubstrX2 = SubstrsX2.Item(s2)
Target_Sheet.Cells(cLine + 1, 1).Value = SubstrX2.FullName
cLine = cLine + 1
Set Parameters = SubstrX2.getParameterList(False)
Call ParameterRead(Parameters, cLine)
Set ParameterGroups = SubstrX2.getParameterGroupList(False)
Call ParameterGroupRead(ParameterGroups, cLine)

Next s2
Next s1
Next s

End Sub

Answer 1

在不了解您拥有的类/对象的情况下，只能给出示例。我认为在你的情况下你将需要2个递归子。模型的前1位，然后递归参数组。

Option Explicit

Private oFSO As Object

Sub ListFilesFromRootFolder()
    ' FileSystemObject: https://msdn.microsoft.com/en-us/library/6tkce7xa(v=vs.84).aspx
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    ' e.g. List all files and subfolders from User's Temp folder
    ListFilesAndFolders oFSO.GetFolder(Environ("TMP"))
    Set oFSO = Nothing
End Sub

Private Sub ListFilesAndFolders(oFDR As Object)
    Dim oFile As Object, oSubFDR As Object
    ' Prints current Folder path
    Debug.Print oFDR.Path
    ' List the files in this folder
    For Each oFile In oFDR.Files
        Debug.Print oFile.Name
    Next
    ' Recurse SubFolders
    For Each oSubFDR In oFDR.SubFolders
        ListFilesAndFolders oSubFDR
    Next
End Sub

在For循环Excel VBA中为一个进程使用For循环并为相同进程调用该循环

1 个答案: