VBA中運(yùn)用勤哲Excel服務(wù)器表間公式實(shí)現(xiàn)管理系統(tǒng)

（1）按品牌提取

提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):

<數(shù)據(jù)篩選:物料表_明細(xì).品牌>

按以下方式填入<物料查詢表_明細(xì)>:

物料表_明細(xì).品牌 --->(填入值) 品牌 (升序)

物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商 (升序)

物料表_明細(xì).品名 --->(填入值) 品名(升序)

物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格 (升序)

物料表_明細(xì).庫存數(shù)量 --->(填入值) 庫存數(shù)量 (升序)

（2） 按供應(yīng)商

提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):

<數(shù)據(jù)篩選:物料表_明細(xì).供應(yīng)商>

按以下方式填入<物料查詢表_明細(xì)>:

物料表_明細(xì).品牌 --->(填入值) 品牌 (升序)

物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商 (升序)

物料表_明細(xì).品名 --->(填入值) 品名 (升序)

物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格 (升序)

物料表_明細(xì).庫存數(shù)量 --->(填入值) 庫存數(shù)量 (升序)

（3） 品名查詢

提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):

<數(shù)據(jù)篩選:物料表_明細(xì).品名>

按以下方式填入<物料查詢表_明細(xì)>:

物料表_明細(xì).品牌 --->(填入值) 品牌 (升序)

物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商(升序)

物料表_明細(xì).品名 --->(填入值) 品名 (升序)

物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格 (升序)

物料表_明細(xì).庫存數(shù)量 --->(填入值) 庫存數(shù)量 (升序)

（4） 規(guī) 格

提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):

<數(shù)據(jù)篩選:物料表_明細(xì).規(guī)格>

按以下方式填入<物料查詢表_明細(xì)>:

物料表_明細(xì).品牌 --->(填入值) 品牌(升序)

物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商 (升序)

物料表_明細(xì).品名 --->(填入值) 品名 (升序)

物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格(升序)

物料表_明細(xì).庫存數(shù)量 --->(填入值) 庫存數(shù)量 (升序)

（5） 庫 存

提取<物料表_明細(xì)>中滿足下列條件的數(shù)據(jù):

<數(shù)據(jù)篩選:物料表_明細(xì).庫存數(shù)量 <>0>

按以下方式填入<物料查詢表_明細(xì)>:

物料表_明細(xì).品牌 --->(填入值) 品牌

物料表_明細(xì).供應(yīng)商 --->(填入值) 供應(yīng)商

物料表_明細(xì).品名 --->(填入值) 品名

物料表_明細(xì).規(guī)格 --->(填入值) 規(guī)格

物料表_明細(xì).庫存數(shù)量 --->(填入值) 庫存數(shù)量

2.5   在模板中運(yùn)用EXCEL VBA功能加入“命令按鈕”

打開勤哲EXCEL“工具”中的-Viusal basic

添加“命令按鈕”如圖：

2.6 寫入VBA代碼 具體格式可以參考EXCEL服務(wù)器幫助

通過雙擊增加的“品牌查詢”命令按鈕寫入代碼

(1)

Private Sub CommandButton1_Click()

Dim oAdd As Object

Dim ans As Boolean

′獲取Excel服務(wù)器編程接口

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

ans = oAdd.execQuery("品牌查詢") 這里輸入表間公式名稱

oAdd = Nothing

End Sub

(2) 同樣的方法寫入第二段代碼

Private SubCommandButton2_Click()   命令按鈕為“供應(yīng)商查詢”

Dim oAdd As Object

Dim ans As Boolean

′獲取Excel服務(wù)器編程接口

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

ans = oAdd.execQuery("供應(yīng)商查詢") 同樣寫入表間公式

oAdd = Nothing

End Sub

………………………….

依次寫入“品名