使用Excel VBA 来运行Aardio代码
By
the100s
at 2021-11-06 • 1人收藏 • 1392人看过
首先我们打开COM组件范例“创建ActiveX EXE”，然后进行发布。打开发布目录，运行AardioCOM.exe并点击是注册控件。
打开 WPS，新建带宏的文件，打开VBA编辑器，点击“工具”--“引用”--勾选控件。
回到表格界面，用WPS的开发工具给单元格画一个按钮，指定宏代码。
按钮代码（VBA）：
Private Sub CommandButton1_Click()
Dim sample, num
Set sample = CreateObject("AardioTestControl.Sample")
'num = sample.Add(1, 3)
'MsgBox num
code = ActiveSheet.Range("e6").Text
re = sample.Aardio(code)
ActiveSheet.Range("e7").value = re
End Sub
找一个范例，复制全部Aardio代码到e6单元格。
把Aardio的lib文件夹复制，到AardioCOM.exe的发布目录下粘贴出来。（因为控件需要引用别的库文件）。
最后运行效果如图：
各种范例都可贴来一试，非常6
登录后方可回帖