310 WM-OM-E Rev I
For K = 0 To LastPoint
ExcelApp.ActiveSheet.Cells("ExcelRow + K, ExcelColumnA ") = -USD(K)
Next
Once the data are in Excel, any Excel functions can be applied to the data.
The results can be returned to the VB script.
For K = 0 To LastPoint
NDA(K) = ExcelApp.ActiveSheet.Cells("ExcelRow + K, ExcelColumnB")
Next
Transferring data cell by cell is very slow, so it is better to do a block transfer.