免注册使用VbRichClient

fxl447098457 · 发表于 2018-6-26 18:36

承接这个帖子：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, 下载次数: 473)

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

yunfei2018 · 发表于 2018-6-26 22:09

这个不错，关注下，

ivccav · 发表于 2018-6-26 22:56

支持一下。有时间看看能否用得上。文档谁能翻译一下就完美了。
加点实例：

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

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

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

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

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

官方下载地址：

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

fxl447098457 · 发表于 2018-6-27 08:19

今天补充一下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 · 发表于 2018-6-27 08:23

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

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

fxl447098457 · 发表于 2018-6-27 11:05

下面再讲一个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 · 发表于 2018-6-27 17:07

饭饭你好，饭饭威武！

02761752696 · 发表于 2018-6-28 13:59

占楼学习，老师威武

私吞 · 发表于 2018-8-3 15:44

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

fxl447098457 · 发表于 2018-8-5 18:30

私吞发表于 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

		自动登录	找回密码
密码			免费注册

[分享] 免注册使用VbRichClient

评分

评分

评分

评分