当前位置：主页 > PLC控制

excel进程不能结束

#pragmacode()
#pragmacode("Shell32.dll")
VOIDShellExecuteA(HWND,LPCTSTR,LPCTSTR,LPCTSTR,LPCTSTR,INT);
#pragmacode()
charFileName[30]="";
SYSTEMTIMESysTime;
__object*pExCEl=NULL;
HWNDhandle=NULL;
handle=FindWindow(NULL,"wincc-运行系统–");
pExcel=__object_create("Excel.Application");
pExcel->Visible=0;
pExcel->Workbooks->Open("d:\\excel.XLS");
pExcel->Worksheets("sheet1")->Cells(6,3)->Value=GetTagChar("T1");
pExcel->Worksheets("sheet1")->Cells(7,3)->Value=GetTagFloat("T2");
pExcel->Worksheets("sheet1")->Cells(8,3)->Value=GetTagFloat("T3");
pExcel->Worksheets("sheet1")->Cells(9,3)->Value=GetTagFloat("T4");
pExcel->Worksheets("sheet1")->Cells(10,3)->Value=GetTagFloat("T5");
pExcel->Worksheets("sheet1")->Cells(11,3)->Value=GetTagFloat("T6");
pExcel->ActiveWorkbook->Save;
pExcel->Workbooks->Close();
pExcel->Quit();
__object_delete(pExcel);