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

有谁共鸣

  • 帖子

    2153
  • 精华

    21
  • 被关注

    6

论坛等级:侠圣

注册时间:2005-05-07

普通 普通 如何晋级?

发布于 2006-04-07 14:27:01

0楼

打印的程序也出来了!
小弟献丑啦:
拷贝放到按钮下就可以了!

#include "apdefap.h"
void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)
{

#pragma code ("kernel32.dll")
VOID GetLocalTime(LPSYSTEMTIME lpSystemTime);
#pragma code ()

#pragma code("Shell32.dll")
VOID ShellExecuteA(HWND, LPCTSTR , LPCTSTR , LPCTSTR , LPCTSTR , INT);
#pragma code()

char FileName[20] = "";

SYSTEMTIME sysTime;

__object* pExcel = NULL;

HWND handle=NULL;

handle=FindWindow(NULL,"WinCC-运行系统 - ");

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=12;//GetTagFloat("wincctag1"); //写wincc的变量实时值到格A1中

pExcel->Worksheets("sheet1")->Range("A2")->Value=24;//GetTagFloat("wincctag2"); //写wincc的变量实时值到格A2中

pExcel->ActiveWorkbook->SaveAs(FileName);

pExcel->Workbooks->Close();

pExcel->Quit();

__object_delete(pExcel);

ShellExecuteA(handle, "print", FileName, NULL, "D:\\",SW_SHOWMAXIMIZED);

}
雄关漫道真如铁,而今迈步从头越!
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32564条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

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

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

  • 分享

  • 只看
    楼主

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