求助一个宏文件，在SW工作界面直接打开装配体或者零件所保存位置的文件夹

248592513 · 发表于 2023-8-3 10:59:26

我手上有一个宏，就是直接打开零件的目录文件，但是报错的，不知道各位大神是否有相关的宏文件，希望分享一个。

248592513 · 发表于 2023-8-3 13:20:44

找到可以使用的了

xdongx1982 · 发表于 2023-8-5 10:58:13

很不错，找到组织了！

天才and疯子 · 发表于 2023-8-5 16:46:39

有教程吗大哥们

懒懒的高贵 · 发表于 2023-8-5 17:19:47

经典案例图书

下载下来看看，应该会有用！

zhjan518 · 发表于 2023-8-11 10:16:23

无法使用啊板主，密码多少

zhjan518 · 发表于 2023-8-11 10:17:06

经典案例图书

2017不能使用

zhjan518 · 发表于 2023-8-11 10:17:57

应该丢失引用了，设置楼主密码修改不了

lider_2010 · 发表于 2023-8-12 16:03:42

貌似用不了额

沉默的人 · 发表于 2023-11-20 08:39:29

好好学习，天天向上！

248592513 · 发表于 2023-12-13 13:56:13

zhjan518 发表于 2023-8-11 10:17
应该丢失引用了，设置楼主密码修改不了

没有设置任何密码，放桌面直接运行宏都可以的

海上的兵 · 发表于 2024-2-20 17:04:26

楼主太有才了，膜拜中……

141000 · 发表于 2024-3-4 11:00:43

这个可以复制文件地址吗？

风雨阳光 · 发表于 2024-3-11 19:46:05

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

随遇而安9528 · 发表于 2024-3-22 15:09:08

加入QQ群
参与讨论和学习

或扫描二维码加入

很不错，顶一下！

空中舞步 · 发表于 2024-4-19 13:38:42

经典案例图书

感谢楼主分享，很不错！

wangyanpin · 发表于 2024-4-19 23:36:58

加入QQ群
参与讨论和学习

或扫描二维码加入

VB 文件夹对话框，

Public Function BrowseForFolder
Dim objFolder, objShell
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Please select the folder..", BIF_BrowseFolder, IniFolder)
If Not (objFolder Is Nothing) Then
BrowseForFolder = objFolder.Self.path
End If
End Functio

复制代码

风雨阳光 · 发表于 2024-4-26 10:29:27

经典案例图书

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

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