Java与VBA通讯实践

技术 专栏收录该内容
14 篇文章 0 订阅
1. DDE(动态数据交换)方式
VBA具有DDE能力,Java没有。网上搜索了一下,有几个公司开发了这方面的类库,可以使Java具有DDE能力。
(1)JavaDDE - nevaobject:
http://www.nevaobject.com/_docs/_javadde/JavaDde.pdf
(2)WinPack - jniwrapper:
http://www.jniwrapper.com/pages/winpack/overview
两个类库号称都很强,但是都要求付费,就没怎么研究。玩了一下winpack的demo,几乎所有windows的工具,如察看硬盘,网络连接,用户管理等等,都可以用它的类库使用Java语言来包装。

2. Com Dll方式
这种方法理论上可以,但是Excel文件带着dll到处跑的话,总觉得不像话。
(1)Sun ActiveX Bridge - Sun提供的方法。具体参见下面网页。
http://java.sun.com/j2se/1.4.2/docs/guide/beans/axbridge/developerguide/index.html
简要用法:
-1. Write a java bean, and use java activex bridge to create dll.
CODE:   [Copy to clipboard]
C:/Program Files/Java/j2re1.4.2/axbridge/bin>C:/j2sdk1.4.2/bin/packager -clsid {D824B185-AE3C-11D6-ABF5-00B0D07B8581} -out . -reg F:/excelvba/excelvba.jar jp.co.esm.pmt.PMTBean
-2. Write the VBA in Excel.
(2)j-integra提供了两种解决方案。
前期绑定和后期绑定。后期绑定无需知道通讯的Java对象信息,将Java对象注册给虚拟机之后(使用j-integra工具),即可在运行时动态寻找到对象。
前期绑定速度比后期绑定快,但是要在编译之前注册JVM到VB工程。
前期绑定方法: http://j-integra.intrinsyc.com/support/com/doc/javafromcom/vb2javaeb.html
后期绑定方法: http://j-integra.intrinsyc.com/support/com/doc/javafromcom/vb2javalb.html
(3)微软的工具Microsoft SDK for Java
不过由于微软和sun的官司,在微软网站上已经无法下载这个工具了。
HomePage: http://www.microsoft.com/mscorp/java


3. Socket 通信
利用Socket通信,Java作为服务器端,VBA作为客户端。这种情况下,是不是java都没有关系了。
Java服务器端程序比较好写。关键是VBA客户端。
(1)使用Wsock控件当然是最简单的,但是我们的代码不能出现窗口,也就不能使用Wsock。而且我电脑上莫名其妙的不能使用Wsock,原因是未得到认证。不知为何。
(2)BASP21.DLL Socket Object:用这个Dll可以替代Wsock控件。但是最好不使用Dll。
http://www.hi-ho.ne.jp/babaq/eng/basp21s.html
(3)CSocketMaster 1.2 & CSocketPlus 1.1
VB模块,全代码,非控件,将模块导入VBA中即可。而且有详尽的例子,在VB上运行的非常好。但是在VBA中,导致Excel频频Crash,百思不得其解,不知为何。
比如其中有段代码:
CODE:   [Copy to clipboard]
Const MOD_VBA5 As String = "vba5"                           'Location of the EbMode function if running VB5
Const MOD_VBA6 As String = "vba6"                           'Location of the EbMode function if running VB6
  If Subclass_InIDE Then
    'Patch the jmp (EB0E) with two nop's (90) enabling the IDE breakpoint/stop checking code
    Call api_CopyMemory(ByVal nAddrSubclass + 12, &H9090, 2)
   
    i = Subclass_AddrFunc(MOD_VBA6, FUNC_EBM)               'Get the address of EbMode in vba6.dll
    If i = 0 Then                                           'Found?
      i = Subclass_AddrFunc(MOD_VBA5, FUNC_EBM)             'VB5 perhaps, try vba5.dll
    End If

    Debug.Assert i                                          'Ensure the EbMode function was found
    Call Subclass_PatchRel(PATCH_01, i)                     'Patch the relative address to the EbMode api function
不知道这个EbMode干吗用的,MSDN上也查不到有价值的东西。如果注释掉这段代码,会导致VB崩溃。

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=54681&lngWId=1
(4)CSocket class - replacement for the MS Winsock Control
翻了一个晚上,终于找到了这个Module, 上面提到的CSocketMaster 也是根据这个改编的。
在VBA上使用了一下这个Module,比较流畅。
主页: http://www.vbip.com/winsock-api/csocket-class/csocket-class-01.asp
  • 0
    点赞
  • 2
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值