本帖最后由 yiyiyicz 于 2011-10-22 07:47 编辑
CreateObject(" ") 调用对象列表,应该有很多
1,firstjvm:Simple
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)Dim simple As ObjectSet simple = GetObject("firstjvm:Simple")Taget = simple ' Uses 'toString()" on Simple' If the Java Simple class had a property xyz:' Target = simple.xyzEnd Sub |
2,vbScript.RegExp
Function ReplaceStr(sourStr, patrn, replStr)
Dim regEx As Object ' 建立变量 Set regEx = CreateObject("vbScript.RegExp") ' 建立正则表达式 regEx.Pattern = patrn ' 要找的字符串 regEx.Global = True '全程查找(若非全程查找则只进行一次匹配) regEx.IgnoreCase = True ' 设置是否区分大小写 ReplaceStr = regEx.Replace(sourStr, replStr) ' 替换 End Function ' 替换的示例代码 Sub Example() Dim sourceText As String '删除重复的字(连续出现) sourceText = "我我们学习,他们们工作" MsgBox ReplaceStr(sourceText, "(.)\1", "$1"), Title:=sourceText '删除2个字以上的重复词 sourceText = "文坛文坛新人认真认真学习,勤勤恳恳勤勤恳恳努力工作" MsgBox ReplaceStr(sourceText, "(.{2,})\1", "$1"), Title:=sourceText End Sub
3,msscriptcontrol.scriptcontrol
Set x = CreateObject("msscriptcontrol.scriptcontrol") x.Language = "javascript" arr = Array("aa", "cc", "bb", "1a") kk = Join(arr, ",") x.addcode "function aa(bb){x=bb.split(',');x.sort();return x;}" cc = x.eval("aa('" & kk & "')") MsgBox cc
4,adodb.connection
Set cnn = CreateObject("adodb.connection") '创建并返回一个对 ActiveX 对象的引用,创建ado链接.
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ActiveWorkbook.FullName '打开当前工作簿链接
[a2:d65536].ClearContents '清除a2:d65536内容
sql = "SELECT * FROM [库$] WHERE 日期 LIKE " & "'" & ri & "%'" 'sql语句,从"库"工作表中模糊查找含年月的(半匹配,用%和~,DAO中用*和?)的所有记录
[a2].CopyFromRecordset cnn.Execute(sql) '将符合sql的所有记录复制到当前打开的工作表
cnn.Close '关闭链接
Set cnn = Nothing '然后释放该引用,退出内存
5,ADODB.Recordset
Public Function MysqlConnection()
MysqlConnection ="Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=sa;Initial Catalog=hrlink ;Data Source=IP地址"
End Function
Private Sub CommandButton2_Click()
Dim cn As New ADODB.Connection '定义数据链接对象 ,保存连接数据库信息;请先添加ADO引用
Dim rs As New ADODB.Recordset '定义记录集对象,保存数据表
Dim strCn As String, strSQL As String '字符串变量
strCn = MysqlConnection()
cn.Open strCn
|