wincc用VBS脚本每个月初以日期为命名新建一个excel表格在这一个月中随时打开它

取之于“民”用之于“民”,几段代码，别处看到希望能对你有用。

1、记录脚本：同一卡片号的每一根钢的数据记录，有多少根，记多少行
#include "apdefap.h"
int gscAction( void )
{
#pragma code ()
char FileName[20] = " ";
double genshu,row,col;
__object* pExcel = NULL; 
genshu=GetTagDouble("记数根数"); 
SetTagDouble("根数记录",genshu);
row=genshu+4;
if((GetTagBit("钢温记录信号")==1))
{
pExcel = __object_create("Excel.Application.9"); //9表示用的是office2000
pExcel->Visible =0;
pExcel->Workbooks ->Open ("e:\\LZEQ_HMI\\JILU.xls");//Cells(row,col)
pExcel->Worksheets("sheet1")->Cells(row,1)->Value=GetTagWord("记数根数
"); 
pExcel->Worksheets("sheet1")->Cells(row,2)->Value=GetTagChar("开始时间");
pExcel->Worksheets("sheet1")->Cells(row,3)->Value=GetTagWord("1#高温计温度记录");
pExcel->Worksheets("sheet1")->Cells(row,4)->Value=GetTagFloat("1#水箱流量记录");
pExcel->Worksheets("sheet1")->Cells(row,5)->Value=GetTagWord("2#高温计温度记录");
pExcel->Worksheets("sheet1")->Cells(row,6)->Value=GetTagFloat("2#水箱流pExcel->Worksheets("sheet1")->Cells(row,16)->Value=GetTagChar("系统时间");
SetTagBit("钢温记录信号",0);
}
pExcel->ActiveWorkbook->Save;
pExcel->Workbooks->Close();
pExcel->Quit();
__object_delete(pExcel);
return 0;
}