[技术文章] PADS 运行脚本 “ActiveX Automation: server could not be found. &nbs

[复制链接]
查看1601 | 回复1 | 2021-5-7 17:45:33 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区

您需要 登录 才可以下载或查看,没有账号?立即注册

×
配置好PADS打开PCB文件导出带坐标BOM时,有时候会出现“ActiveX Automation: server could not be found.”的问题,导致无法成功导出BOM的表格文件,错误提示截图如下:
01bd69f7980e5f2054c6b06fbd20b93acc898e0f.jpg
导致上述问题的原因是在我们配置导出带坐标的BOM的脚本时,默认使用的是微软的Excel工具,而电脑上安装的却是WPS,所以就会出现上述所示的错误。
知道原因之后,相应的就有如下两种解决方法:
1.下载office办公软件并安装,安装成功之后就可以用PADS成功导出BOM文件了。
2.想继续使用WPS软件,不想去安装office办公软件,这个时候就需要修改我们配置生成的脚本文件了,用PADS打开PCB文件,然后按照下面截图操作:
dccb47de450788011bc73af5b18ca608a40f820f.jpg
弹出如下提示框:
890dfb4a2f27e7ef1ab184b519dd3340b7f3f50f.jpg
选择我们之前配置生成的“Assembly Option Part Report”文件(根据你配置生成时设置的文件名来定,不一定都是这个),然后点击右侧的“Edit”,就会弹出该文件的源码,在源码中,我们可以找到如下截图的地方:
a9338a1fbee434dab1e9a597f271fe1d97d8e40f.jpg
将上面红圈圈中的地方进行修改,将原来的:
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文件了。


也可以用 pads layout script wizard 脚本向导。重新做一个网页格式的脚本。
回复

使用道具 举报

2273085954 | 2021-5-8 10:04:54 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则