Excel Server Home

ExecQuery

ExecQuery(qryList)

 

功能:连续应用若干条(一条或多条)指定的表间公式

参数:qryList:表间公式名称列表,各公式名之间用逗号分割。

 

应用场合:在模板上写vba程序,调用此函数,可实现用户控制(手动)表间公式的运行。

 

例程

Private Sub cmdQry_Click()

Dim oAdd As Object
Dim ans As Boolean
Dim s As String '要应用的表间公式名称

'获取Excel服务器编程接口
Set oAdd = Application.COMAddIns.Item("ESClient.Connect").Object

'确定要应用的公式名称
If Range("C10") = "日汇总" Then
s = "查询_日汇总"
Else
s = "查询_明细"
End If

Sheet2.Activate
Sheet2.Range("A4").Select

ans = oAdd.execQuery(s)
Set oAdd = Nothing

End Sub

 

Excel服务器学习和下载

http://www.qinzhe.com

http://www1.qinzhe.com

http://www3.qinzhe.com