- 博客(15)
- 资源 (10)
- 收藏
- 关注
原创 vba winsock
以服务端为例,一般的步骤是:先设置LocalPort本地端口,然后使用Listen方法侦听数据请求。然后处理ConnectionRequest和DataArrival事件。使用完后使用Close方法关闭连接。Private Sub UserForm_Initialize() Winsock1.LocalPort = 1999 Winsock1.ListenE
2012-07-18 22:59:49
3491
原创 base64
/8+F9No1vQcuSZYCItnQ2RQ6uzGi4hPjgccQpW01/5d1NxHjXRK8oBBQoZXWFIpTNn4SU9AuS0hTmJSG+UDyIkv5NhJQbi5tq22+8xiFuVwahyXmHBep79C3p1stVkmkWOKp6bVSAfkevjpbvGbNdzXr1CiEdfkabGdLW+9epfOa0zXmUXH3OqwGK8nxWC8CYwCzeRHS
2012-07-04 17:03:26
1436
原创 Excel TreeView
Private Sub UserForm_Initialize()'初始化ImageList控件,添加图片 Dim img As New ImageList img.ListImages.Add 1, "book1", LoadPicture(ThisWorkbook.Path & "\book1.gif") img.ListImages.Add 2, "bo
2012-05-31 22:50:04
4422
原创 VBA 正则表达式
①正则表达式的概述 正则表达式原本是形式语言理论中的概念,与编译器的构造有密切的联系。但是作为一个应用软件的用户,我们没有必要去细究正则表达式的严格定义和处理方法。本文将从实用的角度出发,阐述引入正则表达式的目的、正则表达式的命令格式,以及如何利用正则表达式完成一些实际的文本处理工作。 我们在处理文本时,经常会遇到一些具有某种特定格式,或者说满足某种规则的文本。比如,一个无符号
2012-05-30 22:30:41
6623
原创 VBA正则
2.VBA中的正则表达式应用 在VBA中使用正则表达式,可以通过下列途径实现:创建正则表达式对象:前期绑定:在VBA代码编辑器中的"Tools"菜单中,选中"References...",然后引用Microsoft VBScript Regular Expressions 5.5类库,然后直接定义对象:Dim reg As New RegExp。后期绑定:使用CreateObje
2012-05-30 21:11:31
5977
原创 xmlHttp用法
xmlHttpRequest的status的值的含义虽然常写ajax方面的东西,但是很少去专门了解xmlHttpRequest的status各个值的含义,只是在用到时Google一下,下面将他人已总结过的转载一下,学习学习。xmlHttpRequest对象的status代表当前http请求的状态,是一个长整型数据,现在介绍一下它的含义。 http请求状态及其含义表1xx - 信
2012-05-30 20:46:01
4144
原创 转换
Attribute VB_Name = "Module1"'*/-------------------------------------------------------------'*/模 块 名:mUTF8'*/功 能:UTF-8转换GB2312函数'*/示 例:UTF2GB("%E9%83%BD%E5%B8%82%E6%83%85%E7%B7%A3 %E6%98%9F
2012-05-30 20:06:25
479
原创 XMLHTTP
Private Sub CommandButton1_Click() 'Msxml2.XMLHTTPDim IE As ObjectSet IE = CreateObject("Msxml2.XMLHTTP")IE.Open "GET", "http://www.baidu.com/", FalseIE.send ""Range("A1") = CodeConversionTxt1
2012-05-30 20:01:07
345
原创 test
2012-04-17 14:51:18 liu wenyao KF65629 处理环节:问题提交人填写, 操作:提交测试(项目)经理审核,处理人:wangxuesong 00174590,滞留时间:0小时; 2012-04-17 16:32:23 wangxuesong 00174590 处理环节:测试(项目)经理审核, 操作:提交开发人员定位,处理人:liqiang 00101572,滞留时间:
2012-05-02 16:26:42
368
原创 正则
Dim reg As New Regex("[^~]*?)','(?[^~]*?)','(?[^~]*?)','(?[^~]*?)','(?[^~]*?)','(?[^~]*?)','(?[^~]*?)'\)") ' Dim mc As MatchCollection mc = reg.Matches(ResStr1) '处理数据ResStr1
2012-04-26 23:36:24
386
原创 Excel和OpenFileDialog
Imports Microsoft.Office.Interop'COM Microsoft Excel x.0 Object LibraryPublic Class Form1 Dim exApp As New Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Dim
2012-04-26 23:01:45
1314
原创 HSSF
// import org.apache.poi.ss.usermodel.*; Sheet sheet1 = wb.getSheetAt(0); for (Row row : sheet1) { for (Cell cell : row) { CellReference cellRef = new CellReference(row.getRowNum(), cell.ge
2012-04-23 22:07:07
701
原创 Cookie的处理
Imports System.NetPublic Class Form1 Dim request As HttpWebRequest Dim response As HttpWebResponse Dim strcookie As String Dim StrPostData As String Dim mycookies As CookieConta
2012-04-22 12:39:34
501
原创 find
Dim Hcount As IntegerDim Mcount As IntegerDim Lcount As IntegerDim keywords As StringDim sheeetcount As IntegerDim AutomatedCircsColumn As IntegerFunction ReturnKeywordsColumn(
2012-03-12 17:30:17
309
原创 excell vba
Sub AutoStat()'Dim Row As IntegerDim SheetCount As IntegerDim MegerRow As IntegerDim UsedRow As IntegerDim Hcount As IntegerDim Mcount As IntegerDim Lcount As Integer
2012-03-11 17:56:58
399
winsock带注册文件
2012-07-18
Intel英特尔 14.42.12.5390版
2012-02-08
Intel英特尔芯片组Intel Chipset Device Software驱动9.3.0.1019版
2012-02-07
intel主板程序
2012-01-20
WinIO v3.0 资源文件以及VB6和C#实例
2011-05-13
Win7 Master音量控制类 For VB6
2011-05-07
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人