[發(fā)明專利]一種基于VBA語言的借用件自動生成系統(tǒng)

有效

• 申請?zhí)枺?/td>: 201811450005.9
• 申請日: 2018-11-30
• 公開（公告）號: CN109582942B
• 公開（公告）日: 2022-11-15
• 發(fā)明（設計）人: 張磊;寇曉晨;于鵬飛;郝新民;溫寶卿;彭曉雷;張巨海;趙高霞
• 申請（專利權(quán)）人: 陽煤忻州通用機械有限責任公司
• 主分類號: G06F40/18
• 分類號: G06F40/18;G06F3/04842;G06F3/0481
• 代理公司: 太原華弈知識產(chǎn)權(quán)代理事務所 14108
• 代理人: 張筱莉

本發(fā)明公開了一種基于VBA語言的借用件自動生成系統(tǒng)，首先把從設計圖紙導出來的包含全部明細的多個明細表重命名后放到該系統(tǒng)的文件夾內(nèi)，然后通過VBA程序依次打開各表格并自動判斷借用件，最后再自動整理格式后關閉，直到把文件夾內(nèi)的全部明細表整理成只包含借用件明細的標準格式的借用件明細表，大大提高了工藝人員的工作效率，縮短了產(chǎn)品設計的時間，提高了標準化程度，減少了產(chǎn)品的加工周期。

技術(shù)領域

本發(fā)明屬于借用件管理技術(shù)領域，具體涉及一種基于VBA語言的借用件自動生成系統(tǒng)。

背景技術(shù)

工藝所在編制工藝文件時，通常會把該部件所借用的零件單獨整理出來，方便生產(chǎn)部門安排生產(chǎn)。現(xiàn)有借用件的整理通常是根據(jù)人工識別出哪些是借用件，然后把它們挑出來放到一張表上，整理好格式再打印出來連同工藝文件一并下發(fā)，每次只能整理一個部件的借用件，并且每次都得重新整理格式，極易出錯，工作效率較低，易導致漏投產(chǎn)零件，影響交貨周期等現(xiàn)象。現(xiàn)有借用件明細表的格式都是由個人掌握，因此最終匯總到一起后，格式差別很大，很不統(tǒng)一，為后續(xù)抄計劃安排生產(chǎn)增加很多困擾。

發(fā)明內(nèi)容

為了克服現(xiàn)有借用件整理技術(shù)中格式不統(tǒng)一、功效效率低及易出錯的缺陷，本發(fā)明提供了一種能提高工藝人員工作效率及標準化程度，縮短了產(chǎn)品的加工周期的基于VBA語言的借用件自動生成系統(tǒng)。

本發(fā)明為了實現(xiàn)上述目的所采用的技術(shù)方案是：

一種基于VBA語言的借用件自動生成系統(tǒng)，包括以下步驟：首先將從設計圖紙中導出來的包含全部明細的所有明細表重命名，命名完成后移動至該系統(tǒng)所在的文件夾內(nèi)，然后在EXCEL工作表內(nèi)創(chuàng)建操作界面，操作界面通過VBA程序依次打開各表格并自動判斷借用件，最后再按照借用件明細表的標準格式自動整理格式后關閉，直到把文件夾內(nèi)的全部明細表整理成只包含借用件明細的標準格式的借用件明細表。

進一步地，所述操作界面通過VBA程序依次打開各表格并自動判斷借用件的步驟包括用于與操作界面產(chǎn)生聯(lián)系并在系統(tǒng)操作界面的標簽里顯示程序運行的狀態(tài)及調(diào)用子程序的主程序、順次打開工作表進行自動判斷借用件并保存及關閉工作表的子程序及自動整理成標準格式的子程序。本發(fā)明考慮到還需在操作界面里控制該VBA程序及程序運行的效率，所以將該程序分成三個部分，即一個主程序，兩個子程序。

進一步地，所述主程序包括以下步驟：先點擊操作界面上“自動生成借用件明細”按鈕，則在操作界面的信息單元格內(nèi)顯示程序是否已成功的開啟并處于運行中，若正在運行，則操作界面的信息單元格內(nèi)顯示“拼命加載中...”，再調(diào)用順次打開工作表進行自動判斷借用件并保存及關閉工作表的子程序及自動整理成標準格式的子程序，最后在操作界面的信息單元格內(nèi)顯示“加載已完成”，至此程序結(jié)束。

進一步地，所述順次打開工作表進行自動判斷借用件并保存及關閉工作表的子程序步驟如下：首先確定所需打開及整理的文件路徑，并根據(jù)文件名確定具體需要打開的文件，打開文件后通過不需要整理的文件條件判斷是否對該文件進行編輯整理，若文件無需整理則直接關閉，再循環(huán)至確定具體需要打開的文件，判斷文件名稱然后打開另一個文件，再判斷是否需要整理，直至打開需要編輯整理的文件為止，再根據(jù)借用件判斷條件對需要編輯整理的文件中是否是借用件進行篩選，若根據(jù)借用件判斷條件判斷該行不是借用件，則自動判斷下一行直至結(jié)束，當判斷出該行是借用件后會自動選擇該行的內(nèi)容然后進行復制，同時打開模板文件“借用件明細表”，在相應位置粘貼復制的內(nèi)容，繼續(xù)判斷、復制及粘貼下一行，重復以上動作，直至判斷結(jié)束跳出子程序，篩選完成后保存及關閉工作表。

更進一步地，所述打開的文件與操作界面文件名稱相同的則不需打開，否則打開。

更進一步地，所述打開需要編輯整理的文件后需先刪除對借用件無用的“材料”列，再提取該文件名稱。

更進一步地，所述不需要整理的文件條件是：不需要整理的文件是其打開文件的第1列第2行交叉處的單元格中有“序號”字符，則無需整理。