回复:wincc 中OLE (斑竹帮忙!)

风之天翼

  • 帖子

    104
  • 精华

    0
  • 被关注

    0

论坛等级:游民

注册时间:2006-08-02

普通 普通 如何晋级?

发布于 2008-10-12 22:16:12

0楼

斑竹,按照你的说法作了,我把实时的数据写入到了EXCEL表格中
但是现在的问题是,虽然可以把实时数据写到EXCEL中,但是在wincc中的图标没有实时同步的更新!
#pragma code ("kernel32.dll")

#pragma code ()
FILE*pFile=NULL;
char FileName[20] = "";
double a,b,c;

__object* pExcel = NULL;

a=GetTagFloat("a"); //Return-Type: float
b=GetTagFloat("b"); //Return-Type: float
c=GetTagFloat("c"); //Return-Type: float
sprintf(FileName,"E:\\book2.xls");

if((pFile=fopen(FileName,"r"))==NULL)
{
pExcel = __object_create("Excel.Application"); //?????.9?????office 2000
//pExcel->Visible = 1;
pExcel->Workbooks ->Open ("E:\\book1.xls");
pExcel->Worksheets("sheet1")->Range("A1")->Value=5000; //?wincc????????A1?
pExcel->Worksheets("sheet1")->Range("A2")->Value=5000; //?wincc????????A2?
pExcel->ActiveWorkbook->SaveAs(FileName);
pExcel->Workbooks->Close();
pExcel->Quit();
__object_delete(pExcel);
}
else
{
pExcel = __object_create("Excel.Application"); //?????.9?????office 2000
pExcel->Workbooks ->Open ("E:\\book2.xls");
pExcel->Worksheets("sheet1")->Range("A1")->Value=a; //?wincc????????A1?
pExcel->Worksheets("sheet1")->Range("A2")->Value=b; //?wincc????????A2?
pExcel->Worksheets("sheet1")->Range("A3")->Value=c; //?wincc????????A2?

pExcel->Worksheets("sheet1")->Range("B1")->Value=5000; //?wincc????????A1?
pExcel->Worksheets("sheet1")->Range("B2")->Value=5000; //?wincc????????A2?
pExcel->Worksheets("sheet1")->Range("B3")->Value=4000; //?wincc????????A2?
pExcel->ActiveWorkbook->Save();
pExcel->Workbooks->Close();
pExcel->Quit();
__object_delete(pExcel);
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32569条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。