Question

For R = 1 To NRrows

    If (RSNonResourceCosts![CostType]) <> "" Then
        CL(1) = CL(1) + 1
        WKS.Cells(199 + R, 1) = (RSNonResourceCosts![CostType])
    End If

    If (RSNonResourceCosts![SoftwareCosts]) <> "" Then
        CL(2) = CL(2) + 1
        WKS.Cells(199 + R, 2) = (RSNonResourceCosts![SoftwareCosts])
    End If

    RSNonResourceCosts.MoveNext

Next R

附件是＆＃34;减少＆＃34;代码的版本。我正在写一个Excel电子表格来应用间接公式。此示例中的[CostType]和[SoftwareCosts]是常量。

我希望用户能够添加字段，而无需修改代码。新字段名称将从表中派生。是否可以在方括号之间使用字段名称（在修改表之前不知道）？

Answer 1

是：

FieldName = "SomeField"
WKS.Cells(199 + R, 1) = RSNonResourceCosts.Fields(FieldName).Value

变量作为字段名称

1 个答案: