Code: Select all
Open NewURL For Output As #1
ExportArray = oSheet.getCellRangeByName("ExportToM2M").DataArray
For i = 0 to UBound(ExportArray)
dataRow = ExportArray(i)
Qty = Val(dataRow(5)) 'first row is 0, oQty = dataRow(5) allowed empty cells to be exported - something about machine epsilon - only occurs with empty cells, cells= 0 would work as expected
If Qty > 0 Then
PartNo = Chr(34) & dataRow(4) & Chr(34)
RowID = j : Validated = dataRow(0) : CustNo = dataRow(1) : Price = dataRow(6)
PO = Chr(34) & dataRow(2) & Chr(34) : Ref = Chr(34) & dataRow(3) & Chr(34)
Print #1,RowID;",";Validated;",";CustNo;",";PO;",";Ref;",";PartNo;",";Qty;",";Price
j = j + 1
End If
Next i
Close #1
Code: Select all
1, 0, 238,"TEST5678901234567890","test567890123456789012345","800114SD", 20, 125.7762