To Excel.doc

文档介绍：给你转个论坛的帖子做参考取之于“民”用之于“民”,几段代码,希望对后来者有帮助,不要见笑。1、记录脚本:同一卡片号的每一根钢的数据记录,有多少根,记多少行#include""intgscAction(void){#pragmacode()charFileName[20]="";doublegenshu,row,col;__object*pExcel=NULL;genshu=GetTagDouble("记数根数");SetTagDouble("根数记录",genshu);row=genshu+4;if((GetTagBit("钢温记录信号")==1)){pExcel=__object_create("");//9表示用的是office2000pExcel->Visible=0;pExcel->Workbooks->Open("e:\\LZEQ_HMI\\");//Cells(row,col)pExcel->Worksheets("sheet1")->Cells(row,1)->Value=GetTagWord("记数根数");pExcel->Worksheets("sheet1")->Cells(row,2)->Value=GetTagChar("开始时间");pExcel->Worksheets("sheet1")->Cells(row,3)->Value=GetTagWord("1#高温计温度记录");pExcel->Worksheets("sheet1")->Cells(row,4)->Value=GetTagFloat("1#水箱流量记录");pExcel->Worksheets("sheet1")->Cells(row,5)->Value=GetTagWord("2#高温计温度记录");pExcel->Worksheets("sheet1")->Cells(row,6)->Value=GetTagFloat("2#水箱流量记录");pExcel->Worksheets("sheet1")->Cells(row,7)->Value=GetTagWord("3#高温计温度记录");pExcel->Worksheets("sheet1")->Cells(row,8)->Value=GetTagFloat("3#水箱流量记录");pExcel->Worksheets("sheet1")->Cells(row,9)->Value=GetTagWord("4#高温计温度记录");pExcel->Worksheets("sheet1")->Cells(row,10)->Value=GetTagWord("5#高温计温度记录");pExcel->Worksheets("sheet1")->Cells(row,11)->Value=GetTagFloat("4#水箱流量记录");pExcel->Worksheets("sheet1")->Cells(row,12)->Value=GetTagWord("6#高温计温度记录");pExcel->Worksheets("sheet1")->Cells(row,13)->Value=GetTagWord("7#高温计温度记录");pExcel->