免注册使用VbRichClient

fxl447098457

承接这个帖子：http://club.excelhome.net/forum. ... p;page=1#pid9562675。。通过免注册dll的方式调用实现我们目前用的一些功能。API函数就一个LoadLibraryW实现加载DirectCom.dll。
再调用DirectCom.dll里的一个函数getInstanceEx函数实现vbRichClient5.dll对象实例化。
这种免注册dll主要应付用户没有权限注册dll的情况,我相信还是有一定的应用场合的。
应用就是需要的目录下面需要3个dll.分别是：DirectCOM.dll，vbRichClient5.dll和vb_cairo_sqlite.dll。这三个文件放在同一目录即可。
写了几个常见的代码。你有更多的需要可以看文档。我会打包到附件里面
几个代码例子包含了：
1.剪切板操作
2.集合collection的简单使用
3.fso文件的简单操作
4.不使用驱动直接读取SQLIT3数据库写入单元格
5.替代scriptcontrol实现脚本操作
6.字典的简单演示
7.简单解析xml
说实话，类太多了，不是一两下就能全部演示出来的。
里面还有一个cRegFree class，允许你调用自己的dll.

多话不说了，看附件吧。代码都在“2.xlsm”excel文件里。。

we.part1.rar (1.8 MB, 下载次数: 456)

2018-6-26 18:28 上传

点击文件名下载附件

we.part2.rar (1.17 MB, 下载次数: 404)

2018-6-26 18:28 上传

点击文件名下载附件

yunfei2018

这个不错，关注下，

ivccav

支持一下。有时间看看能否用得上。文档谁能翻译一下就完美了。
加点实例：
vbRichClient精选案例.part1.rar (2 MB, 下载次数: 389)

2018-6-26 22:55 上传

点击文件名下载附件

vbRichClient精选案例.part2.rar (2 MB, 下载次数: 377)

2018-6-26 22:55 上传

点击文件名下载附件

vbRichClient精选案例.part3.rar (2 MB, 下载次数: 178)

2018-6-26 22:55 上传

点击文件名下载附件

vbRichClient精选案例.part4.rar (2 MB, 下载次数: 188)

2018-6-26 22:56 上传

点击文件名下载附件

vbRichClient精选案例.part5.rar (1.6 MB, 下载次数: 359)

2018-6-26 22:56 上传

点击文件名下载附件

官方下载地址：
vbRichClient官方下载地址.zip (236 Bytes, 下载次数: 80)

2018-6-26 22:52 上传

点击文件名下载附件

fxl447098457

今天补充一下ArrayList的用法。这个和.net里面的差不多的。vba里面调用.net里面的ArrayList可以通过CreateObject("system.collections.arraylist"),下面写一个简单的调用例子。
Sub dd()
Dim arraylist As Object, arr
Set arraylist = CreateObject("system.collections.arraylist")
  With arraylist
    .Add "Hello"
      .Add "World"
      .Add "!"
End With
MsgBox "成员个数为" & arraylist.Count
arr = arraylist.toarray '写入数组
MsgBox arr(1)
End Sub
具体使用方法可以查看msdn的文档。
下面补充一个VbRichClient中ArrayList简单使用的例子
Sub ArrayList()
Dim Rootpath As String, w As Object, ar, al As Object
Rootpath = ThisWorkbook.Path & "\"
  LoadLibraryW StrPtr(Rootpath & "DirectCOM.dll") '加载库
  Set w = GetInstanceEx(StrPtr(Rootpath & "vbRichClient5.dll"), StrPtr("cConstructor"), True) '免注册初始化实例
  ar = Array("a", "b", "a", "c")
Set al = w.ArrayList(vbString, ar)
     With al
     .Add "m"
     MsgBox "含有" & .Count & "个成员"
     MsgBox "连接字符串:" & .Join("-")
     .push "f"
     MsgBox "现在有" & .Count & "个成员"
     MsgBox "现在的成员未sort的顺序为" & .Join("-")
     .Sort
     MsgBox "现在的成员顺序为" & .Join("-")
     MsgBox "第一个成员为" & .Item(0) & ",第三个成员为" & .Item(2)
      .CopyToArray Arr, 1  '写入下标为1的数组
      
      MsgBox "数组长度为:" & UBound(Arr)
      End With
End Sub

fxl447098457

ivccav 发表于 2018-6-26 22:56
支持一下。有时间看看能否用得上。文档谁能翻译一下就完美了。
加点实例：

文档也是很简洁的那种。只列出方法和属性以及参数类型。类比一下vb才好点。。

fxl447098457

下面再讲一个StringBuilder类。这个玩意主要应用于大量字符串的拼接。我们在vba中连接字符串都是通过+或者&连接起来。String 是不可变的，在每次对 String 类型进行改变的时候其实都等同于生成了一个新的 String 对象，然后将指针指向新的 String 对象。如果有大量字符串操作,这么做肯定是很消耗内存的.并且效率低下
所以,StringBuilder出现了.
下面我先讲一下VBA里使用.net里面的StringBuilder.利用CreateObject("System.Text.StringBuilder")创建stringbuilder对象。做一个简单的代码演示一下：

Sub stringbuilder() '调用.net里的stringbuilder
Dim s As Object, arr, i%
Set s = CreateObject("System.Text.StringBuilder")
arr = Array("f", "hj", "123", "bnm", "sdf")

  For i = 0 To UBound(arr)
   s.append_3 arr(i)
Next

  MsgBox s.tostring '输出为字符串
  MsgBox s.Length '字符串长度
End Sub

然后我们再看一下vbrichclient里的演示示例：

Sub cstringbuilder() 'vbrichclient里使用
Dim Rootpath As String, SB As Object
Rootpath = ThisWorkbook.Path & "\"
  LoadLibraryW StrPtr(Rootpath & "DirectCOM.dll") '加载库
  Set SB = GetInstanceEx(StrPtr(Rootpath & "vbRichClient5.dll"), StrPtr("cStringBuilder"), True) '免注册初始化实例
  arr = Array("f", "hj", "123", "bnm", "sdf")
  For i = 0 To UBound(arr)
   SB.append CStr(arr(i))
Next

  MsgBox SB.tostring '输出为字符串
  MsgBox SB.Length '字符串长度
End Sub

sayhi95

饭饭你好，饭饭威武！

02761752696

占楼学习 ，老师威武

私吞

请教一下：
ADO needs to be installed to use DataBinding  这是啥错误，怎么解决呢。rs.DataSource的地方

fxl447098457

私吞 发表于 2018-8-3 15:44
请教一下：
ADO needs to be installed to use DataBinding  这是啥错误，怎么解决呢。rs.DataSource的地 ...

需要安装activex data object. https://www.microsoft.com/en-us/download/details.aspx?id=21995