Alan adları olarak değişkenler

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 

Ekte, kodun "Kes" sürümüdür. Dolaylı formülü uygulamak için bir Excel elektronik tablosuna yazıyorum. Örnekte [CostType] ve [SoftwareCosts], şu anda sabitlerdir.

Kullanıcının kodu değiştirmeye gerek kalmadan alan ekleyebilmesini istiyorum. Yeni alan adı tablodan türetilecektir. Köşeli ayraçlar arasında bir alan adı (tablo değiştirilinceye kadar bilinmeyen) kullanmak mümkün mü?

Answer 1

Evet:

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