随笔分类 - 施耐德工业自动化
摘要：citect有一个Citext.ComboBox控件，是下拉列表款，后面的练习中，我会使用这个控件做较复杂的条件查询，这一篇先练习初始化控件，填入选项数据。在页面上插入一个Citext.ComboBox控件，假设其访问名是main_AN17。在cicode编辑器中插入以下citectVBA脚本： S
阅读全文
摘要：前一篇博客记录了如何从sql数据库表中读取记录显示在msflexgrid控件中，这一篇记录如何向sqlserver写数据。在citect建立三个本地标签flow1,flow2,flow3 在cicode编辑器写下面的脚本 Sub AddRecordToSQLDB()Dim conn As Objec
阅读全文
摘要：本练习是在sql server2008R2上进行。假设有一个数据库CitectDB，虾米啊有一个数据表Rpt1，有如下数据： 在citect上有一个msflexgrid控件，访问名是main_AN4，在项目管理器的cicode编辑器上写如下citectVBA代码： Sub SqlTableTomsf
阅读全文
摘要：前面的博客记录了连接excel、access数据表的方法，今天实验了一下连接sql server数据表，语句都是类似的。我在计算机上安装了sql server 2008R2 EXPRESS版本，也就是所谓的官方免费版本，连接数据库使用windows系统帐户和sql登录两种方式，给sa账户设置密码12
阅读全文
摘要：前面的博客记录了判断某个程序（比如计算器）是不是已经打开。这一篇博客进一步，如果程序打开了就关闭它，如果程序没有打开就打开它。 Sub killoropenprocess()Dim strComputer As stringDim objWMIService As ObjectDim colProc
阅读全文
摘要：比如判断计算器是否在运行，如果在运行就关掉它。 Sub killprocess()Dim strComputer As stringDim objWMIService As ObjectDim colProcessList As ObjectDim i As ObjectstrComputer =
阅读全文
摘要：有时候我们需要判断某个程序是否已经运行，使用citectvba脚本可以实现这个功能，下面的代码实验判断计算器程序是否运行，通过进程查找calc.exe是否存在来判断。 Sub FindProcess()Dim strComputer As stringDim objWMIService As Obj
阅读全文
摘要：我们使用citect采集了现场数据形成报表后，有时候需要把数据定时发电子邮件给某些人。微软的CDO组件支持邮件发送功能，我在学习citectVBA发邮件时，经历了一些波折，我在这篇博客把这些学习过程下来。 我的想法是点击画面上的按钮，后台脚本用一个qq信箱给一个126信箱发一封电子邮件，不需要打开浏
阅读全文
摘要：前两天在qq群里看到有人问如何使用citectVBA取得昨天的日期，我看了一下CitectVBA资料，一个坏消息是没有日期加减计算的函数，一个好消息是excel里面丰富的日期时间函数可以计算昨天的日期，而且citect可以读取excel文件内容。当然可以在citectvba中通过if……then一大
阅读全文
摘要：假设c盘根目录下有一个text.xlsx文件，希望得到R1C1的数值，那么在cicode编辑器写以下CitectVBA代码： Sub getdatafromexcel()Dim xlApp As ApplicationDim objwb As ObjectDim objst As ObjectDim
阅读全文
摘要：比如我们有这样一个access表格 希望在citect中的MSFlexgrid控件显示信息时，是这样的排版 那么在前面讲access数据写入msflexgrid代码基础上可以写以下代码 Sub msflexgridMergerow()Dim InsertRowCount,colcount,i,j A
阅读全文
摘要：以前在学习wincc的时候，练习过对wincc项目建立快捷方式，这样不需要打开wincc项目管理器也能直接运行项目。在citect中也可以实现类似的功能。本次练习找的是7.4版的citect，安装在c盘默认路径下。首先打开citect项目管理器，选中需要建立快捷方式的项目。在C:\ProgramDa
阅读全文
摘要：前面的博客记录了在excel一个区域划全部的边框，其实还可以自定义左、右、上、下、斜边框，以及边框线等等。在citectVBA编辑器写以下代码： Sub ExcelBordersCnfg()Dim fileName As stringDim xlApp As ApplicationSet xlApp
阅读全文
摘要：今天再次实验昨晚的ADO连接ACCESS数据表，由于ACCESS数据表名字是table，造成Set ors=ocom.Execute语句根本没有执行，也没有citectVBA编译错误，access中定于表名也没有报错，折腾了一段时间终于悔悟了。把表名字改成table1马上就好了。这给了一点教训，那些
阅读全文
摘要：前面的博客记录过使用cicode通过ODBC连接ACCESS数据库，其实使用CitectVBA也能连接。本篇记录如何使用citectVBA脚本通过ADO方式连接ACCESS数据库，并且得到数据表记录数。其实了解了数据库连接写法，取得记录和字段值就相对容易了。 假设有一个myaccess数据库，下面有
阅读全文
摘要：前面的博客介绍了如何使用cicode获取控件属性，使用citectVBA也可以获取控件属性。在页面main上放置一个microsoft flexgrid控件，其编号是AN4，在citectVBA编辑器中写入以下代码： Sub VBA_GetObjPropTest()msgbox main_AN4.c
阅读全文
摘要：前面一篇博客记录了怎么创建一个excel文件并录入数据，数据录入之后还需要进行合并单元格、表格线之类的操作，使用脚本可以让这些定义全自动完成。 CitectVBA编辑器中插入以下脚本： Sub CreateExcelFileByVBA(sFileName As string)Dim xlApp As
阅读全文
摘要：以前在wincc学习时，练习过创建一个excel文件，并且将数据写入新创建的excel文件。cicode代码似乎没有那么灵活，写数据到还要用到ODBC连接。不过CitectVBA功能还是不错的，本篇就记录怎么创建excel文件和写数据，思路和在wincc一样。 创建一段CitetVBA代码 Sub
阅读全文
摘要：citect写脚本，可以使用cicode，也可以使用CitectVBA，这篇博客开始记录citectVBA变成学习。先从一个简单的练习开始。 在citect项目管理器的菜单 工具-cicode编辑器 新建一个CitectVBA文件，写如下脚本 Sub mymsg()msgbox("这是一个Citec
阅读全文
摘要：有些情况下，我们需要把flexgrid控件的数据导出到excel文件，那么第一步就是需要创建一个excel文件 FUNCTION CreateExcelFile()STRING filepath;INT file;filepath="[run]:\"+IntToStr(DateYear(TimeCu
阅读全文
浙公网安备 33010602011771号