PADS打开PCB导出BOM提示ActiveX失败的解决方法

配置好PADS打开P觊皱筠桡CB文件导出带坐标BOM时,有时候会出现“ActiveX Automation: server could not be found.”的问题,导致无法成功导出BOM的表格文件,错误提示截图如下:

弹出如下提示框:

将上面红圈圈中的地方进行修改,将原来的:

Sub ExportToExcel

FillClipboard

Dim xl As Object

On Error Resume Next

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

On Error GoTo ExcelError' Enable error trapping.

If xl Is Nothing Then

Set xl = CreateObject("Excel.Application")

End If

修改为:

Sub ExportToExcel

FillClipboard

Dim xl As Object

On Error Resume Next

Set xl = GetObject(,"Ket.Application")

On Error GoTo ExcelError' Enable error trapping.

If xl Is Nothing Then

Set xl = CreateObject("Ket.Application")

End If

也就是将源码文件中的“Excel.Application”修改为“Ket.Application”,然后保存。之后,就可以成功生成BOM文件了。