static void Job20100506(Args _args) { #define.adDouble(5) COM Recordset; COM Fields; COM Field; COM Application; COM Workbooks; COM Workbook; COM Worksheets; COM Worksheet; COM Range; ; Recordset = new COM('ADODB.Recordset'); Fields = Recordset.Fields(); Fields.Append('Field1', #adDouble); Recordset.Open(); Recordset.AddNew(); Field = Fields.Item('Field1'); Field.Value(123.45); Recordset.Update(); Application = new COM('Excel.Application'); Workbooks = Application.Workbooks(); Workbook = Workbooks.add(); Worksheets = Workbook.Worksheets(); Worksheet = Worksheets.Item(1); Range = Worksheet.Range('A1'); Range.CopyFromRecordset(Recordset); Recordset.Close(); Application.Visible(true); }