配置好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文件了。
