勤哲Excel服務器軟件結合VBA做物流管理係統

隨著“十三五”規劃的到來，傳統物流行業迎來了信息化物流轉型的關鍵性時期。在“互聯網+”的推動之下，技術升級改造傳統物流服務產業，使其成為了信息化、集約化的物流服務平台。

業界專家分析指出，信息化是未來物流發展的必然趨勢。信息化有助於解決物流行業環節冗雜，信息不對稱以及“最後一公裏”的配送問題，另外，信息化物流對於配送信息的處理、貨物運輸的狀態以及貨物安全保障問題等方麵都是傳統物流配送無法比擬的。以目前的形式來看，信息化物流服務產業仍有很大的想象空間，並有望成為未來互聯網領域最好的細分市場之一。

作為信息化代表軟件，勤哲Excel服務器軟件與VBA可調用函數結合就是物流信息化代表應用：

一.VBA可調用函數

ExecQuery(qryList)

功能：連續應用若幹條(一條或多條)指定的表間公式

參數：qryList：表間公式名稱列表，各公式名之間用逗號分割。

應用場合：在模板上寫VBA程序，調用此函數，可實現用戶控製(手動)表間公式的運行。

二.實例應用

某企業的物料查詢

2.1功能描述

該企業在庫存管理中，對庫存商品的指定查詢條件，方便業務人員按條件查找物料。在勤哲EXCEL服務器軟件中建立一個“純查詢模板”通過運用表間公式就可以把涉及到庫存信息做一個查詢結果表現出來，實現查詢物料信息的這樣一個功能。

2.2建立“物料查詢表”

描述:該模板是“純查詢模板”

　　2.3按模板定義的數據項寫出表間公式

如:主表：品牌、供應商、品名、規格、

明細：庫存數量

2.4表間公式

運用勤哲EXCEL服務器表間公式提出所查詢信息應用手動執行.

目的：按查找條件執行。

(1)按品牌提取

提取<物料表_明細>中滿足下列條件的數據:

<數據篩選:物料表_明細.品牌>

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

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

物料表_明細.供應商 --->(填入值) 供應商 (升序)

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

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

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

(2)按供應商

提取<物料表_明細>中滿足下列條件的數據:

<數據篩選:物料表_明細.供應商>

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

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

物料表_明細.供應商 --->(填入值) 供應商 (升序)

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

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

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

(3)品名查詢

提取<物料表_明細>中滿足下列條件的數據:

<數據篩選:物料表_明細.品名>

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

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

物料表_明細.供應商 --->(填入值) 供應商(升序)

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

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

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

(4)規格

提取<物料表_明細>中滿足下列條件的數據:

<數據篩選:物料表_明細.規格>

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

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

物料表_明細.供應商 --->(填入值) 供應商 (升序)

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

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

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

(5)庫存

提取<物料表_明細>中滿足下列條件的數據:

<數據篩選:物料表_明細.庫存數量 <>0>

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

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

物料表_明細.供應商 --->(填入值) 供應商

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

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

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

2.5在模板中運用EXCEL VBA功能加入“命令按鈕”

打開EXCEL“工具”-Viusal basic

　　添加“命令按鈕”如圖

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

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

(1)

Private Sub CommandButton1_Click()

Dim oAdd As Object

Dim ans As Boolean

′獲取Excel服務器編程接口

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

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

oAdd = Nothing

End Sub

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

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

Dim oAdd As Object

Dim ans As Boolean

′獲取Excel服務器編程接口

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

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

oAdd = Nothing

End Sub

………………………….

依次寫入“品名、規格、庫存數量”的代碼

應用效果:

品牌查詢

　　供應商查詢

　　品名查詢

　　規格查詢

　　查全部庫存

　　小結：

有關負責人介紹說，勤哲Excel服務器軟件與VBA可調用函數的結合幫助物流業成功實現了全程信息化控製，該軟件具有操作簡單方便、數據傳遞迅速、電子表格易於長久保存、產品原始數據查詢方便等特點，同時將崗位員工從簡單、繁重、重複性的勞動中解放了出來。