[發明專利]一種基于VBA語言的借用件自動生成系統

有效

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

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

2.根據權利要求1所述的基于VBA語言的借用件自動生成系統，其特征在于，所述操作界面通過VBA程序依次打開各表格并自動判斷借用件的步驟包括用于與操作界面產生聯系并在系統操作界面的標簽里顯示程序運行的狀態及調用子程序的主程序、順次打開工作表進行自動判斷借用件并保存及關閉工作表的子程序及自動整理成標準格式的子程序。

3.根據權利要求2所述的基于VBA語言的借用件自動生成系統，其特征在于，所述主程序包括以下步驟：先點擊操作界面上“自動生成借用件明細”按鈕，則在操作界面的信息單元格內顯示程序是否已成功的開啟并處于運行中，若正在運行，則操作界面的信息單元格內顯示“拼命加載中...”，再調用順次打開工作表進行自動判斷借用件并保存及關閉工作表的子程序及自動整理成標準格式的子程序，最后在操作界面的信息單元格內顯示“加載已完成”，至此程序結束。

4.根據權利要求2至3中任一項所述的基于VBA語言的借用件自動生成系統，其特征在于，所述順次打開工作表進行自動判斷借用件并保存及關閉工作表的子程序步驟如下：首先確定所需打開及整理的文件路徑，并根據文件名確定具體需要打開的文件，打開文件后通過不需要整理的文件條件判斷是否對該文件進行編輯整理，若文件無需整理則直接關閉，再循環至確定具體需要打開的文件，判斷文件名稱然后打開另一個文件，再判斷是否需要整理，直至打開需要編輯整理的文件為止，再根據借用件判斷條件對需要編輯整理的文件中是否是借用件進行篩選，若根據借用件判斷條件判斷該行不是借用件，則自動判斷下一行直至結束，當判斷出該行是借用件后會自動選擇該行的內容然后進行復制，同時打開模板文件“借用件明細表”，在相應位置粘貼復制的內容，繼續判斷、復制及粘貼下一行，重復以上動作，直至判斷結束跳出子程序，篩選完成后保存及關閉工作表。

5.根據權利要求4所述的基于VBA語言的借用件自動生成系統，其特征在于，所述打開的文件與操作界面文件名稱相同的則不需打開，否則打開。

6.根據權利要求4所述的基于VBA語言的借用件自動生成系統，其特征在于，所述打開需要編輯整理的文件后需先刪除對借用件無用的“材料”列，再提取該文件名稱。

7.根據權利要求4所述的基于VBA語言的借用件自動生成系統，其特征在于，所述不需要整理的文件條件是：不需要整理的文件是其打開文件的第1列第2行交叉處的單元格中有“序號”字符，則無需整理。

8.根據權利要求4所述的基于VBA語言的借用件自動生成系統，其特征在于，所述借用件判斷條件需同時滿足以下條件：a.提取完需要編輯整理文件名稱后把該名稱從右側截取七位字符，利用截取后余下的字符與所打開文件的圖號列單元格中的字符“各個零件或標準件的圖號”進行比對，若單元格的字符與截取后余下的字符不同，則為借用件，若相同則為該部件的直屬件即不是借用件；b.若圖號列單元格中的前兩個字符為“GB”，則為標準件即不是借用件，反之根據條件a判斷；c.若圖號列單元格中的前兩個字符為“代號”，則為項目列即不是借用件，反之根據條件a判斷；d.若圖號列單元格中的前兩個字符為空字符，則不是借用件，反之根據條件a判斷。

9.根據權利要求2至3中任一項所述的基于VBA語言的借用件自動生成系統，其特征在于，所述自動整理成標準格式的子程序是按照基于VBA語言的借用件自動生成系統中的借用件標準格式，將字體大小、行距等屬性寫入程序中。

10.根據權利要求1至3中任一項所述的基于VBA語言的借用件自動生成系統，其特征在于，所述操作界面是由在EXCEL工作表內創建的“自動生成借用件明細”按鈕及信息單元格組成。