線上學習
About Us

線上文檔

首頁 >>線上學習 >>線上文檔

第23章:通過VBA程式操縱Excel伺服器(二)

23.2.2 用按鈕執行表間公式

方法

execQuery方法,作用是應用指定的表間公式,它只有一個參數,為字串類型,其內容是一條或若干條表間公式的名稱,若要執行的表間公式不止一條,彼此間需要用逗號分割(英文逗號)。

例如:

execQuery(“查詢”),表示要執行當前模版上定義的表間公式“查詢”

       execQuery(“查詢,統計”),表示要連續執行當前模版上定義的表間公式“查詢”和“統計”。

示例

復習第9章建立的“銷售台帳”範本,我們定義了一個手動執行的表間公式“組合條件查詢”。在範本上增加一個按鈕,如圖:

 

 

 

 

 

 

 

 

23-5

在按鈕的Click事件處理程式中寫如下代碼:

1

Private Sub cmdQry_Click()

2

    Dim oAdd As Object

3

   

4

    oAdd = Application.COMAddIns("ESClient.Connect").Object

5

   

6

    Range("C4").ct

7

    oAdd.execQuery ("組合條件查詢")

8

 

9

    oAdd = Nothing

10

End Sub

 

24行,聲明物件變數、賦值(必須這樣寫)

6行,遊標放置到明細表的第1

7行,執行表間公式

9行,釋放物件(必須這樣寫)