** // Begin Excel Automation Process
oExcel = CreateObject("Excel.Application")
oExcel.Visible = 1 && for debugging
oWorkbook = oExcel.Workbooks.OpenText(.pcapdatapath + "aging.txt", Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ ;
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _ , ;
Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo _ ;
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _ ;
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _), ;
Array(14, 1), Array(15, 1)), TrailingMinusNumbers:=True )
oExcel.Cells.Select
oExcel.ActiveWorkbook.SaveAs(addbs(.pcapdatapath)+"aging.xls", xlNormal)
oExcel.Activeworkbook.Close(0)