求大神改一下这个宏，目的是从指定目录依次打开文件并执行指定宏后保存至循环结束

song35151 · 发表于 2021-10-7 09:30:55

Sub main()

Set swApp = Application.SldWorks
PartPath = "C:\Desktop\QC\" '设定目录
PartFileName = Dir(PartPath & "*.sldprt") '搜寻首个零件档案名称
Do Until PartFileName = "" '直至搜寻到空值
Set Part = swApp.OpenDoc(PartPath & PartFileName, 1) '开启零件

'运行宏代码首
START C:\Desktop\宏\图号分离.swp
MsgBox ("已成功运行指定的宏")
'运行宏代码尾

Part.Save '保存
swApp.CloseDoc (PartFileName) '关闭零件
PartFileName = Dir '搜寻下一个零件档案名称
Loop '循环搜寻
End Sub

Allate · 发表于 2021-10-7 09:30:56

那弄个简化版给你试试效果
界面如下：

指定文件运行指定宏（简化版）_2021-10-08.zip (15.18 KB, 下载次数: 90, 售价: 10 金币)

Allate · 发表于 2021-10-7 13:59:51

这个不是已经弄了个【指定文件运行指定宏】给你的么，还是出错么？

lhs1835 · 发表于 2021-10-7 15:47:02

SW机械工程师网，找到组织了！

song35151 · 发表于 2021-10-7 16:06:47

经典案例图书

Allate 发表于 2021-10-7 13:59
这个不是已经弄了个【指定文件运行指定宏】给你的么，还是出错么？

出错用不了，搞简单点不要引用太多的东西，容易出错

song35151 · 发表于 2021-10-8 14:09:35

Allate 发表于 2021-10-8 13:32
那弄个简化版给你试试效果
界面如下：

非常感谢！！！完美解决我想要的功能。

夜行者 · 发表于 2021-11-20 20:02:25

经典案例图书

SW机械工程师网，找到组织了！

Kbisi123 · 发表于 2021-11-30 23:47:46

这个一直是我想要的

Kbisi123 · 发表于 2021-12-17 21:29:12

Allate 发表于 2021-10-7 09:30
那弄个简化版给你试试效果
界面如下：

大佬这个宏能加个一键遍历装配体并写入listbox 自己写老是报错

Allate · 发表于 2021-12-18 08:03:46

Kbisi123 发表于 2021-12-17 21:29
大佬这个宏能加个一键遍历装配体并写入listbox 自己写老是报错

你截图详细说明一下

Kbisi123 · 发表于 2021-12-21 23:23:24

就是加个按钮，把遍历的目录树完整文件名加到listbox内，这个遍历目录树我不会，就是工作中感觉大型的装配体，很多东西目录都很长这一去找到一些文件夹比较麻烦所有想要一键遍历目录树，把完整的文件名写入这个框内供操作，这样的好处很多1.可以选择不要的删除，不然不按目录树来的话很难找出不要的东西

Allate · 发表于 2021-12-22 16:18:58

Kbisi123 发表于 2021-12-21 23:23
就是加个按钮，把遍历的目录树完整文件名加到listbox内，这个遍历目录树我不会，就是工作中感觉大型的装配 ...

你这个需求适合做到Excel里面去操作，工作量太大了，我就不弄了

hhh001 · 发表于 2022-6-1 09:18:56

SW机械工程师网，找到组织了！

懒懒的高贵 · 发表于 2022-11-30 16:36:32

很不错，顶一下！

1192322862 · 发表于 2023-1-9 14:43:41

加入QQ群
参与讨论和学习

或扫描二维码加入

很不错，找到组织了！

1192322862 · 发表于 2023-1-9 14:45:43

经典案例图书

楼主辛苦了！

		自动登录	找回密码
密码			立即注册

求大神改一下这个宏，目的是从指定目录依次打开文件并执行指定宏后保存至循环结束

最佳答案

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献