vb6(vba)
文章平均质量分 56
weinianjie1
这个作者很懒,什么都没留下…
展开
-
vb读取写入导出excel
<br />Sub test()'从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000)Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.Worksheet'---------------------操作现有的excel---------------------Set xlApp = CreateObj原创 2010-10-31 20:51:00 · 7050 阅读 · 0 评论 -
vb正则表达式
<br /> Dim regex As Object Set regex = CreateObject("vbscript.regexp") With regex .Global = True .IgnoreCase = True .MultiLine = True .Pattern = "[/d*]+" End With str_end = regex.Replace("a123c11",原创 2010-10-31 17:47:00 · 4221 阅读 · 1 评论 -
VB获取指定长度的随机字符串
'指定长度的祖母数字组合Public Function RandomFix(N As Long) As String Randomize R = R + Chr(Int(Rnd() * 26) + 65) '生成一个大写字母 For I = 2 To N 'N是指定长度 Randomize T = Int(Rnd() * 3) Select Case T Case 0 Randomize R = R + Chr(Int(Rnd()原创 2011-03-25 12:06:00 · 5324 阅读 · 0 评论 -
VB使用xmlhttp获取远程网页内容
Dim xmlHttp As ObjectPrivate Function aaa(url As String)Set xmlHttp = CreateObject("Microsoft.XMLHTTP")xmlHttp.Open "GET", url, TruexmlHttp.send (Null)While xmlHttp.ReadyState 4DoEventsWendaaa = xmlHttp.responseTextEnd FunctionSub sheep()MsgBox aaa("http:转载 2011-04-13 23:51:00 · 23110 阅读 · 4 评论 -
vb基础知识和文件操作
一:基本知识1,变量首字母大写,常量全部大写2,switch(,条件为1时的值,【……】)3,动态数组,Dim 数组名() As Integer ReDim [Preserve] 数组名(*to*,*to*) As Integer,Preserve关键字可以保证数组大小改变时,值还存在4,使用ubound保证不会越界5,Dim A As Variant(Dim A()) A =原创 2010-10-31 17:49:00 · 1703 阅读 · 0 评论