回复:问一下，怎么用WINCC向EXCEL中读写数据？-技术论坛-工业支持中心-西门子中国

回复:问一下，怎么用WINCC向EXCEL中读写数据？

有谁共鸣

帖子

2161
精华

21
被关注

5

论坛等级：侠圣

注册时间：2005-05-07

普通如何晋级?

发布于 2008-05-22 02:55:12

0楼

楼主想要的恐怕不是你的这个吧！？？？
把wincc的变量值写到excel中去，用C脚本或VBS脚本吧！
#pragma code ("kernel32.dll")
VOID GetLocalTime(LPSYSTEMTIME lpSystemTime);
#pragma code ()
char FileName[20] = "";
SYSTEMTIME sysTime;
__object* pExcel = NULL;
GetLocalTime(&sysTime);
sprintf(FileName,"d:\\%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);

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