利用VBA调用表间公式的方法

chhcao · 发表于 2009-7-1 10:52:56

第一步，调出控件工具箱
第二三步，选择控件工具箱里的命令按钮。在模版里画出一个命令按钮。
第四步，在画出的命令按钮上单击右键。选择”属性“命令。
第五步，在对话框caption后修改按钮的显示的名称，这里为”按订单号查询“。
第六步，在画出的命令按钮上单击右键。选择”查看代码“命令
第七步，在光标处输入以下命令代码（编辑CLICK的代码）
Dim oAdd As Object
  Set oAdd = Application.COMAddIns("ESClient.Connect").Object
  Sheet1.Activate
  Sheet1.Range("A4").Select
  ans = oAdd.execQuery("按订单号查询")
  Set oAdd = Nothing
其中红色的部分要根据实际情况填写。公式的名称换成要执行的表间公式就行了。
ESWEB无效

[ 本帖最后由 chhcao 于 2009-7-1 10:57 编辑 ]