如何将MSCOM控件编程得到的从串口来的数据保存到EXCELL中(50)

我用DELPHI的MSCOM控件编写一个串口通信程序，现已得到数据，但是我想把得到的数据按要求保存到EXCELL中或者其他格式的文件，请问那位大侠知道的指导一下哈。

你现在得到的数据是什么类型的数据，你怎么得到的，我最近在用串口编程，我最近在做串口编程，大家多交流，我的交流群：4654765

参看以下代码应该可以sheet,XLApp,workbook : variant; iRow,MaxRow:integer;begin screen.Cursor:=crHourGlass; try //创建对象 XLApp:=createOleObject('Excel.Application'); XLApp.displayAlerts:=false; XLApp.ScreenUpdating:=false; XLApp.WorkBooks.Add(EXLfile); workbook := XLApp.workbooks[1]; sheet:=workbook.worksheets[1]; //sheet:=XLApp.WorkBooks[1].worksheets[1]; //取得最大行数 maxRow XLApp.ActiveCell.SpecialCells(xlLastCell).Select; maxRow:=XLApp.ActiveCell.Row; //最大行数 //写数据到Access库 ADOTable1.open; for iRow:=2 to MaxRow do if sheet.cells[iRow,1]<>'' then //关键字不为空 begin ADOTable1.Append ; ADOTable1.fieldByName('ID').asInteger:= strToInt(sheet.cells[iRow,1]); ADOTable1.fieldByName('code').asString:=sheet.cells[iRow,2]; //编码 ADOTable1.fieldByName('name').asString:=sheet.cells[iRow,3]; //名称 ADOTable1.post; end; finally if not VarIsEmpty(XLApp) then begin //释放对象 XLApp.displayAlerts:=false; XLApp.ScreenUpdating:=true; XLApp.quit; end;

是这样的，我在做一个测量仪器的串口编程，数据是以ASC码发过来的，我利用delphi写好了串口程序，可以按我的要求取到准确的数据，比如，我要求每隔2秒取一个数据，哪么每隔2秒数据就会在我的界面上显示，现在我想在需要的时候把这些值保存到EXCELL中，比如说我需要记录数据时，我点击记录，不需要时我点结束记录，然后到EXCELL中去粘贴，就可以把记录的这一段时间的数据粘贴到EXCELL中，我见过这种功能的，我也想我写的串口程序实现这样的功能，但不知道怎么做。

好好看我上面的方法，应该没问题的

你这是自动获取数据，手动记录数据呀。用 L-M-delphi 的方法自动记录数据不就得了。手动记录数据，你还要用剪切板。你点击记录数据时，需要把一堆数据先记录到内存（或其他文件、数据库）中，点击结束记录时，把这些数据按一定格式拷贝到剪切板上，在Excel中就可以粘贴了。

请问“骏马”先生，如果要手动记录数据应该怎么样写代码？