搬家第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)写入数据。