Excel VBA 调用 spl 函数 - 案例

抛砖引玉!

环境:
必须安装 esProc Desktop 版本的集算器,并且安装完成 Excel 插件。
http://www.raqsoft.com/esproc-download

案例 1:在 VBA 中调用单行语句的 SPL 函数
Excel 中创建一个按钮
imagepng

双击按钮,进入脚本编辑界面:

Private Sub CommandButton1_Click()
Dim var1 As Variant, var2 As Variant

var1 = Application.Run(“spl”, “=rand(100)”)
var2 = Application.Run(“spl”, “=rand(?)”, Range(“D9”))

Range(“D8”) = var1
Range(“E9”) = var2
End Sub

imagepng

案例文件:

VBAcallSPLrar

案例 2:在 VBA 中调用多行语句的 SPL 函数

imagepng

利用换行字符 chr(10) 和 VBA 语句换行连接符:[空格]+_ 来写多行 SPL 语句

imagepng
(另外 chr(10) 可以用常量 vbLf 替换)

案例 3:在 VBA 中调用多行多列语句的 SPL 函数

imagepng

利用换行字符 chr(10)、水平制表符 chr(9) 和 VBA 语句换行连接符:[空格]+_ 来写多行 SPL 语句

imagepng
(另外 chr(9) 可以用常量 vbTab 替换)

等于 SPL 语句:
imagepng

案例 4:在 VBA 中调用 SPL 语句脚本文件

imagepng

在 VBA 中调用脚本文件 getColName.dfx
在 SPL 脚本文件中写多行语句