【原创】批量改名宏

Allate

' ******************************************************************************
' 批量改名宏.swp - By Allate, 2021-01-12
' ******************************************************************************
'说明：
'1. 此宏分两种改名方式，一是用Excel改名，二是替换改名。
'2. 在Excel中，只用填写D列的数据，其它数据不能动。
'3. 此宏不完善，只能改装配体设计树下层的零部件，不能改最顶层的，但能修改对应的工程图（更新）。



2021-01-31更新（增加去重处理），下载过的可以重新下载（不再扣金币）。
2021-06-04更新，增加还原轻化零件。

抛砖引玉，欢迎大家多提提意见和建议。

--------------------2021-01-17更新--------------------
升级版更具通用性，可以针对最顶层的零部件。具体内容见四楼

--------------------2021-07-07更新--------------------
有鉴于此宏容易出错，已经取消附件，有此需要的，可以使用以下帖子的表格改名——

【原创】<Excel表格>更改文件名字+自定义属性整理（第二版）
https://www.swbbsc.com/thread-322708-1-1.html

Allate

版本升级

' ******************************************************************************
' 批量改名宏_升级版.swp - By Allate, 2021-01-17（更新）
' ******************************************************************************
'说明：
'1. 此宏分两种改名方式，一是用Excel改名，二是替换改名。
'2. 此宏可以修改顶层的文件（零件/装配体皆可，但不用选择，宏自动添加），也能改对应的工程图。
'3. 在Excel中，只用填写D列的数据，其它数据不能动。

2021-01-31更新（增加去重处理），下载过的可以重新下载（不再扣金币）。
2021-06-04更新，增加还原轻化零件。


有鉴于此宏容易出错，已经取消附件，有此需要的，可以使用以下帖子的表格改名——


【原创】<Excel表格>更改文件名字+自定义属性整理（第二版）
https://www.swbbsc.com/thread-322708-1-1.html

Allate

如果宏无法正常使用的，请详细描述一下，包括但不限于以下项目：
1. 当前系统、SW、Excel的版本，以及32/64位。2. 不正常的表现（最好能有截图），如果报错，是报的什么错？还有是哪一行代码的错。

Allate

suwenfeng1125 发表于 2021-1-20 17:18
无法添加零件，我查看你的程序，里面都没有几行代码的

都在窗体那里啊，老铁！

Allate

   经典案例图书

lwcdgl 发表于 2021-1-27 08:52
大佬为什么我下载升级版的还是要扣金币啊

升级版那个是另一个文件来的，当然是要扣金币啦，小可爱

Allate

lwcdgl 发表于 2021-1-27 09:36
相同的零件为什么会重复加载到表格呢

这是因为偷懒了。
有空再更新一个更好的版本，感谢你的意见

Allate

   经典案例图书

lwcdgl 发表于 2021-1-27 11:10
什么时候更新，我觉得你这个功能很好用

已经更新，请重新下载使用。

Allate

lwcdgl 发表于 2021-1-31 10:30
不知道是禁用词语作的问题还是程式有问题，并没有改名，SolidWorks2018 SP5.0

这就有点尴尬了，问题出在选择方法上面，要从设计树上面选择，不要在模型区那里选。
不过现在已经把这个问题修复了，你重新下载一次吧。非常感谢你能找出这个问题。

Allate

wwwsdd 发表于 2021-3-23 18:53
试了下，有轻化的零件会出错 ，压缩零件不能添加

嗯，是的，之前一直忽略了轻化的零件，以后有空会把这个坑填回的。压缩零件这个不好办，还要试试能不能解决。

Allate

wangpin688 发表于 2021-3-25 17:20
请问大神这个是怎么玩的， 就是一个swp格式文件，   能简单说明下吗？谢谢

看本版最后一个置顶贴

Allate

Wu_Enwu 发表于 2021-4-15 15:03
升级版本还是无法改名，情况跟28楼一样，也是solidworks2018 SP5.0

28楼的问题早就解决了，只是46楼的还没解决。可能和你的文件名字有关系，能提供个截图么？

Allate

jyzas001 发表于 2021-5-8 14:13
能关联修改工程图吗？

你试试就知道了。

Allate

yni621 发表于 2021-5-12 17:19
A大，这个是不是只能用微软的EXCEL，用WPS的不行？我用了没反应。

是用Excel的，因为我没装WPS。
你可以尝试一下改成WPS的，理论上可行的。

Allate

yni621 发表于 2021-5-13 10:12
应该是指向出错，指向微软的EXCEL，不是WPS不会调试。
Public xlApp            As Excel.Application   ...

你自己想想办法吧，我暂时没安装WPS的想法。

Allate

加入QQ群
参与讨论和学习

或扫描二维码加入

lg328084985 发表于 2021-7-7 15:59
楼主为什么我这里改名字都是最顶层的图号，零件层并没有改动

早期写的宏，算法存在严重缺陷，容易导致最顶层改名出错。请不要再使用了，如果有改名需要，请移步到以下帖子——

【原创】<Excel表格>更改文件名字+自定义属性整理（第二版）
https://www.swbbsc.com/thread-322708-1-1.html

Allate

   经典案例图书

yaoshuai58 发表于 2021-7-9 17:01
WPS不行吗？

WPS安装了VBA的话可以试一下，我没试过。