搬家第12天-c脚本初步3-excel写入日期时间的信息

如果想添加年、月、日、小时、分钟、秒钟信息，那么脚本这么写：

#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)

{

#pragma code("kernel32.dll")

VOID GetLocalTime(SYSTEMTIME *lpst);

#pragma code();

SYSTEMTIME mytime;

__object* pExcel = NULL;

HWND handle=NULL;

GetLocalTime(&mytime);

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

pExcel = __object_create("Excel.Application");

pExcel->Visible = 0;

pExcel->Workbooks ->Open ("d:\\report1.xls");

pExcel->WorkSheets("sheet1")->Range("a1:f1")->mergecells=TRUE; //合并单元格

//添加边框线

pExcel->WorkSheets("sheet1")->Range("a1:f5")->borders(1)->linestyle=9; //线型pExcel->WorkSheets("sheet1")->Range("a1:f5")->borders(1)->weight=2;//线宽pExcel->WorkSheets("sheet1")->Range("a1:f5")->borders(2)->linestyle=9; //线型pExcel->WorkSheets("sheet1")->Range("a1:f5")->borders(2)->weight=2;//线宽

pExcel->WorkSheets("sheet1")->Range("a1:f5")->borders(3)->linestyle=9; //线型pExcel->WorkSheets("sheet1")->Range("a1:f5")->borders(3)->weight=2;//线宽

pExcel->WorkSheets("sheet1")->Range("a1:f5")->borders(4)->linestyle=9; //线型pExcel->WorkSheets("sheet1")->Range("a1:f5")->borders(4)->weight=2;//线宽pExcel->Worksheets("sheet1")->Cells(1,1)->Value="这是一个报表的例子";pExcel->Worksheets("sheet1")->Cells(1,1)->HorizontalAlignment = 3; //居中pExcel->Worksheets("sheet1")->Cells(2,1)->Value=mytime.wYear;

pExcel->Worksheets("sheet1")->Cells(2,2)->Value=mytime.wMonth;

pExcel->Worksheets("sheet1")->Cells(2,3)->Value=mytime.wDay;

pExcel->Worksheets("sheet1")->Cells(2,4)->Value=mytime.wHour;

pExcel->Worksheets("sheet1")->Cells(2,5)->Value=mytime.wMinute;

pExcel->Worksheets("sheet1")->Cells(2,6)->Value=mytime.wSecond;

pExcel->ActiveWorkbook->Save();

pExcel->Workbooks->Close();

pExcel->Quit();

__object_delete(pExcel);

}​