liangx85

PC和HOST之间文件传送

摘要：从PC到HOST 文件传送表(*.srl) C:\123.txt text ~'LIANG.TEST.LIB.123' 批处理文件(*.bat) SEND "PC文件全路径" 'HOST DSN' [JISCII CRLF RECFM(V) LRECL(32756) BLKSIZE(32760) S 阅读全文

posted @ 2016-02-24 11:17 liangx85 阅读(533) 评论(0) 推荐(0) 编辑

摘要：窗体相关1.显示窗体 UserForm1.show [vbModeless]vbModeless 可选参数，参数设定后，变成无模式窗体。窗体保持显示状态，仍可操作Excel文件。UserForms.add("UserForm1").show2.加载窗体 Load UserForm1 窗体保存在内存中，并不显示。窗体比较复杂时，可使用。3.卸载窗体 Unload UserForm14.隐藏窗体 UserForm1.Hide5.与显示和卸载窗体相关的事件 Initialize: 窗体初始化，发生在窗体加载和显示之前，但是，如果之前窗体隐藏状态，就不会发生此事件。 Activat 阅读全文

posted @ 2014-01-22 09:44 liangx85 阅读(967) 评论(0) 推荐(0) 编辑

VBA中常用技巧

摘要：常量定义Public Const i as Integer = 1自定义类型Type mytype i as Integerb as Boolean s as Stringend Type错误处理①跳过出错语句，继续执行 On Error Resume Next处理代码 On Error Goto 0②执行错误处理 On Error Resume Next 处理代码On Error Goto ErrorHandler ErrorHandler: 错误处理代码分支处理Select case condition case "value1" 详细处理case "valu 阅读全文

posted @ 2014-01-10 10:05 liangx85 阅读(521) 评论(0) 推荐(0) 编辑

VBA操作单元格

摘要：行或列的Group化ws.Rows("row1:row2").grouprow1:Group化的开始行 row2:Group化的结束行ws.Columns("cln1:cln2").groupcln1:Group化的开始列 cln2:Group化的结束列Group化行或列的收缩和展开ExecuteExcel4Macro "SHOW.DETAIL(1,x,FALSE,y)"FALSE:收缩 TRUE:展开x:结束位置 y:开始位置前一行或列最后非空行或列ws.cells(row,column).End(xiUp / xlToLeft)工阅读全文

posted @ 2014-01-08 13:54 liangx85 阅读(555) 评论(0) 推荐(0) 编辑

VBA常用函数

摘要：字符串相关:①截取字符串:从字符串左侧开始：Left(string,length)从字符串右侧开始：Right(string,length)从字符串中间开始：mid(string,start,[length]) length：可选参数②大小写变换:小写变大写：Ucase(string)大写变小写：Lcase(string)字符串类型变换:StrConv(string,string type)③字符串比较：StrComp(string1,string2,[string type])④字符串分割array() = split(string,string key)⑤查找字符instr(string1 阅读全文

posted @ 2014-01-08 10:28 liangx85 阅读(893) 评论(0) 推荐(0) 编辑

读取文件对象

摘要： With Application.FileSearch .searchSubFolders = false .Filename = "*.txt" .lookIn = strFolder if .Excute() > 0 then for i = 1 to .FoundFiles.count .FoundFiles(i) ' 取得文件对象 next i end ifend With searchSubFolders False : 子文件夹文件不取得 True : 子文件夹一起取得阅读全文

posted @ 2013-12-31 10:56 liangx85 阅读(166) 评论(0) 推荐(0) 编辑

文件对话框的实例

摘要： With Application.FileDialog(msoFileDialogopen) .AllowMultiselect = False .Filters.clear.Initiatdenanc = strfileif .show = true then .selectitems(1) ' 指定对象取得end ifend With msoFileDialogopen : 选择文件 msoFileDialogFolderPicker ：选择文件夹阅读全文

posted @ 2013-12-31 10:49 liangx85 阅读(140) 评论(0) 推荐(0) 编辑

VBA使用的Randomize和DoEvents

摘要： Randomizeprivate function getInt() dim n,m as integer Randomize n=1m=3 getInt=Int((m+1-n)*rnd + n)end functionDoEventsdim c as Booleanprivate sub gameMain() while c Do Until z iNew iNew = getnt loop z = iNew Image1.Picture = LoadPicture(path) doEvents Wendend subprivate sub d... 阅读全文

posted @ 2013-12-21 09:48 liangx85 阅读(1094) 评论(0) 推荐(0) 编辑

利用NUnit测试异常

摘要：作为VS.net现在常用的单体测试工具NUnit也可以对程序设定的异常进行测试，以下是测试实例。 1.测试对象抛出一个系统异常。 public virtual void Sample() { throw new System.AggregateException(); } 2.测试程序测试发生异常 [Test] public void TestDeleteFile() { System.AggregateException exception = null; try { DeleteFile(); } catch(System.AggregateException ex) { except. 阅读全文

posted @ 2012-05-30 15:25 liangx85 阅读(594) 评论(1) 推荐(0) 编辑

文件状态：(对文件操作时返回文件状态到定义的文件状态变量)

摘要： ANY 00 成功 ANY 02 对索引文件，成功但发现重复关键字 READ 04 成功，但纪录长度不符合指定长度 OPEN 05 成功，但文件是可选的，前面不存在 OPEN,CLOSE 07 对顺序文件，成功，但媒介不是盘 READ 10 文件已到末尾 READ 14 对相对文件，相对纪录号的有效位超过相对关键字数据项允许的位 WRITE,REWRITE21 对索引文件，顺序出错 WRITE 22 对索引和相对文件，带这个关键字的纪录已经存在 START,READ 23 对索引和相对文件，带这个关键字的纪录不存在 WRITE 24 ... 阅读全文

posted @ 2011-11-24 10:53 liangx85 阅读(232) 评论(0) 推荐(0) 编辑