搬家第24天citect V7.4 VBA自定义Excel表格格式

前面一篇博客记录了怎么创建一个excel文件并录入数据，数据录入之后还需要进行合并单元格、表格线之类的操作，使用脚本可以让这些定义全自动完成。

      CitectVBA编辑器中插入以下脚本：

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)="这是合并单元格"
xlApp.Worksheets("Sheet1").cells(2,1)=1234
xlApp.Worksheets("Sheet1").cells(2,2)=5678
xlapp.range("a1:j1").mergecells=True  '合并单元格
xlapp.cells(1,1).HorizontalAlignment = 3 '水平居中
xlapp.range("a2:j10").borders.linestyle=9 '表格线形式
xlapp.range("a2:j10").borders.weight=2  '表格线粗细
xlapp.Activeworkbook.saveas sFileName
xlApp.Workbooks.Close
xlApp.Quit
Set xlApp=Nothing
End Sub

 

在cicode编辑器插入以下代码

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:\下自动创建按照当前日期时间命名的.xls文件，并且里面合并单元格、居中、表格线全是自动生成的。