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
|