回复:wincc5.1怎么通过C脚本实时向excel传送数据并保存以当天日期为名？-技术论坛-工业支持中心-西门子中国

回复:wincc5.1怎么通过C脚本实时向excel传送数据并保存以当天日期为名？

有谁共鸣

帖子

2153
精华

21
被关注

6

论坛等级：侠圣

注册时间：2005-05-07

普通如何晋级?

发布于 2006-04-07 13:51:28

0楼

这个问题是这样解决的：
C脚本：
#pragma code ("kernel32.dll")
VOID GetLocalTime(LPSYSTEMTIME lpSystemTime);
#pragma code ()

char FileName[20] = "";
SYSTEMTIME sysTime;
__object* pExcel = NULL;

GetLocalTime(&sysTime);
sprintf(FileName,"c:\\%d-%d-%d.xls",sysTime.wYear,sysTime.wMonth,sysTime.wDay);
pExcel = __object_create("Excel.Application.9"); //9表示用的是office 2000
pExcel->Visible = 1;
pExcel->Workbooks ->Open ("d:\\book1.xls");
pExcel->Worksheets("sheet1")->Range("A1")->Value=GetTagFloat("wincctag1"); //写wincc的变量实时值到格A1中
pExcel->Worksheets("sheet1")->Range("A2")->Value=GetTagFloat("wincctag2"); //写wincc的变量实时值到格A2中
pExcel->ActiveWorkbook->SaveAs(FileName);
pExcel->Workbooks->Close();
pExcel->Quit();
__object_delete(pExcel);

自己调试一下，有过网友发Email问我，但我近来忙出差没空答复！

雄关漫道真如铁，而今迈步从头越！