探讨如何基于CATIA VBA实现键导出Bom信息到Excel中的功能。此外，还将探讨Excel的宏使用技巧。导出Bom信息到Excel中_腾讯视频​v.qq.com

高清视频请访问如下链接查看：

01编程思路

首先设计一个如下图的Bom表，表中列出我们想要的Bom信息。Bom表每家企业都可能不一样，一般都是客制化的，根据需求来制作。

同样，Bom表的制作方法也有很多，本文介绍其中一种制作的思路。

代码按如下思路来写：如何获取产品的属性信息，如产品名称、产品编号、存储保存路径等等

如何获取所有需要的产品级别的属性信息，如导出一级部品、二级部品等

如何将获取到的产品属性信息写入Excel中

如何按照结构树的顺序将Bom信息导入Excel中

Excel的单元格的格式怎么修改

02如何设置Excel的颜色

颜色的设置方法有两种

一种通过索引：.Interior.ColorIndex = i

另一种用RGB值：.Interior.Color = RGB(255, 192, 0)

方法都是.Interior的颜色属性

03如何设置Excel的单元格式

>>>获取Excel的Application

Set xlApp = GetObject(, "Excel.Application")

If Err.Number <> 0 Then

Err.Clear

Set xlApp = CreateObject("EXCEL.Application")

Else

Err.Clear

MsgBox "Please note you have to close Excel", vbCritical

Exit Sub

End If

xlApp.Visible = True

>>>新建工作薄

Set oSheet = xlApp.Application.workbooks.Add

>>>设置工作表单元格格式

With xlApp

.cells.Clear‘清除所有内容

.cells.ClearFormats ‘清除所有格式

.cells.Font.Name = "Microsoft YaHei" ‘字体微软雅黑

.cells.Font.Size = 10‘字体大小

.cells.HorizontalAlignment = 2‘对齐方式

.Range(.cells(oRow, oColumn), .cells(oRow, oColumn + 7)).Font.Bold = True‘字体加粗

.Range(.cells(oRow, oColumn), .cells(oRow, oColumn + 7)).Font.Color = RGB(255, 0, 0)‘字体颜色

End With

>>>其他设置方法

>>>另外，再说几个技巧合并单元格

.ActiveSheet.Range(.cells(1, "B"), .cells(1, "I")).Merge

不显示网格线

.ActiveWindow.DisplayGridlines = False

设置过滤

.ActiveSheet.Range(.cells(12, "B"), .cells(12, "I")).AutoFilter

等等，我们都可以通过Excel的宏录制找到。

04获取Excel最后一个非空单元格

如果能够获取到Excel的最后一个非空单元格，那么，我们写入数据的时候，只要永远写在Excel非空单元格的下一行，那么就能实现数据依次全部写入Excel中了。Excel中的书写方法是这样的：

Dim LastRow As String

LastRow = xlApp.Range("B" & xlApp.Rows.Count).End(xlUp).Row + 1

LastRow = xlApp.Range("A65536").End(xlUp).Row + 1

LastRow = xlApp.Range("A" & xlApp.Rows.Count).End(xlUp).Row + 1

LastRow = xlApp.Range("A1").End(xlDown).Row + 1

然而在CATIA中，你会发现这样写是行不通的，一定会报错。查询了很多资料后，终于找到一篇帖子，给出了一个解决办法：

在使用xlDown和xlUp方法前要先申明常量值：

Const xlDown = -4121

Const xlUp = -4162

虽然我到现在也没搞明白这几个数值的含义，但是，这种方法是可以解决问题的。

附上找到的那篇帖子原文，供大家参考：

放大点看

05获取产品不同级别的属性信息

>>>使用For ... next循环获取

需要哪一级别在for next里套上下面这个循环就可以

需要注意的是要修改

Fork=1To oProductDoc.Product.Products.Item(i).Products.Item(j).Products.Count

oProductDoc.Product.Products.Item(i).Products.Item(j).Products.Item(k).PartNumber

这里的.Products.Item(j)得到的是Product，Product下就是Products，Products是Product的集合，可以用item(i)来获取其中的Product，就这样一层一层的绕下去。

如果不太确定的时候，我们可以加个Select方法直接在结构树中测试

CATIA.ActiveDocument.Selection.Clear

CATIA.ActiveDocument.Selection.Add CATIA.ActiveDocument.Product.Products.Item(1).Products.Item(1) ~balabala

06详细代码

>>>详细代码如下

07参考资料

教程来自慧舟软件

PLM应用工程师

伍松 提供

更多资讯，请关注慧舟软件CATIA及PLM专家