Excel VBA在贴片数据处理中应用.docVIP

Excel VBA在贴片数据处理中应用 　　【摘 要】针对目前贴片数据处理费时费力，容易出错的问题，提出了利用Excel VBA编程的方法实现自动贴片数据处理的思路。为了有效完成贴片数据自动处理，分析了贴片数据格式，元件表格式，并根据设计方案实现了贴片数据自动处理的功能。测试结果表明本文实现的贴片数据处理程序能够迅速准确的完成数据处理。 　　【关键词】表面组装贴片数据；VBA 　　0 引言 　　表面组装技术是目前电子制造领域中的主流组装技术，其关键设备为元器件贴装机，功能为准确的将对应的元器件放置到印制电路板的相应位置，具有高速、高精度的特征。一条表面组装生产线的效率主要取决于贴装机的工作效率，而贴装机的编程准确性以及速度影响到组装的质量和生产效率，而贴片数据的预先处理工作占编程时间比例较大，因此如何提高贴片数据预先处理的效率就成为面临的问题。 　　1 需求分析 　　目前印制电路板的设计软件主要有Altium Designer、Cadence和Mentor等，其中Cadence和Mentor设计软件中导出的贴片文件不包含元器件的规格型号信息，Altium Designer导出的贴片文件中虽然包含元器件的型号规格信息，但是由于设计师的不同对各种元器件的命名也各不相同，并且规格型号不能满足编程需要，由于目前电路板的密度都较高，元器件的数量巨大，在修改的过程中容易出现错误，需要的时间较长。EDA软件导出的贴片数据以及元件表数据内容如图1所示。 　　贴片数据处理程序的开发主要完成贴片数据与元件表中数据的合并，并且在合并过程中对贴片数据与元件表数据进行比对，查找出存在问题的数据，并自检每个文件中存在的错误信息，最后对元器件的封装信息进行标准化的修改，达到一键完成贴片数据预处理的工作，并输出相关不匹配的信息，提高工作效率，避免由于人工合并造成的错误。 　　2 设计实现 　　程序的设计实现主要是对两个表中的项目代号进行匹配后将相关信息进行合并，最终得出需要的贴片数据。在该过程中执行相关命令，得出两个表中存在的差异数据以及各文件中数据本身存在的错误问题。执行过成功如图2所示。 　　2.1 元件表数据分离 　　要实现对元件表和贴片数据进行合并首先需要将元件表进行处理，元件表中将相同规格型号的元器件项目代号归到同一行中，而在合并时需要将其拆分为每一行对应一个项目代号以及其规格型号，这样方便数据的对比查找，从而实现数据合并处理。元件表中项目代号的分割方式主要为逗号分割，多个连续的项目代号使用横杠或波浪线进行连接，因此要对其进行拆分首先对逗号分割进行拆分后再进一步对连续的项目代号进行分割，实现每一行一个项目代号的目标，在该过程中统计每一行项目代号的数量，并与元件表中的数量信息进行比对，查找出实际数量与表中数量不符的条目，并进行输出。元件表为印制电路板设计师后期手工制作而成，因此可能会存在错误，比如重复录入元器件信息，我们需要将这些重复的信息查找出来。若使用人工审查的方式很难将这些重复录入的信息查找出来，而数据拆分完成后便可以非常便捷的查找重复数据信息。实现该功能的部分代码如下： 　　For y=1 To k Step 1 　　a=Cells（d，1） 　　b=Len（a） ‘确定单元格字符长度 　　Do while c=b 　　If Mid（a，c，1）MyValue Then 　　c=c+1 ‘搜索分隔符 　　b1=b1+1 　　Else 　　Cells（x，6）=Mid（a，al，b1） 　　Cells（x，7）=Cells（d，2） 　　Cells（x，8）=Cells（d，3） 　　a1=a1+b1+1 　　c=c+1 　　x=x+1 　　b1=0 　　End If 　　Loop 　　Cells（x，6）=Mid（a，a1，b1） 　　Cells（x，7）=Cells（d，2） 　　Cells（x，8）=cells（d，3） ‘以分隔符为界进行拆分 　　x=x+1 　　d=d+1 ‘进行下一单元格内容拆分 　　Next y 　　2.2 数据合并 　　元件表数据拆分完成后便可以将其与EDA软件导出的数据进行合并，生成需要的贴片数据文件。实现的方法为使用EDA导出的数据中每一行的项目代号到拆分完成的元件表中查找与之相同的项目代号，若查找到便将其对应的信息复制到贴片数据对应行，并继续进行下一行的数据合并，如果查找失败，则将该项目代号信息保存，输出不匹配信息。实现该功能的部分代码如下： 　　Do while b=k 　　a=Cells（b，15） 　　c=1 　　Do While c=j 　　d=Cells（c，11） 　　If a=d Then ‘判断项目代号是否