搬家第24天-citect v7.4 CitectVBA创建一个excel文件并写数据

以前在wincc学习时，练习过创建一个excel文件，并且将数据写入新创建的excel文件。cicode代码似乎没有那么灵活，写数据到还要用到ODBC连接。不过CitectVBA功能还是不错的，本篇就记录怎么创建excel文件和写数据，思路和在wincc一样。

创建一段CitetVBA代码

Sub CreateExcelFileByVBA(sFileName As string)
Dim xlApp As Application
Set xlApp=CreateObject("excel.application")
xlApp.Visible=False
xlapp.workbooks.add
xlApp.Worksheets("Sheet1").Activate
xlApp.Worksheets("Sheet1").cells(1,1)=1234
xlApp.Worksheets("Sheet1").cells(2,2)=5678
xlapp.Activeworkbook.saveas sFileName
xlApp.Workbooks.Close
xlApp.Quit
Set xlApp=Nothing
End Sub

 

在cicode中创建一个function调用VBA

FUNCTION VBACreateExcelFile()
STRING fileName;
fileName="c:\"+IntToStr(DateYear(TimeCurrent(),1))+"-"+IntToStr(DateMonth(TimeCurrent()))+"-"+IntToStr(DateDay(TimeCurrent()))+"_"+IntToStr(TimeHour(TimeCurrent()))+"."+IntToStr(TimeMin(TimeCurrent()))+"."+IntToStr(TimeSecond(TimeCurrent()))+".xls";
VbCallRun(VbCallOpen("CreateExcelFileByVBA",fileName));
END

这里顺带练习了参数传递。

 

在页面的按钮鼠标点击事件中写入以下代码

VBACreateExcelFile();

 

保存、编译、运行，点击按钮就能在c盘根目录创建一个以当前日期时间命名的excel文件，并且往sheet1的单元格(1,1)和(2,2)写入数据。