vba - 编写这样的重复代码的最佳方法是什么？

Question

下面是我的代码，它打开了一个 Monarch 实例，并使用 Monarch 执行了一些操作(Monarch 是一种数据挖掘工具)

我必须重复下面的代码，每次只需更改几个参数，有没有办法以编程方式做到这一点？我想知道最有效的方法。

a = MonarchObj.SetReportFile(rawdataS10, False)
openModel = MonarchObj.SetModelFile(freeKidsModel)
            MonarchObj.CurrentFilter = "Under 60"


    SummerDateShow = MonarchObj.SetFieldVisible("Date2", False)
    SummerDateHide = MonarchObj.SetFieldVisible("Date", True)

ExportTOS = MonarchObj.JetExportTable(saveDir, "FreeKidsS10", 0)
MonarchObj.CloseAllDocuments

我正在更改的部分示例是“60 岁以下”“FreeKidsS10”以及日期和日期 2 字段。

如果简单地复制和粘贴这段代码是最有效的代码，你可以告诉我走开

Answer 1

您可以创建一个将变量字段作为参数的过程，然后在要复制和粘贴的任何地方调用该过程。该方法的签名将是这样的:

    Public Sub DataMiningMethod(ByVal modelFile as object, _
                                ByVal currentFilter as String, _ 
                                ByVal date1 as Boolean, _
                                ByVal date2 as Boolean, _
                                ByVal exportTableName as String)

因此整个方法看起来像这样:

Public Sub DataMiningMethod(ByVal modelFile as object, _
                            ByVal currentFilter as String, _ 
                            ByVal date1 as Boolean, _
                            ByVal date2 as Boolean, _
                            ByVal exportTableName as String)

    a = MonarchObj.SetReportFile(rawdataS10, False)
    openModel = MonarchObj.SetModelFile(modelFile )
            MonarchObj.CurrentFilter = currentFilter 


    SummerDateShow = MonarchObj.SetFieldVisible("Date2", date2 )
    SummerDateHide = MonarchObj.SetFieldVisible("Date", date1 )

    ExportTOS = MonarchObj.JetExportTable(saveDir, exportTableName , 0)
    MonarchObj.CloseAllDocuments

End Sub