[發明專利]基于Excel中VBA模塊計算空調管路加工工藝的方法

有效

• 申請號: 201811245949.2
• 申請日: 2018-10-24
• 公開（公告）號: CN109492276B
• 公開（公告）日: 2022-11-25
• 發明（設計）人: 路聕
• 申請（專利權）人: 陜西泰德汽車空調有限公司
• 主分類號: G06F40/18
• 分類號: G06F40/18;G06F8/20;G06F8/38
• 代理公司: 西安弘理專利事務所 61214
• 代理人: 涂秀清

本發明公開的基于Excel中VBA模塊計算空調管路加工工藝的方法，具體計算包括如下過程：開發VBA模塊；在Excel工作表中定義CATIA數據處理模塊、數據格式轉化模塊和計算模塊；在Excel中設計軟件界面及各功能區域，設置操作控件；在Excel工作表的窗體中導入CATIA格式的坐標點數據，通過計算模塊設置的公式和Excel自帶的公式計算出各工藝參數的結果并且在UserForm界面的文本框中顯示出計算結并導出CSV文件。本發明公開的方法解決了現有計算方法過程繁瑣，需要人工大量的重復性工作導致工作效率低下的問題。

技術領域

本發明屬于機械工程技術領域，涉及一種基于Excel中VBA模塊計算空調管路加工工藝的方法。

背景技術

汽車空調管路是三維空間結構，包含折彎的空心鋁管、管端密封結構(墩頭、鼓包、漲口、縮口)、密封溝槽(與空調膠管壓接)、壓力開關、制冷劑充注閥、固定支架(與鋁管焊接或鉸接)等結構，管路走向根據整車發動機、中冷器、散熱器、駕駛室等系統的布置而變化，鋁管的參數：空間點、管徑、壁厚、折彎半徑、管端密封方式(利用塑性成型原理加工的墩頭、鼓包、漲口、縮口等結構)，膠管參數：長度、規格、適用的鋁管規格。目前管路加工坐標點普遍采用手工將CATIA導出的坐標點手動粘貼到Excel表格中，利用預先設置的公式計算，然后手工導出CSV文件；工藝參數計算則是手工計算，通過查詢各種工藝參數，用計算器計算加工所需的原材料長度，以及鋁管加工時所需的長度參數，這種計算方法過程繁瑣，存在大量重復性工作，使用非常不便，降低工作效率。

發明內容

本發明的目的是提供一種基于Excel中VBA模塊計算空調管路加工工藝的方法，解決了現有計算方法過程繁瑣，需要人工大量的重復性工作導致工作效率低下的問題。

本發明所采用的技術方案是，基于Excel中VBA模塊計算空調管路加工工藝的方法，具體計算包括如下過程：

(1)開發VBA模塊：在Excel自帶的Visual Basic編輯器中，建立與MicrosoftExcel中數據調用的UserForm界面、ThisWorkbook模塊和工作表模塊，所述ThisWorkbook模塊用于Excel宏文件啟動時加載UserForm界面，所述工作表模塊用于切換Excel中的工作表，所述UserForm界面設置為多頁面，用于將UserForm界面分為工藝參數計算頁面和工藝參數查詢頁面，所述工藝參數計算頁面設置有命令按鈕、文本框和列表框；

(2)在Excel工作表中定義CATIA數據處理模塊、數據格式轉化模塊和計算模塊，所述CATIA數據處理模塊用于將CATIA軟件輸出的坐標點數據存儲在Excel的工作表中，所述計算模塊設置有空間點間距、空間直線角度、圓弧長度、管路中心線長度的計算公式，所述數據轉化模塊用于將數據計算模塊計算的結果轉換為輸出CSV格式的文件；

(3)在Excel中設計軟件界面及各功能區域，設置操作控件，包括所述UserForm界面的各功能區域及觸發調用控件、用于所述CATIA數據處理模塊導入坐標點數據的存儲區域，用于所述計算模塊的計算區域，以及用于輸出計算結果CSV格式的數據存儲區域；

(4)在Excel工作表的窗體中或者通過VBA模塊的UserForm界面導入CATIA格式的坐標點數據，用戶在所述UserForm界面上輸入工藝參數，所述Excel工作表的計算模塊根據輸入的工藝參數通過計算模塊設置的公式和Excel自帶的公式計算出各工藝參數的結果并且在所述UserForm界面的文本框中顯示出計算結果并通過所述UserForm界面的命令按鈕導出CSV文件。

本發明的其他特點還在于，

ThisWorkbook模塊用于在Excel宏文件關閉時，判斷Excel中打開的工作簿的數量，如果工作簿數量為1，則直接退出不提示保存，否則只關閉當前工作簿。